Bedingte Formatierung VBA?

Forumthread: 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

AW: Bedingte Formatierung VBA?

23.08.2013 09:22:48

Beverly
AW: Bedingte Formatierung VBA?

23.08.2013 10:52:39

Sascha
AW: Bedingte Formatierung VBA?

23.08.2013 11:06:38

Beverly
AW: Bedingte Formatierung VBA?

23.08.2013 11:34:32

Sascha

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

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

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
____________________$$$
___________________$$$$
__________________$$__$$
_________________$$___$$
_________________$$____$$
________________$$_____$$
__$$$$__________$$_______$$___________$$$$
___$$$$$$$$$$$$$_$________$$_______$$$$$$$
______$$_______$$$$$_________$___$$$$$$_$$$
_______$$$_________$$_________$$$$$$___$$$
________$$__________$$________$$$_____$$$
_________$$__________$_______$$______$$$
_________$$___________$_____$$_______$$
__________$$__________$____$$________$$
__________$$___________$__$$_________$$
___________$___________$_$$__________$$
________$$$$$$$______$$$$$$_________$$$
___$$$$_____$$__$$$____$$___________$$$
$$$$$$$_______$$$$_______$$________$$$$
_$$$___________$$__________$$____$$$$$$
__$$$$_________$____________$$$$$$$$$$$$
___$$$$_______$______________$$______$$$$$$$
____$$$______$$______________$$_________$$$$
_____$$$_____$$______________$$___________$$
_____$$$$___$_______________$$___________$$$
_______$$$__$$$_$$__________$$___________$$
_________$$$_$$__$$__________$$_________$$$
__________$$$$____$__________$$_________$$
__________$$$_____$__________$$________$$$
__________$$______$$________$$_________$$
_________$$$_______$_______$$$$$$$$$$__$$
_________$$________$$____$$$$$__$$$__$$$$
________$$$_______$__$$___$$$$$____$$$$$
________$$_______$$___$$$$$$$$$$$______$$
_______$$$_______$_____________$$______$$
_______$$________$_____________$$______$$$
______$$________$$_____________$$_______$$
_____$$_________$$_____________$$_______$$
___$$$$$$$$____$$$_____________$$________$
___$$$$$$$$$$$$$$$_____________$$________$$
__________$$$$$$$$_____________$$$________$$
________________$$$___________$$$$$$____$$$$
________________$$$__________$$$_$$_____$$$$
_________________$$$________$$$___$$$___$$$$
__________________$$$$_____$$$______$$$$$$$
________$$$$$$$$___$$$$___$$_____$$___$$$$$
______$$$_____$$$___$$$$$$$____________$$$
____$$$$$_______$$$_$$$$$$$__________$$$$
__$$$$$__________$$__$$$$$$___$$$__$$$$$
_$$$$____________$$$_$$_$$$_$$$$$$$$$$$
$$$$______________$$_$$_$$$$_$$$$__$$$$
_$$$$_____________$$_$$__$$_______$$$$
____$$$___________$$$$$__$$________$$
_____$$$_________$$$$$__$$_________$$
______$$$______$$$$$$$__$$______$$$$$
_______$$$$___$$$$$$$$___$$_______$$$
________$$$$$$$$$$_$$___$$$$$__$$$$$
__________$$$$$$___$$___$$_$$$$$$$$
___________________$$___$$__$$$$$$
___________________$$___$$___$$$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$___$$
___________________$$$$$$$

Beliebteste Forumthreads (12 Monate)

Forumthread: Bedingte Formatierung VBA?

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread