Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
04.05.2024 06:52:42
Daten aus anderem Registerblatt in ein neues übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter - bedingte Formatierung (VBA)

Filter - bedingte Formatierung (VBA)
07.09.2023 11:54:09
Erwin
Hallo Zusammen,

dadurch, dass ich viele breite Tabellen habe, musss ich immer genau nachsehen, wo ein Filter gesetzt ist oder nicht.

Im Netz habe ich eine Lösung gefunden, die ich gut finde; leider habe ich beim Aufruf der Internetadresse immer eine Fehlermeldung, sodass ich dort nicht nachfragen kann.

Mit der Funktion AF_KRIT wird der Filter farblich besser dargestellt und man erkennt sofort die gefilterten Spalten.
Allerdings ist es ein Problem, dass in der "Bedingten Formatierung" nur fix immer eine/zwei Zeilen fix enthalten sind.
Meine Tabellenüberschriften beginnen nicht immer in der gleichen Zeile, sodass die bedingte Formatierung immer manuell angepasst werden muss.
Mir schwebt eine Lösung über Button/InputBox vor, wo man die Zeile(n) der Überschrift(en) einfach markiert / auswählt und diese Variable dann automatisch für die Zeile(n) bei der Bedingten Formatierung benutzt wird.

Beispieldatei: https://www.herber.de/bbs/user/162707.xlsm

Kann hier bitte der Code angepasst werden?

Danke - Erwin

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 12:47:32
daniel
HI

der folgende Code erstellt die Bedingte Formatierung auf dem aktiven Blatt in den Zeilen, die du markiert hast für die Spalten mit Autofilter.
achtung, dieser Code ist länderspezifisch und funktioniert nur in deutschem Excel
für ein amerikantisches oder englisches Excel müsste man das ZS durch RC ersetzen. 
Sub Makro1()

If ActiveSheet.AutoFilterMode Then

    ActiveSheet.Cells.FormatConditions.Delete

    With Intersect(Selection.EntireRow, ActiveSheet.AutoFilter.Range.EntireColumn)

        With .FormatConditions.Add(Type:=xlExpression, Formula1:="=af_krit(ZS)")

            .Interior.Color = 5296274

        End With

    End With

End If

End Sub

Für die Funktion af_krit ist es eigentlich unerheblich, welche Zeile die übergebene Zelle hat, hier wird nur die Spaltennummer verwendet.

Gruß Daniel
Anzeige
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 13:15:11
Erwin
Hallo Daniel,

vielen Dank, dass du dich auch um dieses Anliegen kümmerst.

Ich habe deinen Code in die Beispieldatei eingefügt und ein wenig getestet. https://www.herber.de/bbs/user/162709.xlsm

Dabei habe ich das Beispiel mit ein paar Zeilen Überschriften angereichert und den Cursor irgendwie unter die letzte Zeile gesetllt.
Danach habe ich deinen Code ausgeführt; die Markierung wurde dann in die Zeile der Cursorposition gemacht, das stimmt leider nicht.
Brauche ich jetzt nur noch deinen Code oder auch die anderen beiden Codes?

Kannst du bitte noch einmal prüfen, was evtl. nicht passt.

Danke - Erwin
Anzeige
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 13:24:25
daniel
"die Markierung wurde dann in die Zeile der Cursorposition gemacht, das stimmt leider nicht."

naja, das war aber dein Wunsch, so hattest du es beschireben:

"Mir schwebt eine Lösung über Button/InputBox vor, wo man die Zeile(n) der Überschrift(en) einfach markiert / auswählt und diese Variable dann automatisch für die Zeile(n) bei der Bedingten Formatierung benutzt wird."

und "markieren" ist im Prinzip die Cursorpostion.
Du hast genau da bekommen, was du beschrieben hast.
Ich kann leider nicht hellsehen und kann dir daher nur das geben, was du schreibst, aber nicht das was du eigenlich willst.

aber es steht dir frei, den Code entsprechend deinen Wünschen anzupassen.
Gruß Daniel
Anzeige
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 13:30:39
daniel
du brauchst die Funktion auf jeden Fall.
dann brauchst du das Makro, dass die bedingte Formatierung einrichtet, falls du diese nicht von Hand erstellen willst.
das Calculate-Eventmakro brauchst du dann nicht mehr.
Gruß Daniel
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 13:37:50
Erwin
Hi Daniel,

du hast ja soooo recht, natürlich funktioniert es so wie du es gemacht hast.
Ich dachte, ich müsste dann irgendwie die Zeile(n) noch gesondert markieren, aber wenn die Cursorposition ausreicht, um so besser.
Danke noch für den Hinweis wegen des ...Calculate... Makros.

Grüße - Erwin
AW: Filter - bedingte Formatierung (VBA)
07.09.2023 14:01:12
daniel
ja, ich erstelle das normalerweise so, wie man auch normal in Excel arbeitet:
den Bereich auswählen, der bearbeitet werden soll, dann das Makro starten und fertig.
man kann natürlich auch im Makro selbst den Zellbereich abfragen, wenn man das möchte, hierzu kann man dann 
set rngBereich = Application.InputBox("Meldun", Type:=8)

verwenden, also eine Inputbox, in der man keinen Text, sondern einen Zellbereich eingeben kann.
Aber in der Regel ist es einfacher, die Zellen vorher zu markieren und dann diese zu bearbeiten.
Gruß Daniel
Anzeige
AW: Filter - bedingte Formatierung (VBA) Danke nochmal (owT)
07.09.2023 14:10:51
Erwin

299 Forumthreads zu ähnlichen Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Anzeige
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Bedingte Formatierung Formel zwischen
lutz

Hallo,
ich komme beie einer bedingten Formatierung nicht weiter:
ich brauche eine Formel, die nur dann die bedingte Formatierung ausgibt wenn ein Vergleichswert in Spalte D zwischen den minimal und maximalwerten aus den Spalten B (min) und C (max) liegt.
Habe es mit =WENN($D$4>$B...
27.01.2009 07:55:00
Thread-ID: 1044063
3 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
6
19
8
5
2
3
4
1
3
7
4
6
2
7
7
2
2
2
2
4
2
11
8