Code copy/insert erweitern
12.06.2006 13:31:39
volker
Mein Code liest die letzte beschriebene Zelle der Spalte A (Workbook "Seriennummern" Sheet "RearCabinet") aus.
In der aktuellen Liste wird diese Nummer (im Sheet "Sticker") in A1 geschrieben. In B1 steht eine Stückzahl (Tische) wenn hier bspw. 5 steht wird in Zelle A2= A1+1; A3= A2+1; .....
Das klappt mit dem untenstehenden makro.
Nun möchte ich diese erzeugten Nummern aber auch in meine Seriennummernliste (aus der der erste Wert geholt wurde) zurückschreiben, und zwar in die erste freie Zeile der Spalte A Sheet "RearCabinet"(von oben nach unten).
Um eben diese Seriennummernliste aktuell zu halten.
Hoffe ich habs rüber gebracht, DANKE volker
Sub Seriennummer()
Dim zei, i As Integer
Workbooks.Open "P:\vw\Eigene Dateien\Seriennummern.xls"
zei = Worksheets("RearCabinet").Range("A65536").End(xlUp).Row
With ThisWorkbook.Worksheets("Sticker")
For i = 1 To .Range("B1")
.Cells(i, 1) = Cells(zei, 1) + i
Next i
End With
Workbooks("Seriennummern.xls").Close 0
End Sub