Daten kopieren aus einer Rechnungsvorlage in eine gesamte
18.03.2026 13:21:15
mckater
Ein sicherlich kleines Problem!
Also ich habe eine Rechnung und mit VBA mach ich dann in einem externen Tabellenblatt alle Daten rein....alles, von Brutto, Netto usw.
Alles gut.....
Funktioniert auch super!
Aber bei der nächsten Rechnung müssen die Daten ja nicht überschrieben werden sondern anfangen ab der nächsten leeren Zeile
Ein Beispiel für denn Kopiervorgang nur mit Brutto.
Das Problem liegt darin, weil F2 gebunden ist und wie kann man das so machen, das F2 im VBA immer nach der letzten Zeile sucht und nicht F2 ist?
Sub KopiereWerteBrutto()
Dim src As Range
Set src = ThisWorkbook.Names("Ber_Brutto").RefersToRange
' Werte direkt übertragen
ThisWorkbook.Worksheets("Einnahmen").Range("F2").Resize(src.Rows.Count, src.Columns.Count).Value = src.Value
End Sub
Im Prinzip habe ich eine tolle Rechnungserstellung, aber ich will ja bei jeder Rechnung mit VBA dem dann sagen, kopiere bei jeder Rechnung das rein.
Aber das ist dann halt nicht F2, weil die nächste F3 wäre usw.
Er soll runter gehen und das einfügen wo die leere Zeile ist.
Gruß aus dem sonnigen Ösiland,
mckater
Anzeige