Supportnet / Forum / Tabellenkalkulation
Zellfarbe per VBA Ändern
Frage
Hallo an alle hier,
ich habe einen VBA Befehl wie folgt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "OFF"
Target.Font.ColorIndex = 31
Case "RG"
Target.Font.ColorIndex = 3
Case "O"
Target.Font.ColorIndex = 3
Case "MS"
Target.Font.ColorIndex = 3
Case "U"
Target.Font.ColorIndex = 10
Case "SU"
Target.Font.ColorIndex = 10
Case Else
Target.Font.ColorIndex = xlColorIndexAutomatic
End Select
End Sub
der ändert mir die Schriftfarbe, nun möchte ich aber für einen andere Tabelle das nicht die Schrift sondern die Zellfarbe geändert wird (bedingte Formatierung schon verarbeitet) ich denke das dies den VBA Profis hier nicht so schwer fallen dürfte.
Dank im vorraus.
Gruß Michael
Antwort 1 von JoeKe
Hallo Michael,
der Hintergrund heist "Interior". Also anstelle von Font - Interior einsetzen.
Gruß
JöKe
der Hintergrund heist "Interior". Also anstelle von Font - Interior einsetzen.
Gruß
JöKe
Antwort 2 von Michael10
Hallo JöKe,
Danke für die schnelle Anwort es geht.
Gruß Michael
Danke für die schnelle Anwort es geht.
Gruß Michael
Antwort 3 von Michael10
Hallo an alle nochmal
zu früh gefreut ich habe den VBA Befehl wie folgt geändert es geht aber leider nicht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "OFF"
Target.Interior.ColorIndex = 31
Case "RG"
Target.Interior.ColorIndex = 3
Case "O"
Target.Interior.ColorIndex = 3
Case "MS"
Target.Interior.ColorIndex = 3
Case "U"
Target.Interior.ColorIndex = 10
Case "SU"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = xlColorIndexAutomatic
End Select
End Sub
An was kann es liegen.
Gruß Michael
zu früh gefreut ich habe den VBA Befehl wie folgt geändert es geht aber leider nicht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "OFF"
Target.Interior.ColorIndex = 31
Case "RG"
Target.Interior.ColorIndex = 3
Case "O"
Target.Interior.ColorIndex = 3
Case "MS"
Target.Interior.ColorIndex = 3
Case "U"
Target.Interior.ColorIndex = 10
Case "SU"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = xlColorIndexAutomatic
End Select
End Sub
An was kann es liegen.
Gruß Michael
Antwort 4 von JoeKe
Hallo Michael,
hab das mal ausprobiert und es geht.
Was passiert oder passiert denn bei dir nicht?
JöKe
hab das mal ausprobiert und es geht.
Was passiert oder passiert denn bei dir nicht?
JöKe
Antwort 5 von Michael10
Hallo JöKe und alle anderen auch,
also ich hatte den Code in "Dieser Arbeitsmappe" und bei der Schriftfarben änderung ging das auch ! Nun habe ich den geänderten Code mal direkt in die Tabelle eingefügt nun geht es.
Eine Sache noch ist möglich das ganze so zu gestaltten das sich die Zellfarbenänderrung per VBA über die Farbänderrung der "Bedingten Formatierung" hinwegsetzt ?!
Gruß Michael
also ich hatte den Code in "Dieser Arbeitsmappe" und bei der Schriftfarben änderung ging das auch ! Nun habe ich den geänderten Code mal direkt in die Tabelle eingefügt nun geht es.
Eine Sache noch ist möglich das ganze so zu gestaltten das sich die Zellfarbenänderrung per VBA über die Farbänderrung der "Bedingten Formatierung" hinwegsetzt ?!
Gruß Michael