hab mal ein problem wenn in spalte b ein "A" steht dann soll in spalte "D" der zellinhalt gelöscht werden(per makro),aber die bedingte formatierung soll erhalten bleiben.
vieleicht hat ja einer ne idee.
mfg jens
Sub tt()
Dim zelle As Range
For Each zelle In Range("B:B")
If zelle.Value = "A" Then
zelle.Offset(0, 2) = ""
End If
Next zelle
End Sub
Gruß aus dem Sauerland
Jens
Sub tt()
Application.ScreenUpdating = False
Dim zelle As Range
For Each zelle In Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
If zelle.Value = "A" Then
zelle.Offset(0, 2) = ""
End If
Next zelle
Application.ScreenUpdating = True
End Sub
Gruß aus dem Sauerland
Jens