Zahl in A erhöhen
07.08.2023 19:31:53
Andreas
mit folgenden Code wird die Zahl in Spalte A eine Zeile unter der aktiven Zeile um eins erhöht, wenn diese nicht leer ist.
Nun würde ich gern, das mit dem Code 3 Zeilen unter der aktiven Zeile ausgefüllt werden.
Z.B. -befinde mich in Zelle A14 wo auch eine 14 als Zahl steht. Nach dem Ausführen soll in A15 die 15 ; A16 die 16 und A17 die 17 stehen.
Was muss ich ändern?
If Cells(ActiveCell.Row + 1, 1).Value = "" Then ' erhöhe in A die Zahl um +1
Cells(ActiveCell.Row + 1, 1).Value = Cells(ActiveCell.Row, 1).Value + 1
Gruß Andreas