Sub ErsteLeereSpalteInklWeekday()
Dim wks As Worksheet
Dim rng As Range
Dim col As Object
Set wks = ThisWorkbook.Worksheets(1)
Set rng = wks.Range("I2406:NO2455")
For Each col In rng.Columns
With wks
If Not Weekday(.Cells(6, col.column).Value, vbMonday) > 5 Then
If col.Cells.Count = Application.WorksheetFunction.CountBlank(col) Then
MSGBOX "Volle Verfügbarkeit am " & .Cells(5, col.column) & ", den " & .Cells(6, col.column)
Exit Sub
End If
End If
End With
Next
MSGBOX "Es gibt keine komplett leere Spalte in der Ressourcenplanung"
End Sub