Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1324to1328
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
Inhaltsverzeichnis

Bedingte Formatierung VBA?

Bedingte Formatierung VBA?
22.08.2013 13:25:58
Sascha

Hallo,
mir gelingt es leider nicht folgende bedingte Formatierungen via Makro aufzuzeichen.
Kann man dies eventuell via VBA realisieren?
Formel
=NICHT($K2="")
Bereich
=$A$2:$M$500
Farbe
Grün
Formel
=NICHT($J2="")
Bereich
=$A$2:$M$500
Farbe
Orange
Formel
=$A$2:$L$5000
Bereich
=$A$2:$M$1000
Farbe
Rot
Hat jemand für mich eine Idee wie man das eventuell lösen kann?
Vorab vielen Dank.
LG
Sascha

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung VBA?
23.08.2013 09:22:48
Beverly
Hi Sascha,
die 3. Bedingung kann nicht verwendet werden.
Hier mal ein Code für die ersten beiden Bedingungen:
Sub BedingteFormatierung()
With Range("A1:M9")
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NICHT($K2="""")"
With .FormatConditions(.FormatConditions.Count).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NICHT($J2="""")"
With .FormatConditions(.FormatConditions.Count).Interior
.PatternColorIndex = xlAutomatic
.Color = 682978
.TintAndShade = 0
End With
End With
End Sub


Anzeige
AW: Bedingte Formatierung VBA?
23.08.2013 10:52:39
Sascha
Hallo Karin,
das funktioniert super, vielen Dank.
Warum kann man die dritte Bedingung nicht benutzen?
Liegt es am falschen Bereich.
Kann mann nicht einfach wenn die J und K nicht gefüllt sind,
die Zeilen von A bis M rot einfärben.
Vorab vielen lieben Dank.
LG
Sascha

AW: Bedingte Formatierung VBA?
23.08.2013 11:06:38
Beverly
Hi Sascha,
hast du schon mal versucht, die Formel von Hand einzugeben? Was du nicht von Hand machen kannst geht auch nicht per VBA.
Versuche es mal so, indem du den Code wie folgt ergänzt:
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND($J2"""";$K2"""")"
With .FormatConditions(.FormatConditions.Count).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With


Anzeige
AW: Bedingte Formatierung VBA?
23.08.2013 11:34:32
Sascha
Hallo Karin,
vielen Dank, mit dieser Formel hat es jetzt funktioniert.
"=UND($J2="""";$K2="""")"
Schönes WE
LG
Sascha
____________________$$$
___________________$$$$
__________________$$__$$
_________________$$___$$
_________________$$____$$
________________$$_____$$
__$$$$__________$$_______$$___________$$$$
___$$$$$$$$$$$$$_$________$$_______$$$$$$$
______$$_______$$$$$_________$___$$$$$$_$$$
_______$$$_________$$_________$$$$$$___$$$
________$$__________$$________$$$_____$$$
_________$$__________$_______$$______$$$
_________$$___________$_____$$_______$$
__________$$__________$____$$________$$
__________$$___________$__$$_________$$
___________$___________$_$$__________$$
________$$$$$$$______$$$$$$_________$$$
___$$$$_____$$__$$$____$$___________$$$
$$$$$$$_______$$$$_______$$________$$$$
_$$$___________$$__________$$____$$$$$$
__$$$$_________$____________$$$$$$$$$$$$
___$$$$_______$______________$$______$$$$$$$
____$$$______$$______________$$_________$$$$
_____$$$_____$$______________$$___________$$
_____$$$$___$_______________$$___________$$$
_______$$$__$$$_$$__________$$___________$$
_________$$$_$$__$$__________$$_________$$$
__________$$$$____$__________$$_________$$
__________$$$_____$__________$$________$$$
__________$$______$$________$$_________$$
_________$$$_______$_______$$$$$$$$$$__$$
_________$$________$$____$$$$$__$$$__$$$$
________$$$_______$__$$___$$$$$____$$$$$
________$$_______$$___$$$$$$$$$$$______$$
_______$$$_______$_____________$$______$$
_______$$________$_____________$$______$$$
______$$________$$_____________$$_______$$
_____$$_________$$_____________$$_______$$
___$$$$$$$$____$$$_____________$$________$
___$$$$$$$$$$$$$$$_____________$$________$$
__________$$$$$$$$_____________$$$________$$
________________$$$___________$$$$$$____$$$$
________________$$$__________$$$_$$_____$$$$
_________________$$$________$$$___$$$___$$$$
__________________$$$$_____$$$______$$$$$$$
________$$$$$$$$___$$$$___$$_____$$___$$$$$
______$$$_____$$$___$$$$$$$____________$$$
____$$$$$_______$$$_$$$$$$$__________$$$$
__$$$$$__________$$__$$$$$$___$$$__$$$$$
_$$$$____________$$$_$$_$$$_$$$$$$$$$$$
$$$$______________$$_$$_$$$$_$$$$__$$$$
_$$$$_____________$$_$$__$$_______$$$$
____$$$___________$$$$$__$$________$$
_____$$$_________$$$$$__$$_________$$
______$$$______$$$$$$$__$$______$$$$$
_______$$$$___$$$$$$$$___$$_______$$$
________$$$$$$$$$$_$$___$$$$$__$$$$$
__________$$$$$$___$$___$$_$$$$$$$$
___________________$$___$$__$$$$$$
___________________$$___$$___$$$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$$$$$$
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige