Komme mit der Fehlermeldung nicht klar, dass auf der Zeile .FormatCoditions.Add ein Anwendungs- oder Objektdefinierter Fehler vorliegen soll. Bin für Hilfe sehr dankbar. Code habe ich vom Makrorecorder abgeleitet.
Danke, Peter
Sub Journal_kopieren()
Dim rngBereich As Range
Worksheets("Original-Journal").Activate
With Range("Buchung")
.Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:="=RUNDEN(SUMME(Buchung);1)=0"
End With
End Sub