VBA Code Fehler

[atilla]

Hallo Thomas,

änder diese Zeile:

lngErste = Application.CountA(.Columns(7)) + 3

so

lngErste = Application.CountA(.Columns(2)) + 3

Kleine Anmerkung am Rande, statt zu kopieren können die Werte direkt übernommen werden, nach folgendem Schema:


Tabell1.Range("A1") = Tabell2.Range("A1").Value

Dann wirst Du in nicht allzu langer Zeit keine Freude mehr mit der Datei haben, wenn nicht vorher ein Arbeiten damit unmöglich wird.
Das hatte ich Dir aber schon mal geschrieben, glaube ich.