erste leere zeile finden
06.04.2015 18:23:27
lau
ich möchte, dass die Daten aus dem Datenblatt "MidScreen" kopiert werden und in die erste LEERE Zeile im Datenblatt"All_Mid_PFC" eingefügt werden.
Wie kann ich mit dem Teilmakro unten die erste leere Zeile finden und Daten dort einfügen?
vielen Dank.
Laura
With wkbPP
.Sheets("All_Mid_PFC").Range("A1:G69").Copy _
Workbooks("Fahrplancalculator in Arbeit.xlsm").Sheets("All_Mid_PFC").Range("A1")
.Sheets("MidScreen").Range("A1:G37").Copy _
Workbooks("Fahrplancalculator in Arbeit.xlsm").Sheets("MidScreen").Range("A1")
.Sheets("MidScreen").Range("A2:G37").Copy _
Workbooks("Fahrplancalculator in Arbeit.xlsm").Sheets("All_Mid_PFC").Range("A70")
.Close False