Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatirung in VBA mit Formel

Forumthread: Bedingte Formatirung in VBA mit Formel

Bedingte Formatirung in VBA mit Formel
24.05.2017 11:47:49
peterlijaba@gmail.com
Hallo zusammen
Ich möchte den unten stehenden Code so angepasst haben, dass anstatt der Wert 
="x"

folgende Formel erstellt wird:

=AF_Krit(B4)""
Der Makrorecoder schreibt leider immer 

"=""AF_Krit(A4)"""""""""""
Mit nur die Hochkommas löschen funktioniert leider nicht.
Wie müsste der folgende Code angepasst werden?
    Range("Status").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""x"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Danke
Viele Grüsse,
Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatirung in VBA mit Formel
24.05.2017 12:25:00
yummi
Hallo Peter

with Range("Status")
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="AF_Krit(B4)"""
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
end with
obwohl das reichen müsste: 

with Range("Status")
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="AF_Krit(B4)"""
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
end with
Gruß
yummi
Anzeige
AW: Formel immer noch als Text und falsche Regel
24.05.2017 13:16:24
peterlijaba@gmail.com
Hallo Yummi
Danke für Deine geschätzte Antwort, jedoch läuft der Code noch nicht ganz richtig. Die Formel wird ebenfalls als Text mit Hochkommas erstellt, anstatt als als eine Formel:
so: 
="AF_Krit(B4)"""

anstatt so: 
=AF_Krit(B4)""
was noch dazu kommt ist, dass die Bedingte Formatierung nicht als Regel "Formel zur Ermittlung der zu formatierenden Zellen verwenden", sondern fälschlicherweise die Regel "Nur Zellen formatieren, die enthalten" erstellt wird.
Hast Du eine Idee wie der Code anzupassen ist?
Danke
Gruss,
Peter
Anzeige
AW: Formel immer noch als Text und falsche Regel
24.05.2017 13:57:16
yummi
Hallo Peter,
diesmal getestet ;-)

With Range("Status")
.FormatConditions.Add Type:=xlExpression, Formula1:="=AF_Krit(B4)"""""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
Gruß
yummi
Anzeige
AW: Formel immer noch als Text und falsche Regel
24.05.2017 14:28:53
peterlijaba@gmail.com
Hallo yummi
Super, läuft perfekt, vielen DANK!
Viele Grüsse,
Peter
;
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung in VBA mit Formel anpassen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Füge ein neues Modul hinzu: Rechtsklicke im Projektfenster und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub BedingteFormatierungAnpassen()
    With Range("Status")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=AF_Krit(B4)"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Font
            .Color = -16776961
            .TintAndShade = 0
        End With
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle BedingteFormatierungAnpassen und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Formel wird als Text angezeigt: Stelle sicher, dass du Type:=xlExpression verwendest, um die Regel "Formel zur Ermittlung der zu formatierenden Zellen verwenden" korrekt festzulegen.

  • Falsche Regel erstellt: Wenn die Regel nicht korrekt erstellt wird, überprüfe die Syntax deiner Formel und stelle sicher, dass du die SetFirstPriority-Methode korrekt anwendest.

Alternative Methoden

Eine alternative Möglichkeit zur Erstellung bedingter Formatierungen ist die Verwendung von Excel-Formeln direkt in der Benutzeroberfläche:

  1. Selektiere den Zellbereich, den du formatieren möchtest.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die Formel =AF_Krit(B4) ein und wähle das gewünschte Format.

Praktische Beispiele

Ein einfaches Beispiel für die Anwendung des obigen Codes könnte wie folgt aussehen:

  • Ziel: Alle Zellen im Bereich "Status" rot einfärben, wenn die Funktion AF_Krit(B4) TRUE ergibt.

    Der VBA-Code dazu würde die Zellen automatisch entsprechend formatieren, basierend auf der von dir angegebenen Formel.

Tipps für Profis

  • Nutze die SetFirstPriority-Methode, um sicherzustellen, dass deine bedingte Formatierung Vorrang vor anderen Regeln hat.
  • Experimentiere mit verschiedenen PatternColorIndex-Werten, um unterschiedliche Hintergrundfarben auszuwählen.
  • Achte darauf, dass deine Formeln korrekt sind, um unerwünschte Ergebnisse zu vermeiden.

FAQ: Häufige Fragen

1. Warum wird die Formel immer noch als Text angezeigt?
Stelle sicher, dass du Type:=xlExpression anstelle von Type:=xlCellValue verwendest.

2. Was ist die Funktion von SetFirstPriority?
Diese Methode sorgt dafür, dass die bedingte Formatierung, die du hinzufügst, die höchste Priorität hat und somit andere Regeln überschreibt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige