Office: (Office 2016) Zellen zwischen Leerzeilen gleich nummerieren

Hallo zusammen,

mich möchte in Excel fortlaufen nummerieren. Allerdings soll zwischen den Leerzeilen immer die gleiche Nummer stehen. Ungefähr so:

GruppeA 1
GruppeA 1

GruppeB 2
GruppeB 2
GruppeB 2

GruppeC 3
GruppeC 3

Gruppe steht in Spalte A und die Zahlen in Spalte B. Kann man das ganze per Formel lösen.

Viele Dank

 

Zellen im Bereich ausfüllen die leer sind

Sub Fuellen()

‘ letzte Zellen falls leer damit der Bereich richtig erkannt wird

If Range("BA48") = "" then Range("BA48") = 1001

‘ Fehlerbehandlung falls im Bereich keine leere Zelle

On Error resume next

Range("W27:BA48").Specialcells(xlCellTypeBlanks)= 1001

End Sub

von Peter Haserodt

Zellen ausfüllen mit Wert davor

Range("a:a").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

Oder als Wert

With Range("a:a").SpecialCells(xlCellTypeBlanks)

.FormulaR1C1 = "=R[-1]C"

.Value = .Value

End With