Clever-Excel-Forum

Zusammengefasst aus zwei Beiträgen von RPP63:
http://www.clever-excel-forum.de/thread-...l#pid45678
http://www.clever-excel-forum.de/thread-...l#pid45703

Formatierung einer Zelle in Abhängigkeit vom Inhalt:

1.) Bedingte Formatierung
Spalte markieren,
Bedingte Formatierung, neue Regel, Formel ist:
=RECHTS(A1;3)="xls"
Farbe zuweisen,
…

	A
1	XXX.jpg
2	XXX.xls
3	XXX.doc

Zelle	bedingte Formatierung...	Format
A1	1: =RECHTS(A1;3)="doc"	abc
A1	2: =RECHTS(A1;3)="jpg"	abc
A1	3: =RECHTS(A1;3)="xls"	abc
A2	1: =RECHTS(A2;3)="doc"	abc
A2	2: =RECHTS(A2;3)="jpg"	abc
A2	3: =RECHTS(A2;3)="xls"	abc
A3	1: =RECHTS(A3;3)="doc"	abc
A3	2: =RECHTS(A3;3)="jpg"	abc
A3	3: =RECHTS(A3;3)="xls"	abc

2.) VBA-Makros:

Gängige RGB-Werte (hier für RAL-Farbnummern) sind hier zu finden:
https://www.visual-graphics.de/de/servic...arbtabelle

Falls die Liste bereits besteht (allgemeines Modul):

Sub RPP()
Dim Zelle As Range
For Each Zelle In Intersect(Tabelle2.UsedRange, Tabelle2.Columns("A"))
   Select Case Right(Zelle, 3)
      Case "jpg": Zelle.Interior.Color = RGB(255, 0, 0)
      Case "xls": Zelle.Interior.Color = RGB(0, 255, 0)
      Case "doc": Zelle.Interior.Color = RGB(0, 0, 255)
      Case "mp3": Zelle.Interior.Color = RGB(20, 50, 70)
      ' weitere Fälle 
   End Select
Next
End Sub

Für neue Einträge ginge folgendes Ereignismakro
(Rechtsklick auf Tabellenreiter, Code anzeigen)

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Column = 1 And .Count = 1 Then
      Select Case Right(.Value, 3)
         Case "jpg": .Interior.Color = RGB(255, 0, 0)
         Case "xls": .Interior.Color = RGB(0, 255, 0)
         Case "doc": .Interior.Color = RGB(0, 0, 255)
         Case "mp3": .Interior.Color = RGB(20, 50, 70)
         ' weitere Fälle 
         Case "": .Interior.Color = xlNone 'Farbe entfernen 
      End Select
   End If
End With
End Sub