Freie Tage einfärben
31.01.2004 23:48:39
Didi
Sub GruppeA_Frei()
Range("BereichA").Select
For Each c In Selection
If c.Interior.ColorIndex = 6 Then
If Cells(4, c.Column).Text = "Fr" Then
c.Offset(0, 3).Interior.ColorIndex = 6
c.Interior.ColorIndex = 35
Else
c.Offset(0, 8).Interior.ColorIndex = 6
c.Interior.ColorIndex = 35
End If
End If
Next c
Range("A1").Select
End Sub
in den Zellen D4:AH4 befinden sich Wochentage Mo, Di, Mi, Do, Fr, Sa, So, Mo, usw.(1.-31. Monatskalender)
Wenn nun im Bereich darunter ("BereichA") eine Zelle gelb markiert wird und der Wochentag darüber z.B. ein Freitag (Fr) ist, dann wird diese Zelle und in der nächsten Woche der Montag (Mo) in der übernächsten Woche der Dienstag (Di) wieder eine Woche später der Mittwoch (Mi) usw. Grün eingefärbt!
Das funktioniert aber nur Horizontal, was muß im Makro geändert werden, damit es auch funktioniert, wenn die Wochentage von oben nach unten in der Tabelle stehen??
Danke für Eure Hilfe
Gruß Didi