Option Explicit
Public Function KalenderWoche(Datum As Date) As Integer
Dim ErsteWoche As Date
ErsteWoche = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KalenderWoche = (Datum - ErsteWoche - 3 + (Weekday(ErsteWoche) + 1) Mod 7) \ 7 + 1
End Function
Private Sub Markieren()
Dim KWoche As Excel.Range
Dim Woche As Long
ActiveSheet.Range("A1").Select
Woche = KalenderWoche(Date)
Set KWoche = ActiveSheet.Range("G6:BF6").Find(Woche, , xlValues, xlWhole)
If Not KWoche Is Nothing Then
Range(KWoche.EntireColumn, KWoche.Offset(, 3).EntireColumn).Select
Else
MsgBox "Ein Eintrag für KW " & CStr(Woche) & " konnte im vordefinierten Bereich nicht gefunden werden!" _
, vbCritical, "Fehler..."
End If
Set KWoche = Nothing
End Sub
Severus |