Text kopieren bis neuer Text beginnt

[Skilla]

Hallo zusammen,
wie kann ich in der angefügten Beispieldatei den Kontonamen in Spalte B z.B. "Gebäude" per Formel/Makro so lange in den darunter stehenden Zellen wiederholen bis ein neuer Kontoname beginnt z.B. "Anlagen" und dieser Kontoname ab dann bis zum nächsten neuen Kontonamen z.B. "Maschinen" nach unten kopiert wird usw? Die Spalte B soll also als Endergebnis so aussehen wie Spalte H (siehe Beispieldatei).

Vielen Dank vorab für Eure Unterstützung und eine schöne Woche!

[Cadmus]

Einmal durch Power Query jagen. :)

Daten - Aus Tabelle/Bereich.

Im PowerQuery Editor die Spalte markieren und auf Transformieren -> Ausfüllen (nach unten).

Anschließend Über Home- Schließen und Laden.

[00202]

Hallo, :19:

noch zwei weitere Alternativen: :21:
[attachment=31078]

[Skilla]

Danke, ich habt mir beide sehr geholfen!

[Raoul21]

Zu Case Makro:

Hier
"For lngRow = 1 To UBound(arrTmp)"
würde ich 2 statt 1 schreiben, da im Falle einer ersten Zelle ohne Inhalt es hier
If arrTmp(lngRow, 1) = "" Then arrTmp(lngRow, 1) = arrTmp(lngRow - 1, 1)
zu einem Fehlerabbruch kommt. (arrTmp beginnt mit 1)
(Falls ich mich nicht irre)

Alles Gute, LG