HERBERS Excel-Forum - das Archiv

Thema: fortlaufend zählen anhand Wert in Zelle

fortlaufend zählen anhand Wert in Zelle
Snewi

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ß

AW:warum vba?
JoWE

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

AW: AW:warum vba?
Snewi

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ß

AW: AW:warum vba?
Daniel

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

AW: AW:warum vba?
Snewi

Danke

fortlaufend zählen anhand Wert in Zelle
Snewi

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ß

AW:warum vba?
JoWE

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

AW: AW:warum vba?
Snewi

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ß

AW: AW:warum vba?
Daniel

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

AW: AW:warum vba?
Snewi

Danke

Bewerten Sie hier bitte das Excel-Portal