Hallo,
per VBA kopiere ich den Inhalt der Zeile x+1Zelle für Zelle in die Zeile x. Also z.B. den inhalt der Zelle A2 in die Zelle A1. Die Zelle A1 ist jedoch nicht leer und der Inhalt soll erhalten bleiben. Das kopieren mache ich so:
ActiveCell.Offset(0, b).Value = (ActiveCell.Offset(0, b).Value & " / " & ActiveCell.Offset(1, b).Value)
Das funktioniert soweit auch. In der Zelle A1 ist jedoch teilweise eine unterschiedliche Texxtfarbe gewählt- also steht in A 1 Text in Grün und Blau (in der Reihenfolge) und in A2 Pinker Text.
Kopiere ich auf diese weise ist danach der gesamte Text Grün. Wie kann ich zumindest den Ursprungstext in den Originalfarben erhalten?
Weis jemand Rat? |