---

Servus,

ich erstelle über VBA die bedingte Formatierung mit Formel '=istformel' jetzt kommt es vor das kopieren etc. die bedingte Formatierung vervielfacht.

Kann man per VBA diese bestimmte bedingte Formatierung in der Tabelle löschen, damit ich sie gleich neu erstellen kann?

Anbei der Code falls ihn wer haben will.

Code:

---

Sub istformel_A_AZ()
        Application.ScreenUpdating = False
        istformel_namen_erstellen
        Cells.Select
        'Cells.FormatConditions.Delete
        Columns("A:XFD").Select
        Range("A11").Activate
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=istformel"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = False
        .Italic = True
        .Color = -6279056
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Color = -6279056
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Color = -6279056
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Color = -6279056
        .TintAndShade = 0
        .Weight = xlHairline
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Color = -6279056
        .TintAndShade = 0
        .Weight = xlHairline
    End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("A1").Select
End Sub
Sub istformel_namen_erstellen()
'
' Makro1 Makro
'

'
    ActiveWorkbook.Names.Add Name:="istformel", RefersToR1C1:= _
        "=GET.CELL(48,INDIRECT(""ZS"",0))"
'    ActiveWorkbook.Names("istformel").Comment = ""
End Sub

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche: richtige Ebenen über Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, Mulitmodel, Halo4Texte, verschränkte Attribute , Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF, Fehler zwischen Normal MAP Civil beheben...
Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

Interessante Sache, auch wenn ich das noch nie programmiert habe.
Ich vermute mal Du hast es schon getestet wenn Du vor dem Selection.FormatConditions.Add
ein Selection.FormatConditions.Delete machst? Werden aber alle gelöscht und nicht nur eine bestimmte.

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Selection.FormatConditions.Delete Type:=xlExpression, Formula1:="=istformel" bringt einen Fehler

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche: richtige Ebenen über Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, Mulitmodel, Halo4Texte, verschränkte Attribute , Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF, Fehler zwischen Normal MAP Civil beheben...
Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schon klar, denn Du kannst damit ja nur alle bedingten Formatierungen in dem markierten Bereich löschen.
Ansonsten fällt mir nur ein die Auswahl zu durchlaufen und die Formatierungen der einzelnen Zellen zu untersuchen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

du musst in einer Schleife alle Zellen durchlaufen und für jede Zelle die bedingten Formatierungen wiederum in einer Schleife und dabei prüfen, ob es die relevante Bedingung ist - nach diesem Prinzip:

Code:

---

Sub BedFormatLoeschen()
    Dim rngZelle As Range
    Dim lngZaehler As Long
    Application.ScreenUpdating = False
    For Each rngZelle In Range("A11:XFD50")
        If rngZelle.FormatConditions.Count > 0 Then
            For lngZaehler = rngZelle.FormatConditions.Count To 1 Step -1
                If rngZelle.FormatConditions(lngZaehler).Type = xlExpression Then
                    If rngZelle.FormatConditions(lngZaehler).Formula1 = "=istformel" Then
                        rngZelle.FormatConditions(lngZaehler).Delete
                        DoEvents
                    End If
                End If
            Next lngZaehler
        End If
    Next rngZelle
    Application.ScreenUpdating = True
End Sub

---

Was mir bei deinem Code aufgefallen ist: du setzt für den gesamten Spaltenbereich A:XFD die bedingte Formatierung - somit müsstest du also auch alle Zellen in diesen Spalten und dazu jeweils alle Bedingungen durchlaufen. Ich habe den Code mal mit dem Zellbereich A11:XFD50 getestet - Zeitaufwand ca. 8 min. Wenn du also alle Zellen ändern willst, dann dauert das Jahre bis du durch bist...

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Beverly sowas in der Richtung dachte ich mir schon nachdem KlaK das erwähnt hatte. "Ansonsten fällt mir nur ein die Auswahl zu durchlaufen und die Formatierungen der einzelnen Zellen zu untersuchen."

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche: richtige Ebenen über Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, Mulitmodel, Halo4Texte, verschränkte Attribute , Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF, Fehler zwischen Normal MAP Civil beheben...
Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nicht nur "Ansonsten" - es gibt nur diese eine Möglichkeit, wenn du einzelne bedingte Formatierungen löschen willst. 
Der generell einfachere Weg ist allerdings, wenn du für den Bereich die bedingte Formatierung komplett löschst und anschließend neu erstellst - den prinzipiellen Code hast du ja schon (für die eine Bedingung). Allerdings solltest du dabei auf Select verzichten können, weil man das in 99% aller Fälle kann.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Mit
  ......
   For Each rngZelle In Range("A11:XFD50").SpecialCells(xlCellTypeAllFormatConditions).Cells
  .....
sollte es schneller laufen.

pablo

------------------
PST => Parametersteuerung für Solid Edge
TB Haberl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

ich würde sagen, dass das nicht schneller läuft, denn der Fragesteller formatiert ja ALLE Zellen mit bedingter Formatierung, also müssen auch ALLE durchlaufen werden und nicht nur die SpecialCells.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP