Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel : Text nach Extension (Erweiterung) farbig darstellen
#1
Hallo Excel Spezialisten ich benötige eure Hilfe
 
Situation
Ich habe eine Excelliste wo ich Teile der Festplatte ausgelesen und eingetragen habe.
Nun hätte ich gerne die Eintragungen nach Extension (Erweiterung) farblich dargestellt.
 
Beispiel
 
XXX.jpg soll farbig Text 3 (rot)
XXX.xls soll farbig Text 14 (grün)
XXX.doc soll farbig Text 5 (blau)
usw dargestellt werden.
 
Wie kann ich dies lösen, wo und wie müsste ich Eintragungen vornehmen.
Auf meinen PCs ist Excel 2003 und Excel 2013 installiert.
 
Vielen Dank schon im Voraus
 
Sir Anthony
Antworten Top
#2
Moin!
Spalte markieren,
Bedingte Formatierung, neue Regel, Formel ist:
=RECHTS(A1;3)="xls"
Farbe zuweisen,


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

Zellebedingte Formatierung...Format
A11: =RECHTS(A1;3)="doc"abc
A12: =RECHTS(A1;3)="jpg"abc
A13: =RECHTS(A1;3)="xls"abc
A21: =RECHTS(A2;3)="doc"abc
A22: =RECHTS(A2;3)="jpg"abc
A23: =RECHTS(A2;3)="xls"abc
A31: =RECHTS(A3;3)="doc"abc
A32: =RECHTS(A3;3)="jpg"abc
A33: =RECHTS(A3;3)="xls"abc

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Sir Anthony
Antworten Top
#3
Danke für den Tipp, nur leider funktioniert dies nicht so wie ich es mir vorstelle, da man ja nur 3 bedingte Formatierungen zur Verfügung hat und ich doch über 10 benötigen würde.

Sir Anthony
Antworten Top
#4
Hallo!
Nicht ganz Ernst gemeint:
Willst Du die 13 Jahre alte Software, für die es keine Sicherheitsupdates mehr gibt, nicht mal einmotten?
Empfindest Du 10 verschiedene Farben als noch übersichtlich?

Sei es drum, dies geht dann nur mittels VBA.
Gängige RGB-Werte (hier für RAL-Farbnummern) findest Du hier:
https://www.visual-graphics.de/de/servic...arbtabelle

Falls die Liste bereits besteht:
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


Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#5
Hallo Sir,

da Du auf Deinem PC 2003 und 2013 hast, würde ich die Datei mit 2013 bearbeiten und dort hast Du 64 Möglichkeiten.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#6
Moin André!

Wenn Abwärtskompatibilität benötigt wird, geht es nur mittels VBA.
Allerdings schrieb ich ja auch etwas zum "Entsorgen" der Uralt-Version Wink

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste