Cells: Copy&Paste von Formatierungen
19.11.2014 11:02:23
Formatierungen
ich habe ein kleines Makro geschrieben was auch fast perfekt funktioniert, allerdings habe ich _ noch ein kleines Problemchen.
Sub Test()
Dim LetzteZeile As Double
LetzteZeile = Range("Q" & Rows.count).End(xlUp).Row
For i = 4 To LetzteZeile
If Cells(i, 3) "" And Cells(i, 4) "" Then
If Cells(i, 21) = "1" Then
If Cells(i, 13) "" Then
If Cells(i - 1, 13) "" Then
Cells(i, 13).EntireRow.Delete
i = i - 1
Else
Cells(i - 1, 13) = Cells(i, 13)
Cells(i, 13).EntireRow.Delete
i = i - 1
End If
Else
Cells(i, 13).EntireRow.Delete
i = i - 1
End If
End If
Else
Exit Sub
End If
Next i
End Sub
Mir macht folgende Zeile Probleme:
Cells(i - 1, 13) = Cells(i, 13)
Damit übernehme ich den Inhalt einer Zelle in eine andere. Mein Problem ist jetzt, dass Formatierungen nicht mit übernommen werden (Schriftfarbe, Fett etc.).
Wenn ich es auf "Cells(i - 1, 13).copy = Cells(i, 13).paste" ändere, bekomme ich "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Hat jemand eine Idee wie ich mein Makro abändern müsste damit es funktioniert?
Liebe Grüße