+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: VBA: bedingte Formatierung löschen (/thread-28436.html)
VBA: bedingte Formatierung löschen - Sero - 07.11.2022
Guten Morgen,
ich habe mir eine Sub erstellt, die bestimmte bedingte Formatierungen löschen und eine neue erstellen soll:
Code:
Sub BF_SchutzZelle_Loeschen_Einrichten()
Dim n As Integer 'Zähler
Dim i As Integer 'Anzahl Formatierungen in Tabellenblatt
ActiveSheet.Cells.Select 'alles markieren
i = Selection.FormatConditions.Count
'Alle BF mit Zellenschutz löschen
If Selection.FormatConditions.Count > 0 Then
For n = i To 1 Step -1
If Selection.FormatConditions(n).Type = xlExpression Then
If Selection.FormatConditions(n).Formula1 = "=NICHT(ZELLE(""Schutz"";A1))" Like True Then
Selection.FormatConditions(n).Delete
Else
End If
Else
End If
i = Selection.FormatConditions.Count
Next n
Else
MsgBox "keine Bedingte Formatierungen in : " & ActiveSheet.Name & " : enthalten"
End If
'eine neue BF mit Zellenschutz einrichten
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=NICHT(ZELLE(""Schutz"";A1))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Pattern = xlLightDown
.PatternThemeColor = xlThemeColorAccent2
End With
Selection.FormatConditions(1).StopIfTrue = False
End SubFrage: wie kann ich A1 durch einen Platzhalter ersetzen so dass
Code:
=NICHT(ZELLE(""Schutz"";A1))Besten Dank!
Sero