fortlaufend zählen anhand Wert in Zelle

Bild

Betrifft: fortlaufend zählen anhand Wert in Zelle
von: Snewi
Geschrieben am: 01.07.2015 12:01:40

Hallo,
ich habe einen Wert (z.B. 407 in C2 ) anhand dieses Wertes möchte ich in der Spalte A von 0-407 fortlaufend zählen! Wie realisiere ich das in VBA?
Gruß

Bild

Betrifft: AW:warum vba??
von: JoWE
Geschrieben am: 01.07.2015 12:11:00
Hallo Snewi,
vllt. so:

Sub zählen()
    Dim ze As Long
    For ze = 3 To Cells(2, 3)
        Cells(ze, 3) = Cells(2, 3) + ze - 2
    Next
End Sub

Gruß
Jochen

Bild

Betrifft: AW: AW:warum vba??
von: Snewi
Geschrieben am: 01.07.2015 12:38:07
Danke!
habs jetzt so gemacht:


Sub Nummerierung()
Dim i As Long
    For i = 1 To Cells(2, 3)
        Cells(i, 1) = Cells(1, 2) + i
    Next
End Sub
es klappt auch nur ich würde gerne mit 0 anfangen geht das?
Gruß

Bild

Betrifft: AW: AW:warum vba??
von: Daniel
Geschrieben am: 01.07.2015 12:42:57
Hi
Klar geht das.
du musst nur darauf achten, dass die Zeilennummer in Cells nicht 0 sein darf:

Sub Nummerierung()
Dim i As Long
    For 0 = 1 To Cells(2, 3)
        Cells(i + 1, 1) = Cells(1, 2) + i
    Next
End Sub
Gruß Daniel

Bild

Betrifft: AW: AW:warum vba??
von: Snewi
Geschrieben am: 01.07.2015 14:30:12
Danke

 Bild

Beiträge aus den Excel-Beispielen zum Thema "fortlaufend zählen anhand Wert in Zelle"