Excel VBA -Code für Fortlaufende Nummerierung?

... komplette Frage anzeigen

2 Antworten

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

Antwort bewerten Vielen Dank für Deine Bewertung

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

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?