Zahlen generieren
08.06.2006 13:32:11
volker
ich lese mit folgendem makro eine Nummer aus:
Sub Seriennummer()
Dim zei
Workbooks.Open "P:\vw\Eigene Dateien\Seriennummern.xls"
zei = Worksheets("RearCabinet").Range("A65536").End(xlUp).Row
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Cells(zei, 1) + 1
Workbooks("Seriennummern.xls").Close 0
End Sub
Nun steht in meiner geöffneten Tabelle in "B1" eine Stückzahl.
Nun möchte ich obiges makro so abwandeln, dass wenn in B1 bspw. 5 steht, soll in Zelle A2 der Wert A1+1 stehen, A3 dann A2+1 und so weiter bis eben die Stückzahl von B1 erreicht ist.
Danke Volker
Anzeige