Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Bedingte Formatierung als Makro

Forumthread: Bedingte Formatierung als Makro

Bedingte Formatierung als Makro
24.07.2013 11:31:18
Thomas
Hallo zusammen,
ich brächte folgende Bedingte Formatierung als Makro.
Bedingte Formatierung:
Werte formatieren, für die diese Formel wahr ist: 

=ZÄHLENWENN(A8:A240;A8)>1

Wird angewendet auf: 

=$A$8:$NG$240

Formatierung: Ausfüllen mit hellgrüner Farbe
Vielen Dank!
Gruß
Thomas

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Und ich bräuchte Urlaub
24.07.2013 12:47:50
JACKD
Du kannst ja schonmal den Makrorekorder laufen lassen und wir helfen dir dann deinen Code zu optimieren.
Grüße

AW: Und ich bräuchte Urlaub
24.07.2013 13:18:42
Thomas
Hallo,
so sieht der aufgezeichnete Code aus:
Sub Makro2()
' 
' Makro2 Makro
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZÄHLENWENN(A8:A240;A8)>1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Nur wenn ich das Makro so laufen lasse, passiert nichts...
Gruß
Thomas

Anzeige
AW: Und ich bräuchte Urlaub
24.07.2013 15:16:40
Matze
Hallo Thomas,
warum muss das VBA sein ?
Markiere den Bereich A8:NG200 Neue Bedingung
Formel =$A8>=1 Farbe wählen FERTIG OK
So gewollt ?
Matze

AW: Und ich bräuchte Urlaub
24.07.2013 15:46:15
Thomas
Hallo Matze,
soll VBA sein, da in dem Tabellenblatt die automatische Berechnung deaktiviert ist.
Vereinfacht wäre es auch zu lösen mit Bedingter Formatierung und dein ein Makro mit "calculate" aber ist nicht die schönste Lösung.
Gruß
Thomas

Anzeige
Profi bitte drüberschauen -
24.07.2013 16:23:42
Matze
Hallo Thomas,
Vorgabe: des Tabellenblatt ist "automatische Berechnung" aus!!
..ich werde dir hier nicht weiterhelfen können und stelle nachher den Beitrag auf offen.
Das Private Sub Worksheet_Change(ByVal Target As Range) Ereignis in einer Tabelle
wäre jetzt mein Vorschlag gewesen , leider funktioniert das nicht mit der Formel Aktualisierung.
Da muesste dann ebenfalls ein Calculate mit rein. Also kannst du schon wie oben die einfache Variante nutzen.
Hier gibt's Profis, daher nun offen
Matze

Anzeige
AW: Profi bitte drüberschauen -
25.07.2013 15:01:33
fcs
Hallo Thomas,
für mich ist unklar in welchem Zellbereich jeweils peprüft werden soll ob der Zellinhalt mehr als 1-mal vorkommt.
Da scheinen mir in der Formel deiner bedingten Formatierung ein paar $-Zeichen zu fehlen.
Wenn du mit bedingter Formatierung(inkl. Formel) arbeittest und Berechnung auf manuell steht, dann muss du nur Taste F9 drücken zur Neuberechnung.
Eine Makrolösung sieht etwa wie folgt aus. Sie benötigt aber auch schon ein paar Sekunden bei der Anzahl Zellen.
Gruß
Franz 
Sub Formatieren()
Dim wks As Worksheet
Dim rngZelle As Range, rngPruefen As Range, rngZaehlen As Range
Set wks = ActiveSheet
Set rngPruefen = wks.Range("A8:NG240")
Set rngZaehlen = wks.Range("A8:A240")
Application.ScreenUpdating = False
rngPruefen.Interior.ColorIndex = xlColorIndexNone 'oder andere Basisfarbe setzen
For Each rngZelle In rngPruefen
'Prüft Anzahl Zellinhalt in Spalte A
If Application.WorksheetFunction.CountIf(rngZaehlen, rngZelle.Value) > 1 Then
'Prüft Anzahl Zellinhalt in Spalte der Zelle
'If Application.WorksheetFunction.CountIf(rngZaehlen.Offset(0, _
rngZelle.Column - rngZaehlen.Column), rngZelle.Value) > 1 Then
rngZelle.Interior.Color = RGB(0, 255, 0) 'hellgrün
End If
Next
Application.ScreenUpdating = True
MsgBox "Fertig mit Formatieren"
End Sub

