folgendes Problem:
ich habe mit folgendem Code (der mir hier netterweise zur Verfügung gestellt wurde):
Sub myCopy2()
Dim lngLastRow As Long
With Workbooks("Mappe1").Sheets(1)
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Selection.Copy Destination:=.Cells(lngLastRow, 1).Offset(1, 0)
End With
End Sub
aus verschiedenen Quelldateien versucht markierte Zeilen in eine Zieldatei zu kopieren. Dabei wurdendie Daten aber überschrieben anstatt anzuhängen. Ich nutze Excel 2007. Kann mir jemand einen Tip geben was hier falsch gelaufen sein könnte? Bei einem vorherigen Test mit Excel2002 hat es noch geklappt. Ich habe keine Ahnung was schief gelaufen ist.
Vielen Dank
Stefan