Copy/Paste incl. Schriftfarbe
14.07.2006 14:56:57
Torsten
ich habe heute zu einer VBA-Anfrage Hilfe hier im Forum erhalten. Folgender Code wurde mir dabei weitergegeben (auszugsweise):
If IsEmpty(.Cells(Zeile + 1, "A")) Then
.Cells(Zeile + 1, "A") = .Cells(Zeile, "A")
.Cells(Zeile + 1, "B") = .Cells(Zeile, "B")
End If
Leider wird dabei die Schriftfarbe der kopierten Zelle nicht mit eingefügt.
Ich hab's mit
If IsEmpty(.Cells(Zeile + 1, "A")) Then
.Cells(Zeile + 1, "A").Copy Destination:=ActiveSheet.Cells(Zeile, "A")
.Cells(Zeile + 1, "B").Copy Destination:=ActiveSheet.Cells(Zeile, "B")
End If
versucht, aber dabei wird dann gar nichts mehr eingefügt.
Weiß jemand, wie ich die Schriftfarbe mitkopieren/einfügen kann?
Vielen Dank für Eure Tips.
Gruß
Torsten