leere zeile
31.03.2015 13:33:26
lau
mein Makro soll aus dem Datenblatt "Calculator" die Zeile A5:M5 kopieren und in das Datenblatt "Historie" im dem Bereich B2:B100 die letzte leere Zeile suchen und dort eintragen.
Das makro unten macht nicht so wie es soll.
Kann mir jmd. helfen?
vielen Dank.
Laura
historisieren()
Dim zeile, zeile_nach As Long
zeile = Sheets("calculator").Range("a5:m5").copy
zeile_nach = Sheets("Historie").Range("b1000").End(xlUp).Row + 1
With Sheets("Calculator")
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy
Sheets("Historie").Cells(zeile_nach, 1).PasteSpecial Paste:=xlValues
End With
End Sub