Code problem mit erweiterungszeile
09.07.2005 21:38:26
Bryan
untenstehender Code funzt nur wenn ich die "ELSE" Zeile nicht drin habe.
Ohne die "ELSE" Zeile macht er mir die Zellen die mit der Abfrage übereinstimmen
Hellgrau, das soll er auch, es müssen aber alle anderen Zellen weiß sein, das wollte ich mit der "Else" Zeile erreichen, ist sie aber drin macht er alles wieder weiß. Hat jemand eine Ahnung warum?
Sub Ferien_ein()
Dim f As Integer
Dim Anfang As Date
Dim Ende As Date
For f = 530 To 534
Anfang = Worksheets("Fs-Planer").Cells(f, 1)
Ende = Worksheets("Fs-Planer").Cells(f, 2)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
If Cells(z, s) >= Anfang And Cells(z, s) <= Ende Then
Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau
Else
Cells(z, s + 3).Interior.ColorIndex = 0 ' weiss
End If
Next s
Next z
Next f
End Sub
Danke und Gruss Bryan
Ps.: Das ganze Problem gibts hier zu besseren Verständnis
https://www.herber.de/forum/messages/634560.html
Bedingte Formatierung mit vba -