If Weekday(Cells(1, 1), vbMonday) > 5 Then MsgBox "Es ist WE!!"
If Weekday(Cells(1, 1), vbMonday) = 6 Then
MsgBox "Es ist Samstag!!"
ElseIf Weekday(Cells(1, 1), vbMonday) = 7 Then
MsgBox "Es ist Sonntag!!"
End If
If Weekday(Cells(1, 1), vbMonday) > 5 Then MsgBox "Es ist WE!!"
If Weekday(Cells(1, 1), vbMonday) = 6 Then
MsgBox "Es ist Samstag!!"
ElseIf Weekday(Cells(1, 1), vbMonday) = 7 Then
MsgBox "Es ist Sonntag!!"
End If
Sub Coincidence()
Dim i As Long
Dim x As Long
For i = 5 To 35
For x = 1 To 16
If Weekday(Worksheets("Kostprobe").Cells(i, 2), vbMonday) > 5 Then Worksheets("Kostprobe"). _
Cells(i, 3) = Worksheets("Zufall").Cells(x, 13)
Next x
Next i
End Sub
Dim i As Long
Dim x As Long
x = 1
For i = 5 To 35
If Weekday(Worksheets("Kostprobe").Cells(i, 2), vbMonday) > 5 Then
Worksheets("Kostprobe").Cells(i, 3) = Worksheets("Zufall").Cells(x, 13)
x = x + 1
End If
Next i