Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellformat bestimmt Zellfarbe

Zellformat bestimmt Zellfarbe
16.12.2008 08:27:34
Daniel
Hallo Excel-Götter,
ich suche eine Möglichkeit, anhand des Formats einer Zelle die Zellfarbe zu definieren (automatisch).
Also, wenn die Zelle als Text formatiert ist, dann z.B. gelb, wenn sie als Zahl formatiert ist, dann z.B. rot, und als % z.B. blau.
Bedingtes Format geht nicht, da ich das schon anderweitig verwenden muss.
Ich suche die Lösung für eine Datei mit mehreren Mappen, und es sollte für alle Mappen gleichzeitig gehen.
Vielen Dank für Eure Hilfe!
Daniel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellformat bestimmt Zellfarbe
16.12.2008 09:21:00
Ingo
Hallo Daniel,
vielleicht so, aber bei vielen Zellen kann das ganz schön lange dauern.

Sub Zellfarben()
Dim wks As Worksheet
Dim rng As Range
For Each wks In ThisWorkbook.Sheets
For Each rng In wks.UsedRange
Select Case rng.NumberFormat
Case "@" 'Textformat
rng.Interior.ColorIndex = 6
Case "0.00" 'Zahl
rng.Interior.ColorIndex = 3
Case "0.00%" 'Prozent
rng.Interior.ColorIndex = 5
End Select
Next rng
Next wks
End Sub


mfG
Ingo Christiansen

AW: Zellformat bestimmt Zellfarbe
16.12.2008 09:35:00
Daniel
Hallo Ingo,
Vielen Dank für dieHilfe, das scheint zu funktionieren; hast Du mir noch einen Tipp wo ich sehe, wie die Zellformate in VBA abgesprochen werden (also @ = Text usw.) Ich habe auch Zellen, die als benutzerdefiniertes Uhrzeitformat hh:mm formatiert sind.
Und, zweite Frage: wie muss ich das Makro ergänzen, dass ich die Farbeinstellung per Zahleneingabe definieren kann?
Und noch zum Verständnis: das Makro kopiere ich in "DieseArbeitsmappe", dann gilt es für sämtliche Tabellenblätter?
Anzeige
AW: Zellformat bestimmt Zellfarbe
16.12.2008 10:13:20
hary
Hallo Daniel
Ingo ist wohl unterwegs.
Fuer andere Farben abhaengig vom Zelleintrag:
rng.Interior.ColorIndex = Range("A1") ' hier wird die Farbzahl aus Zelle A1 genommen.
Das Ist ein Makro, fueg es in ein Modul ein.
Das Format bekommst Du raus, wenn Du mit rechts in die Zelle klickst dann siehst Du ja das Format der Zelle diese brauchst Du nur zu uebernehmen zb.: "hh:mm"
Gruss Hary
AW: Zellformat bestimmt Zellfarbe
16.12.2008 10:24:00
Ingo
Hallo Daniel,
Zellformate und Farbindex am besten mit dem Macrorecorder aufzeichnen und dann als weitere case-Anweisungen innden Code einfügen.
das makro einfach in ein Modul einfügen
mfG
Ingo Christiansen
Anzeige
AW: Zellformat bestimmt Zellfarbe
17.12.2008 14:05:07
Daniel
Hallo Leute,
vielen Dank für die Hilfe, funktioniert genau so wie ich mir das gedacht habe!
Beste Grüsse
Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige