Zellen automatisch auffüllen wie?

Hallo Exceller,
wie kann ich leere Zellen einer Spalte mit dem Text der jeweils vohergehenden Zellen aufüllen, aber immer nur bis zur nächsten schon beschriebenen Zelle? 1.Handikap: Die Tabelle mit ihren Eintragungen besteht bereits mit ca. 25.000 Zeilen und 5.000 verschiedenen Eintägen in der betreffenden Spalte. 2. Handikap: die anhängenden Spalten dürfen nicht verändert werden. Ich versuche das mal darzustellen:
Spalte A…Spalte B…
Teil 1…paul…
…willi…
…uschi…
Teil 2…sushi…
…hund…
…katze…
Teil 3…keks…
Teil 4…puh…:wink:
Es soll jeweils der fehlende Text der Spalte A aufgefüllt werden.
Hat jemand eine gute Idee?
P.S. es pressiert!

bis dann Harald

Hi Harald,

ein kleines Makro könnte Dein Problem lösen:

Sub Beispiel()
Zeile=2
While Cells(Zeile, 2).Formula „“
if Cells(Zeile, 1).Formula = „“ then
Cells(Zeile, 1).Formula = Cells(Zeile-1, 1).Formula
End If
Zeile = Zeile + 1
Wend
End Sub

Ciao

Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

werde es gleich testen!
Danke schon mal

Problems
Hallo Uwe,
ich bekomme es leider nicht zum laufen. Ich kann es testen, es ist io, aber nach einem Start in der Tabelle gibt es keine Reaktion. Was kann ich falsch machen?
bis dann
Harald

Hi Harald,

vielleicht ist das Tabellenblatt nicht aktuell, oder Du mußt mit einer anderen Startspalte anfangen.

Falls nichts geheimes enthalten ist, kannst Du mir ja die Datei einmal zumailen, dann könnte ich sie mir heute abend anschauen.

Gruß

Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

1 „Gefällt mir“