Hallo
Sub Lukas() Dim WT As Integer WT = Weekday(Range("D4"), 2) Select Case WT Case 2, 4 MsgBox "Dienstag, Donnerstag" Case Is > 5 MsgBox "Samstag, Sonntag" Case Else MsgBox "ein anderer Tag" End Select End Sub
LG UweD