Microsoft Excel

Herbers Excel/VBA-Archiv

Bedingte Formatierung mit VBA | Herbers Excel-Forum


Betrifft: Bedingte Formatierung mit VBA von: Thomas
Geschrieben am: 23.01.2012 14:40:06

Hallo!

Wie kann ich eine bedingte Formatierung per VBA mit einem Toggle-Button verbinden?

Die Formatierung ist die Anzeige doppelter Zelleinträge.

Für Spalte A
(A$2:A$50000;$A2)
dann Farbe GELB

Die beiden Spalten sollten per Toggle-Button miteinander ein- und ausgeschaltet werden können (kein Umschalten). Anstelle von 50'000 kann auch die ganze Spalte gewählt werden (ausgenommen Zeile 1, da befindet sich der Titel und andere Buttons).

Weiss jemand Rat?

Danke
Thomas

  

Betrifft: Nochmals das RICHTIGE Posting... von: Thomas
Geschrieben am: 23.01.2012 14:44:46

Hallo!

Wie kann ich eine bedingte Formatierung per VBA mit einem Toggle-Button verbinden?

Die Formatierung ist die Anzeige doppelter Zelleinträge.

Für Spalte A
ZÄHLEN WENN($A$2:$A$50000;$A2)
dann Farbe GELB

Für Spalte C
ZÄHLEN WENN($C$2:$C$50000;$C2)
dann Farbe GELB

Nach beiden Formeln gehört noch ein "grösser 1" hin, was der Browser aber nicht annimmt ;-(


Die beiden Spalten sollten per Toggle-Button miteinander ein- und ausgeschaltet werden können (kein Umschalten). Anstelle von 50'000 kann auch die ganze Spalte gewählt werden (ausgenommen Zeile 1, da befindet sich der Titel und andere Buttons).

Weiss jemand Rat?

Danke
Thomas


  

Betrifft: AW: Nochmals das RICHTIGE Posting... von: Rudi Maintaire
Geschrieben am: 23.01.2012 14:57:50

Hallo,
LinkedCell des TB z.B. E1
=UND(E$1;ZÄHLENWENN($A$2:$A$50000;A2)>1)

Gruß
Rudi


  

Betrifft: Dateiupload von: Thomas
Geschrieben am: 23.01.2012 16:01:08

Hallo Rudi

Leider weiss ich wenig mit deiner Antwort anzufangen.

Die Tabelle:
https://www.herber.de/bbs/user/78565.xls

Im TB 'Dateien' habe ich den Toggle "Doppelte DS" eingefügt.
Welcher VBA-Code muss dort eingegeben werden, damit die doppelten Zellen farbig markiert werden? Die beiden Spalten sollten unabhängig voneinander geprüft, aber mit demselben Klick gefärbt werden.

Toggle ein = gelbe Färbung gleichnamiger Zellen in den Spalten A + C
Toggle aus = Färbung aus in A + C aus

Diese Tabelle hat zwischen wenigen Dutzend und mehreren zehntausend Zeilen, je nach eingelesenen Ordnern (HD's).

Mit der genannten Färbung kann man neben der Grösse einer Datei auch noch ihren Namen vergleichen und ggf. mit Klick ins blaue Feld öffnen und manuell prüfen.

Ein sehr praktisches Tool - übrigens ;-)

Doch was gehört in den Togglebutton? Weisst du Rat?

Gruss
Thomas


  

Betrifft: AW: Dateiupload von: Rudi Maintaire
Geschrieben am: 23.01.2012 16:39:40

Hallo,
was gibt es da nicht zu verstehen?
Du brauchst keinen Code für den Togglebutton. Nur eine verknüpfte Zelle (LinkedCell).
Eigenschaften des Togglebuttons öffnen und bei LinkedCell I1 eintragen.
Bed.Formatierung für A2:A50000: =UND(I$1;ZÄHLENWENN(A$2:A$50000;A2)>1)

Gruß
Rudi


  

Betrifft: AW: Dateiupload von: Thomas
Geschrieben am: 23.01.2012 17:01:49

Hallo

Das funktioniert zwar, kann ich leider aber nicht einsetzen.
Die Tab wird öfters aktualisiert, was bed. Formatierungen automatisch löscht (wenn sie nicht per VBA eingegeben sind).

Die Lösung muss vermutlich mit VBA geschrieben werden. Auch ist die Zeilenanzahl dynamisch. Die jetzt vorhandenen Farbquadrate oder die roten Kreuze zum Löschen erscheinen nur, wenn die Zeile einen Datensatz enthält. Das hält die Tabelle so schlank wie möglich.

Weisst du eine VBA-Lösung?

Gruss Thomas


  

Betrifft: AW: Dateiupload von: Josef Ehrensberger
Geschrieben am: 27.01.2012 22:32:08


Hallo Thomas,

https://www.herber.de/bbs/user/78629.xls

beim nächsten Mal mach ich die Datei gleich wieder zu!

Keine Variablen Deklarationen, kein "Option explicit", etc.






« Gruß Sepp »



  

Betrifft: Klappt..! von: Thomas
Geschrieben am: 29.01.2012 18:49:02

Hi Josef

Besten Dank, das scheint einwandfrei zu funktionieren!

Was aber sind variable Deklarationen/Option explicit? Ist das was Gefährliches? So gut kenne ich mich in Excel nicht aus, dass ich die Bedeutung davon kenne.

Sollte man das besser entfernen? Wenn ja: Wie..??

Gruss Thomas


  

Betrifft: Klappt..! von: Thomas
Geschrieben am: 29.01.2012 19:24:08

Hi Sepp

Eine Frage habe ich noch:
Wenn die doppelten angezeigt sind - lassen sich die Nichtdoppelten gleichzeitig ausblenden? Das wäre eigentlich der Krönungsbutton ;-)

Gruss Thomas


Beiträge aus den Excel-Beispielen zum Thema "Bedingte Formatierung mit VBA"