Hallo liebe Excel-Freunde,
Aus einem Excelarbeitsblatt sollen Daten in ein anderes Excel-Arbeitsblatt per VBA kopiert werden und zwar immer in die übernächste freie Zeile.
Das funktioniert auch einwandfrei.
Nun zu meinem Problem:
In Spalte "A" der Zeile in die der Text kopiert wurde soll eine "2" geschrieben werden.
Hier mein Code (Ohne die "2"):
With Worksheets("History")
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2
ActiveSheet.Range("B10:N14").Copy Destination:=.Cells(lngNextRow, 2)
lngNextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Range("B19:N23").Copy Destination:=.Cells(lngNextRow, 2)
End With
Kann mit jemand bei der Lösung meines Problems behilflich sein?
Besten Dank!,
Basti