Zellen formatieren benutzerdefiniert

Computer: Software & Programmierung Office Software
1

Ich arbeite mit Excel 2000. Ich möchte Zellen formatieren abhängig davon, ob dort die Ziffer 1 oder 2 oder 3 oder 4 oder 5 steht.
Für jede Ziffer brauche ich eine andere Schriftgröße, eine andere Schriftfarbe und eine andere Hintergrundfarbe, evtl. auch noch Fettdruck oder Kursiv.
Mit der bedingten Formatierung kann ich leider nur mit 3 verschiedenen Möglichkeiten arbeiten. Ich brauche aber 5.
Was gibt es noch für Möglichkeiten ?
Danke!

2

hallo
bei Excel2000 ist in der bedingten Formatierung wie du schon schreibst bei drei Bedingungen Schluss.

Beachte, das dir damit 4 Bedingungen zur Verfügung stehen,
denn die Standarteinstellung ist ja auch noch da.
Es macht keinen Sinn diese Einstellung grundsätzlich bedingt „weg zu formatieren“.

Macht eine fehlende Formatierung:
Wenn des dir reicht, die Schriftfarbe zu anzupassen ist das Zellenformat eine Möglichkeit:
[Rot][=1]Standard;[Grün][=2]Standard;Standard

Recht das nicht, benötigst du ein Makro
Gruß Holger

3

Reicht das nicht, benötigst du ein Makro

… oder versuchst vielleicht mal das hier: http://www.xldynamic.com/source/xld.CFPlus.Download…

4

Ich arbeite mit Excel 2000. Ich möchte Zellen formatieren
abhängig davon, ob dort die Ziffer 1 oder 2 oder 3 oder 4 oder
5 steht.
Für jede Ziffer brauche ich eine andere Schriftgröße, eine
andere Schriftfarbe und eine andere Hintergrundfarbe, evtl.
auch noch Fettdruck oder Kursiv.

Hallo Uwe,

probiere mal dieses Makro.

in Modul des Blattes z.B. Tabelle1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 1 Then Exit Sub 'Spalte A wird überwacht
If Target.Count > 1 Then Exit Sub 'Nur eine zelle darf geändert werden
Call tt(Target)
End Sub

in ein Standardmodul, z.B. Modul1

Sub tt(Zelle As Range)
Dim Wert As Integer
With Zelle
 Wert = IIf(Len(.Value) = 1 And InStr("12345", .Value), .Value, 6)
 .Interior.ColorIndex = Application.Choose(Wert, 12, 24, 35, 40, 48, 0)
 With .Font
 .ColorIndex = Application.Choose(Wert, 3, 5, 7, 9, 11, 0)
 .Name = Application.Choose(Wert, "Arial", "Courier New", "Arial", "Courier New", "Arial", "Arial")
 .Size = Application.Choose(Wert, 10, 11, 12, 13, 14, 10)
 .Bold = Application.Choose(Wert, True, False, False, True, True, False)
 .Italic = Application.Choose(Wert, True, True, True, False, False, False)
 End With
End With
End Sub

Gruß
Reinhard