Hallo, ich habe mal wieder ein Problem :-(
Ich habe eine Anwendung zu erstellen, bei dem sich Zellen färben sollen.
Und zwar soll die Uhrzeit in einer Exceltabelle im 15 min Takt von:
A B C D E F
1 Dauer 15 min 30 min 45 min 60 min # Farbe #
2 8:00
3 8:15
4 8:30
5 8:45
6 9:00
.
.
.
18:00
verlaufen. Wenn ich ein "x" in B2 setze, soll die Zeile F2 rot gefärbt werden, Wenn ich ein "x" in C2 setze, soll die Zeile F2 und F3 rot gefärbt werden, wenn in E2 ein "x" gesetzt wird, soll F2-F5 gefärbt werden.
Das soll natürlich auch für die anderen Zeilen 3-xxx gelten.
Zunächst habe ich das mit der bidingten Funktion in Excel versucht aber da kann ich pro Zelle ja max. 3 Bedingungen eintragen. Dann habe ich versucht mit einer WENN(ODER) Funktion mehrere Möglichkeiten in eine bedingte Funktion mit aufzunehmen, aber das klappt auch nicht.
Jetzt habe ich mir überlegt, dass man das in VBA machen könnte. Ich hab mir folgendes überlegt aber irgendwie bekomm ich das nicht hin:
Option Explicit
Sub tt()
Dim zei As Long
For zei = 1 To Range("F65536").End(xlUp).Row
Select Case Cells(zei, 8)
Cells(zei, 8).EntireRow.Interior.ColorIndex = 34
Case Else
Cells(zei, 8).EntireRow.Interior.ColorIndex = xlNone
End Select
Next zei
End Sub
Wer kann mir helfen???
Danke |