Fortlaufende Nummerierung VBA
21.12.2020 09:51:37
excelliebe
ich benötige erneut eure Hilfe. Ich habe einen Code gebastelt, der mit die Werte aus Spalte B ausgibt, wenn entsprechende Zeile in Spalte A "".
Dim i As Long
For i = 53 To Cells(Rows.Count, "A").End(xlUp).Row Step 8
If ActiveSheet.Cells(i, "A").Value "" Then
Print #1, "" & Cells(i, 2).Text & ""
Print #1, "" & Cells(i + 2, 2).Text & ""
Print #1, "" & Cells(i + 4, 2).Text & ""
Print #1, "" & Cells(i + 6, 2).Text & "" _
End If
Next i
(Ich musste zwischen Text und Leerzeichen einfügen...)
So sieht dann die Ausgabe aus:
125,00
12,00
30,00
100,00
90,00
33,00
58,00
39,00
120,00
20,00
20,00
12,00
Nun muss ich das ganze aber durchnummerieren, beginnend bis 1 (bis max. 16, da mehr Eintragungen nicht möglich sind).
D.h.
125,00
12,00
30,00
100,00
90,00
33,00 ...
Kann jemand helfen?
LG