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