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.

Answer 1

[agent888]

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

Answer 2

[Ninombre]

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