Anzeige
Nachfrage
24.07.2013 16:01:16
mpb
Hallo Thoams,
sollen wirklich über VBA die Zellen bedingt formatiert werden, oder reicht es, die Zellen im genannten Bereich, die die Bedingung erfüllen, hellgrün zu färben?
Gruß
Martin

Versehentlich geschlossen, nun wieder geöffnet oT
24.07.2013 16:07:06
mpb

Forumthreads zu verwandten Themen

Bereich Bedingte Formatierung einbetonieren?
Daniel

moin
meine Arbeit ist Daten von Baustellen Zeilenweise im Excel zu erfassen in einem VBA modifizierten Eigen-Vorlage um daraus Ausmasse zu erstellen für die Rechnungstellung ect. Funktioniert soweit gut bis auf die Bedingte Formatierung. Minus und Nullwerte sollten in einem Festgelegten Ber...
24.01.2019 19:02:32
Thread-ID: 1670689
3 Beiträge
Anzeige
Bedingte Formatierung mit Auswertung VBA
mckater
Ich habe ein Problem mit der "Bedingten Formatierung" in Excel
Wenn z.B. Zelle K wie Zelle M folgendes haben von Messdaten die lt. bedingter Formatierung ROT bzw. schwarz gehalten werden
(rot natürlich für außerhalb der Toleranz und der VBA Code liest es und macht ein x oder eine o)....per M...
14.01.2026 10:24:11
Thread-ID: 2023121
13 Beiträge
VBA; Bed. Format.; Bezug auf noch nicht vorhandenes Blatt
Excel_Rolf
Ein herzliches Hallo in die Runde

Aufgrund eigener überschaubarer Fachkenntnis, bräuchte ich mal eure Hilfe. Es ist eigentlich eine recht simple Sache, die mich allerdings zum Verzweifeln bringt:

Hintergrund und bisherige "Lösung"
Ich habe einen Monats-Plan für unsere Firma, in...
27.03.2025 15:02:34
Thread-ID: 2009740
4 Beiträge
bedingte Formatierung mit VBA
Sebastian

Hallo zusammen,
ich möchte eine bedingte Formatierung in Excel mit VBA lösen und habe folgendes Problem:
Mithilfe einer Userform erstellt ein Benutzer ein neues Tabellenblatt. Dabei wird in Abhängigkeit von den Angaben in der Userform (z.B. die Anzahl der Spalten) ein Bereich festgelegt...
21.09.2018 16:40:07
Thread-ID: 1647019
2 Beiträge
VBA und bedingte Formatierung
Adil

Hallo allerseits,
ich fang dann mal an. Ich wurde darum gebeten, in Excel eine Tabelle zu erstellen, bei dem der Anwender folgendes haben möchte:
1. Sobald getippt wird, soll die Zelle eine Farbe erhalten.
2. Jede Zelle soll mit einem Doppelklick die Farbe ändern - beim zweiten Dopp...
12.08.2020 23:53:22
Thread-ID: 1776638
5 Beiträge
Bedingte Formatierung VBA
Phil

Hallo Liebe VBA Profis,
erst einmal danke für dieses tolle Forum, was mir schon bei vielen Problemen geholfen hat.
Dummerweise habe ich dieses mal keine Antwort auf mein Problem gefunden, deshalb schreibe ich nun und hoffe, dass mir jemand helfen kann:
Ohje wo soll ich anfagen..?
30.06.2011 18:33:44
Thread-ID: 1220368
5 Beiträge
Formeln erstellen unter "bedingter Formatierung"
Pogonatherum

Ich habe mal wieder ein Problem.
Ihr hattet mir den Hinweis auf die bedingte Formatierung gegeben.
In meiner Excel Tabelle schreibe ich alle meine Rechnungen auf: RecNr., Datum, Empfänger, Betrag und wenn beglichen: Datum der Bezahlung.
Durch die bedingte Formatierung werden automat...
27.05.2006 19:33:10
Thread-ID: 767955
9 Beiträge
Anzeige
bedingte Formatierung / VBA
Gaby

bedingte Formatierung / VBA
Hallo :-),
nun, wer ggf meine "Fragerei" verfolgt, stellt fest, dass ich mich an einem Projekt festbeiße, um dies für die Anwendung von Kollegen zu optimieren.
Ich habe nun herausfinden können, wie ich die Tabellenblätter mittels eines Makros automatisch...
15.12.2020 13:10:42
Thread-ID: 1799756
6 Beiträge
bedingte formatierung Formel wenn
chris

