habe im Forum dieses Makro gefunden, entspricht dem was ich suche,
würde aber das makro gerne mit einer Summenfunkt. erweitern.
Das makro überträgt Zellwerte(Zeile) aus Blatt a nach B, und fügt in Blatt B
die Daten in die nächste leere Zeile ein.
In Spalte D habe ich Währungsbeträge, und diese möchte ich summiert haben, aber
die Summenzelle muss sich ja mit dem einfügen der neuen Zeile auch
verschieben.
Könnte mir hierbei jemand von euch helfen
Sub Übertragen()
'Dim lastTarRow as Integer
With Worksheets("Dokumentation")
lasttarrow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("Formular").Range("A10:E10").Copy
With .Cells(lasttarrow, 1)
.PasteSpecial (xlPasteValues)
.NumberFormat = "m/d/yyyy h:mm"
End With
'Worksheets("Formular").Range("B10:d10").ClearContents
End With
End Sub
Danke und Gruss
Heribert