Zelle überprüfen und Nachbarzelle befüllen
01.08.2014 15:17:57
Patrick
ich habe eine Frage aufgrund meines kleinen Dilemmas.
Vor mir liegt eine Excelliste mit einer A und einer B Spalte, die in unterschiedlichen Zellen befüllt sind.
Ich möchte das die leeren Zeilen in Spalte B mit dem Wert der letzten befüllten Zelle
aus B aufgefüllt werden. Ähnlich wie das Doppelklicken mit der Maus in das kleine schwarze Kreuz rechts unten, wenn ihr versteht was ich meine.
Nun habe ich hier ein Mini-Makro gefunden, dass das soweit automatisch umsetzt:
Sub Autofüller()
For Each c In Range("B1", "B100")
If c = "*" Then c.Value = NeuerName
If c "" Then NeuerName = c Else c.Value = NeuerName
Next
End Sub
Das Programm durchläuft jede Zeile und befüllt alle Zeilen mit dem Wert der letzten gefundenen befüllten Zelle.Nun möchte ich, dass immer nur dann befüllt wird, falls in der selben Zeile im Spalte A ein Text vorhanden ist.
Ich weiß, dass man mit der ISTTEXT(A1) die Zelle auf Textinhalt prüfen kann,
aber ich habe absolut keine Ahnung, wie ich das mit dem Makro kombiniere und das dann fortlaufend bis zur letzen Zeile.
Also zusammengefasst:
Falls A1 Wert vorhanden und B1 vorhanden--> Wert von B1 merken
Falls A1 kein Wert vorhanden --> dann passiert nichts
nächste Zeile
Falls A2 Wert vorhanden und B2 nicht --> Wert von B1 hinein kopieren
Falls A2 Wert vorhanden und B2 vorhanden --> Wert von B2 merken
Falls A2 kein Wert vorhanden --> dann passiert nichts
nächste Zeile
usw.
bis Zeile 100 erreicht ist.
Könnt ihr mir etwas unter die Arme greifen?
Vielen lieben Dank an alle!
Lg
Patrick