Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe bei 10 Zahlenwerten

Zellfarbe bei 10 Zahlenwerten
08.11.2006 10:18:28
thomas
Hallo,
ich benötige ein kleine Unterstützung.
Ich möchte, dass bei der Werteingabe( Zahlen von 1 bis 10) in einer Zelle z.B. A1 sich die Zellfarbe bei der Zahleneingabe ändert.
z.B.Zahlenwert 1 = hellgrün, Zahlenwert 2 = hellblau, Zahlenwert 3= rot usw.
Mit der bedingetn Zellformatierung klappt das ja recht gut, aber nur für 3 Bedingungen.
Hat jemand ein Makro mit dem ich die Zelle für 10 Zahlenwerte formatieren kann?
Danke für die Hilfe
thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe bei 10 Zahlenwerten
08.11.2006 10:24:27
lufrio1
Hallo Thomas,
das geht über bedingte Formatierung.
gehe auf die erste zu formatierende Zelle
gehe auf
format
bedingte Formatierung
wähle aus: Zellwert gleich 1 und klicke auf Format zum Farbe auswählen.
Dann hinzufügen drücken und die zweite Zahl mit Farbe definieren.
Viel Spaß
Lufrio
AW: Zellfarbe bei 10 Zahlenwerten
08.11.2006 10:31:47
Harald
Hallo Thomas,
hier eine Möglichkeit über Select Case. Code gehört ins betreffende Blattmodul und läuft los, sobald in einer Zelle etwas geändert wird (Bereich kann eingeschränkt werden)

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case Is = 1
Target.Interior.ColorIndex = 3
Case Is = 2
Target.Interior.ColorIndex = 15
'usw..
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub

Gruss Harald
Anzeige
AW: Zellfarbe bei 10 Zahlenwerten, - Vielen Dank!!
08.11.2006 10:43:20
thomas
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige