Re: Bedingte Formatierung mit 5 Bedingungen?
24.06.2003 16:10:07
Klaus W.
Hallo zusammen.
Na da freu ich mich doch sehr über die rege Anteilnahme an meinem Problem(chen).
@Tanja: Mit dieser Lösung habe ich zwischenzeitlich experimentiert. Funktioniert eigentlich auch ganz gut. Nur bekomme ich bei bestimmten Aktionen einen "Laufzeitfehler 13; Typen unverträglich".
Der taucht immer dann auf, wenn ich am ersten Wochentag ein "U" für Urlaub eingebe und den Eintrag dann in irgend eine Richtung kopiere.
Hier mal der Code:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 183 And Target.Column > 3 < 34 Then
Select Case Target.Value
Case "S"
Target.Interior.ColorIndex = 8
Case "N"
Target.Interior.ColorIndex = 27
Case "U"
Target.Interior.ColorIndex = 4
Case "K"
Target.Interior.ColorIndex = 3
Case "B"
Target.Interior.ColorIndex = 7
Case ""
Target.Interior.ColorIndex = 2
End Select
End If
End Sub
Beim Compilern wird dann der Eintrag Case "S" "angemault".
Die letzte Case-Anweisung habe ich mit eingebaut, weil beim Löschen eines Eintrages zwar der Inhalt weg war, jedoch die farbige Zellhinterlegung bestehen blieb.
Da diese Anwendung von insgesamt 80 Leuten benutzt wird, ist der Laufzeitfehler so nicht tragbar.
Kann mir da jemand weiterhelfen?
@Andreas Walter:
Vielen Dank für die Grüße. Die Polizei ist immer empfänglich für freundliche Grüße. Selbstvertändlich ebfalls viele Grüße aus dem sonnigen Nürnberg.
mfg Klaus W.