Vermute aber, das es etwas mit Offset und lngZeile = 1 zu tun hat, aber ich bekomme den Code nicht zusammen, sodass es funktioniert.
Nein hat es überhaupt nicht.
Dein Problem ist, dass du MEHRERE Werte in einer Zelle stehen haben möchtest.
rngZelle.Worksheet.Cells(rngZelle.Row, "A").Value = Text
Hat jedoch das Problem, dass es dir immer nur den letzten Text in die Zelle schreibt, also nur EINEN. Du willst aber MEHRERE da drin.
Ich denke, dass Problem ist nicht so schwer durch logisches Denken zu lösen??
Wie wäre es den Inhalt, der bereits in der Zelle steht, einfach zu nehmen und hinten dran den neuen zu packen? Klingt klever, oder nicht?
rngZelle.Worksheet.Cells(rngZelle.Row, "A").Value = rngZelle.Worksheet.Cells(rngZelle.Row, "A").Value & Text
-> Das ist der Grundgedanke.
Ich denke, der richtige Platz dafür wäre ein neues Sub ganz unten in den Code zu schreiben oder?
Ja.
|