strgWerte in Zelle nachträglich ergänzen
12.06.2013 15:33:24
Rolf.dW
momentan bin ich knapp vor fast aus dem Fenster zu springen. Ich finde auf Teufel-komm-raus den Fehler nicht.
Wie muss mein Code lauten, wenn ich beispielsweise in Zelle B4 meines Worksheets den vorhandenen (string-) Wert um weitere (string-) Werte aus der Variablen "name" ergänzen möchte. Beispiel:
bisheriger Zellinhalt von B4 =
Äpfel
(name = "Birnen")
neuer Zellinhalt von B4 =
Äpfel
Birnen
(name = "Kirschen")
neuer Zellinhalt von B4 =
Äpfel
Birnen
Kirschen
Die ganze Prozedur läuft in einer ForNext-Schleife. Mit der Codezeile
Sheets("Tab1").Range(adr).Value = .Range(adr).Value & " " & name & vbLf
habe ich blauäugig, wie ich bin gedacht, das Problem zu lösen.
Aber leider wird der in "B4" bereits vorhandene Wert jeweils überschrieben. Statt
Äpfel
Birnen
Kirschen
steht dort lediglich "Kirschen.
Vermutlich ist mir vor lauter Bäumen mal wieder der Wald aus dem Blickfeld geraten. Was mache ich falsch?
Gruß, Rolf