Office: (Office 2016) Per VBA Zellen mit Inhalt färben

Hi zusammen,

ich hab ein Makro welches an für sich tut was es soll, bei bestimmten Zellinhalten soll es färben^^
Nun zu meinem Prob.
Gibt es ne Möglichkeit, dass hier das Makro bei Klein- bzw. Großschreibung reagiert und die ersten zwei Zeilen ebenfalls funktionieren?

Also bei Werten in Zellen <0 oder >0
Ich hab zum Verständnis die entsprächenden Änderungen "rot" geschrieben.
Wäre für Eure Hilfe dankbar, LG

HTML:

Sub farbe() 'Makro nur für Tabellenblatt "Urlaubsplanung"
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("C3:C33110")
For Each Zelle In Bereich
Select Case Zelle.Value
  
    
 
'Stunden abgleiten
  Case "<0":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 41
    

'Stunden aufbauen
 Case ">0":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 46
 
  
'Arbeitsunfall
Case "A" or "a":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 47
     
'Abwesend
  Case "AW":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 15
    
'Versetzung andere Abteilung
  Case "C":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
       
'Dienstreise
    Case "DR":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
   
'Erziehungsurlaub
Case "E":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
  
'Frühschicht
Case "FS":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 36
   
'Frühschicht Einsatz
Case "FSE":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 36
    
'Gleitzeit
Case "G":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 32
 
'Haushaltshilfe
Case "H":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2

'Krank
Case "K":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 3

'Kind Krank
Case "KK":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 22

'Lehrgang
Case "H":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
    
'Mutterschutz
Case "M":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
    
'Unbezahlter Urlaub
Case "N":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2
    
'Nachtschicht
Case "NS":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 15
     
'Nachtschicht Einsatz
Case "NSE":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 15
       
'Bundeswehr
Case "Q":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 41
    
'Kur / Reha
Case "R":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 7
    
'Sonderurlaub
Case "S":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 7
        
'Spätschicht
Case "SS":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 35
    
'Spätschicht Einsatz
Case "SSE":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 35
        
'0,5 Tage Urlaub
Case "T":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 4
 
'Tagschicht
Case "TS":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 7
     
'Urlaub
Case "U":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 4
    
'Urlaub geplant
Case "U1":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 6
    
'Wegeunfall
Case "W":
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 2

'Bezahlte Freistellung
Case "X":
    Zelle.Font.ColorIndex = 2
    Zelle.Interior.ColorIndex = 10
    
'Altersfreizeit
Case "Z":
    Zelle.Font.ColorIndex = 2
    Zelle.Interior.ColorIndex = 10
    

End Select
Next Zelle
End Sub

'Stunden abgleiten
Case "<0":
Zelle.Font.ColorIndex = 1
Zelle.Interior.ColorIndex = 41


'Stunden aufbauen
Case ">0":
Zelle.Font.ColorIndex = 1
Zelle.Interior.ColorIndex = 46


'Arbeitsunfall
Case "A" or "a":
Zelle.Font.ColorIndex = 1
Zelle.Interior.ColorIndex = 47

 

Moin!
Drei Anmerkungen:

1. Du gebrauchst 14 verschiedene Farbkombis. Wer soll die auseinander halten?
2. Warum nutzt Du nicht die bedingte Formatierung?
3. Warum liest Du nicht einfach die Hilfe zur Select Case - Anweisung?

https://www.excel-vba-lernen.de/excel-vba/2-die-wichtigsten-befehle/17-select-case-verzweigung/
Zu Deinen Fragen:
Statt Case ">0" nimmt man Case Is > 0
Statt Case "A" or "a" heißt es Case "A", "a"

Die Doppelpunkte kannst Du Dir schenken.
Die nimmt man nur, wenn man mehrere Zeilen in eine quetschen will.
also statt
Select Case "AW"
Zelle.Font.ColorIndex = 1
Zelle.Interior.ColorIndex = 15
kann man folgendes schreiben:
Select Case "AW": Zelle.Font.ColorIndex = 1: Zelle.Interior.ColorIndex = 15

Gruß Ralf

 

Danke für die schnelle rückmeldung, klappt alles bis auf den Fall
Case Is > 0. Hierbei wird jede Zelle in der was drinnen steht angesprochen. Soll aber nur die wo Werte (Zahlen haben >0)

Vielen Dank!

 

Ja, stimmt!
"a" ist > 0
Man könnte vorher auf IsNumeric(Zelle) prüfen.

Code:

Case Is > 0
  If IsNumeric(Zelle) Then
    Zelle.Font.ColorIndex = 1
    Zelle.Interior.ColorIndex = 46
  End If

Sehr viel sinnvoller ist mE jedoch, die Zahlen per bedingter Formatierung zu färben.

Gruß Ralf

 

Vielen lieben Dank! Genau was ich gesucht hatte