erste freie Zeile in Zieltabelle finden
René
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?
Sub Makro1()
Workbooks.Open Filename:= _
"Y:\Eigene Dateien\Programmierung EFA\Fertige Dateien\Mappe2_Fortschritt_25.xlsm" _
, UpdateLinks:=3
Sheets("Daten").Select
Cells.Select
Selection.Copy
Windows("FehlererfassungOFFICE2000_mit_Kurzcheck2.xlsm").Activate
Dim a As Long
For a = 2 To 10000
SelectionCopy.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Exit For
Next
Application.CutCopyMode = False
End Sub
MfG René