Hallo Zusammen,
Ich programmiere gerade in Excel die Vorlage für einen Lieferschein.
Jetzt habe ich folgendes Problem: Wenn per Button eine neue Position aus der Vorlage einfüge (Positions-Nummer ist in der Vorgabe standardmäßig 1) soll der Wert eine fortlaufende Zahlenfolge ergeben. Nach Position 2 kommt 3 und 4 usw.
Dim lRow As Long
ThisWorkbook.Activate
'1. Find last used row in destination sheet
lRow = Worksheets("Lieferschein").Cells(Worksheets("Lieferschein").Rows.Count, 2).End(xlUp).Row
'Offset 1 row below last used row
lRow = lRow + 1
'2. Copy data
Worksheets("Quelle").Range("41:49").Copy
'3. Paste data
Worksheets("Lieferschein").Range("A" & lRow).PasteSpecial
'Clear copy mode (marching ants around copied range)
Application.CutCopyMode = False
Aktuell benutze ich diesen Code um die Vorlage unter die vorhandenen Positionen zu kopieren, dass funktioniert auch einwandfrei. Wie kann ich das Positionsproblem jetzt lösen?
|