Excel VBA -Code für Fortlaufende Nummerierung?
Hallo, ich suche einen Excel VBA-Code der mir eine fortlaufende Nummerierung einfügt. Beginnend bei B8 soll er in der selben spalte bleiben und immer 1 weiter runter zählen. Wäre für jede Hilfe sehr dankbar.
2 Antworten
Vom Beitragsersteller als hilfreich ausgezeichnet
Verwende einfach die For-Schleife:
Sub Weiterzaehlen()
Dim intZeilenzahl As Integer
Dim intWert As Integer
intZeilenzahl = 8
For intWert = 1 To 1000
Tabelle1.Cells(intZeilenzahl, 2).Value = intWert
intZeilenzahl = intZeilenzahl + 1
Next
End Sub
Du kannst den Code einfach einfügen. Die Zahl nach "To" bei der For-Schleife kannst du beliebig ändern. Sie gibt an, wie lange die For-Schleife ausgeführt wird. In diesem Fall also bis intWert 1000 entspricht!
Lg Lukas
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Dass es auch mit 1 / 2 / 3 in B8 bis B10 schreiben und "runterziehen" geht, weißt Du sicherlich.
sonst einfach eine For-Schleife
for i=8 to 500 'das musst Du festlegen, wo es enden soll
cells(i,2).value=i-7
next