Hallo VBA,Excel Experten,
ich komme nicht weiter.
Ich möchte gerne eine Bedingte formatierung erstellen oder mehere mit formeln aber klappt nicht.
Folgende formel liefert das ergebniss 4
=WENN(E7="";"";NETWORKDAYS(E7;HEUTE()))
Ich möchte das 3 bedingte formatierungen eingeri...
09.09.2010 15:53:37
Thread-ID: 1176618
6 Beiträge
bedingte Formatierung in Textboxen
Steffen

Hallo
Ich bin neu hier und habe noch nicht viel Erfahrung mit Excel VBA.
Versuche gerade mir eine Userform erstellen.
Ich habe ein Schichtplan wo die Zellen bedingte formatiert sind also mit Farbe und Datumsformat und Formeln und Schrift
Meine erste frage: Besteht die Möglichkei...
30.09.2018 14:12:46
Thread-ID: 1648610
21 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung in Excel mit VBA

Schritt-für-Schritt-Anleitung

Um eine bedingte Formatierung in Excel über VBA zu erstellen, folge diesen Schritten:

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

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".

  3. Füge den folgenden Code ein:

    Sub MakroBedingteFormatierung()
   Dim rngPruefen As Range
   Set rngPruefen = Range("$A$8:$NG$240")

   ' Alte Formatierung zurücksetzen
   rngPruefen.Interior.ColorIndex = xlColorIndexNone

   Dim rngZelle As Range
   For Each rngZelle In rngPruefen
       If Application.WorksheetFunction.CountIf(Range("A8:A240"), rngZelle.Value) > 1 Then
           rngZelle.Interior.Color = RGB(0, 255, 0) ' hellgrün
       End If
   Next rngZelle

   MsgBox "Fertig mit Formatieren"
End Sub

  4. Führe das Makro aus: Drücke F5 oder gehe zu "Run" > "Run Sub/UserForm".

Damit werden alle Zellen im Bereich $A$8:$NG$240, die die Bedingung erfüllen, in hellgrün formatiert.

Häufige Fehler und Lösungen

  1. Das Makro funktioniert nicht: Überprüfe, ob die automatische Berechnung deaktiviert ist. In diesem Fall musst du eventuell F9 drücken, um die Neuberechnung auszulösen.

  2. Falsche Zellreferenzen: Stelle sicher, dass die Zellreferenzen in der CountIf-Funktion korrekt sind. Es können $-Zeichen fehlen, die die absolute Referenzierung sicherstellen.

  3. Formatierung bleibt aus: Vergewissere dich, dass der Bereich korrekt gesetzt ist und dass die Formel in der CountIf-Funktion korrekt ist, um die Zellen zu zählen.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch die integrierte Funktion zur bedingten Formatierung in Excel nutzen:

  1. Markiere den Bereich $A$8:$NG$240.

  2. Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".

  3. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib die folgende Formel ein:

    =ZÄHLENWENN($A$8:$A$240; A8) > 1

  4. Stelle die Formatierung auf hellgrün ein und klicke auf "OK".

Praktische Beispiele

Hier sind einige Anwendungsbeispiele für die VBA bedingte Formatierung:

  • Duplikate in einer Liste hervorheben: Verwende die oben angegebene CountIf-Formel, um Zellen zu identifizieren, die mehrere Male vorkommen.

  • Dynamische Zellenformatierung: Wenn du Daten importierst und die Zellen automatisch formatieren willst, kannst du das VBA-Makro in einem Arbeitsblatt-Ereignis wie Worksheet_Change einfügen.

Tipps für Profis

  • Verwende xlThemeColorAccent2 für konsistente Farben: Bei der Verwendung von ThemeColor kannst du sicherstellen, dass die Formatierung im gesamten Workbook konsistent bleibt.

  • Setze die ScreenUpdating-Eigenschaft auf False: Dies verbessert die Leistung des Makros, insbesondere bei großen Datenmengen.

  • Teste den Code in einer Kopie deiner Datei: Um Datenverluste zu vermeiden, teste neue Makros immer in einer Sicherungskopie.

FAQ: Häufige Fragen

1. Kann ich die bedingte Formatierung auch in Excel Online verwenden?
Bedingte Formatierungen über VBA sind in Excel Online nicht verfügbar. Du kannst jedoch die standardmäßigen bedingten Formatierungsoptionen verwenden.

2. Wie kann ich die Formatierung wieder entfernen?
Du kannst das Makro anpassen, um die Formatierung zurückzusetzen, indem du Interior.ColorIndex auf xlColorIndexNone setzt, bevor du die neuen Formatierungen anwendest.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum