ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC, rg As Range
For Each rC In Target
If rC.Value = Worksheets(ActiveSheet.Name & " (2)").Cells(rC.Row, rC.Column).Value Then
Worksheets(ActiveSheet.Name & " (2)").Cells(rC.Row, rC.Column).Copy
rC.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Else
rC.FormatConditions.Delete
rC.Interior.ColorIndex = 6
End If
Next rC
End Sub
Ich möchte gerne es so haben, dass wenn auf dem Blatt eine Zelleninhaltsänderung vorgenommen wird, dass diese Zelle dann gelb wird und die "Bedingten Formatierungen" gelöscht werden. Das klappt auch gut. Wenn der Ursprungswert (Kopie des Blattes liegt versteckt im Hintergrund) wieder hergestellt wird, soll die Ursprungsformatierung wieder ersellt werden. Das klappt auch ganz gut.
Nun eine Frage: Und zwar wenn der Ursprungswert wieder hergestellt wird, macht die Datei eine verhältnismäßig lange Rechenpause (2 bis 3 Sekunden) und erst dann ist die Datei wieder bearbeitbar. Liegt es daran, dass das kopieren der "Bedingten Formatierung" diese Rechenzeit benötigt, oder eher das alles mit "Worksheet_Change" passiert und ich noch per Intersect etwas eingrenzen muss. Mag mir jemand da 'nen Hilfe geben?
Gruß
Gordon