Makro - Bedingte Formatierung | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marcel
Schau mal, mein Makro sieht so aus....
Wie müsste ich nun das If ... ... Then einfügen?
Danke!


Sub Makro14()
Columns("A:F").Select
Selection.FormatConditions.Delete
'1. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total DG"""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(1).Interior.ColorIndex = 37
'2. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total VU"""
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(2).Interior.ColorIndex = 37
'3. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total Service"""
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(3).Interior.ColorIndex = 45
'4. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total Kundenversuch"""
With Selection.FormatConditions(4).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(4).Interior.ColorIndex = 45
'5. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total Kundenschulungen"""
With Selection.FormatConditions(5).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(5).Interior.ColorIndex = 45
'6. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$A1=""Total Engineering"""
With Selection.FormatConditions(6).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(3).Interior.ColorIndex = 45
Range("A1").Select
End Sub

zur frage 1 hier der code erweitert:
Columns("A:F").Select
Selection.FormatConditions.Delete
'Selection.Interior.ColorIndex = xlNone
'1. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER($A1=""Total DG"";$A1=""Total VU"")"
Selection.FormatConditions(1).Interior.ColorIndex = 32
With Selection.FormatConditions(1).Font
.Bold = True
End With

'2. Bedingung
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND(ODER($A1""Total DG"";$A1""Total VU"";);TEIL($A1;1;5)=""Total"")"
Selection.FormatConditions(2).Interior.ColorIndex = 45
With Selection.FormatConditions(2).Font
.Bold = True
End With
zur Frage 2:
dies würde ich über die Funktion SUMMEWENN() abhanden, also ohne vba-code.
viel erfolg

Beliebteste Forumthreads (12 Monate)

Makro - Bedingte Formatierung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread