Kann mir jemand einen Tip geben warum das Makro nicht funktioniert. Es sollen Daten von WS1 auf WS2 in fest definierte Spalten übertragen werden. Die Erste freie Zeile bei WS 2 ist die Zeile 8. Gleichzeitg soll Excel prüfen ob der die Zeile noch frei ist, wenn nicht dann soll er die daten in die nächste Zeile schreiben. Das einzige was funktioniert ist der Übertrag von G4 nach G8 leider trägt er den Wert in die Zeile 7 ein nicht Zeile 8.
Gruß Koffermurphy
Sub test()
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Worksheets(1)
Set WS2 = Worksheets(2)
'Worksheets(2).[A8] = Worksheets(1).[E5]
WS2.Cells(WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) _
= WS1.[E5]
'Worksheets(2).[B8] = Worksheets(1).[C5]
WS2.Cells(WS2.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) _
= WS1.[C5]
'Worksheets(2).[C8] = Worksheets(1).[E40]
WS2.Cells(WS2.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) _
= WS1.[E40]
'Worksheets(2).[D8] = Worksheets(1).[D40]
WS2.Cells(WS2.Cells(Rows.Count, 4).End(xlUp).Row + 1, 4) _
= WS1.[D40]
'Worksheets(2).[F8] = Worksheets(1).[F40]
WS2.Cells(WS2.Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) _
= WS1.[F40]
'Worksheets(2).[G8] = Worksheets(1).[G4]
WS2.Cells(WS2.Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) _
= WS1.[G4]
'Worksheets(2).[F8] = Worksheets(1).[G40]
WS2.Cells(WS2.Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) _
= WS1.[G40]
End Sub