AW: mit bedingter Formatierung...
30.11.2009 15:36:44
Karsten
Hallo Chris,
danke, aber bei mir sind nur 3 Bedingungen möglich.
Mir hat mal jemand netterweise diesen Code geschrieben (für B2undC2). Unten drunter habe ich noch mal dasselbe mit B3 und C3 gemacht. Mir ist das ganze aber in dieser Ausstattung zulang. Kannst du diesen Code optisch schön schrumpfen und so dass er auch für mehr Zeilen (B4 und C4 usw...) anpassbar wird?
Gruß
Karsten
Sub Markieren_Ferien()
Dim lngStart As Long, lngEnd As Long, varRes As Variant
With Sheets("Lehrbericht")
If IsDate(.Range("b2")) And IsDate(.Range("c2")) Then
varRes = Application.Match(.Range("b2"), Sheets("Lehrbericht").Range("a:a"), 0)
If IsNumeric(varRes) Then lngStart = varRes
varRes = Application.Match(.Range("c2"), Sheets("Lehrbericht").Range("a:a"), 0)
If IsNumeric(varRes) Then lngEnd = varRes
End If
End With
If lngStart > 0 And lngEnd > 0 Then
With Sheets("Lehrbericht")
.Range(.Cells(lngStart, 1), .Cells(lngEnd, 1)).Interior.ColorIndex = 15
End With
End If
Dim lngStart1 As Long, lngEnd1 As Long, varRes1 As Variant
With Sheets("Lehrbericht")
If IsDate(.Range("b3")) And IsDate(.Range("c3")) Then
varRes1 = Application.Match(.Range("b3"), Sheets("Lehrbericht").Range("a:a"), 0)
If IsNumeric(varRes1) Then lngStart1 = varRes1
varRes1 = Application.Match(.Range("c3"), Sheets("Lehrbericht").Range("a:a"), 0)
If IsNumeric(varRes1) Then lngEnd1 = varRes1
End If
End With
If lngStart1 > 0 And lngEnd1 > 0 Then
With Sheets("Lehrbericht")
.Range(.Cells(lngStart1, 1), .Cells(lngEnd1, 1)).Interior.ColorIndex = 15
End With
End If
End Sub