wie kann man mittels VBA ermitteln ob das Datum in A1 ein Samsatg oder Sonntag ist?
Gruß
Martin
If Weekday(Cells(1, 1), vbMonday) > 5 Then MsgBox "Es ist WE!!"
Sa und So:
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
Wenn die Schleife den ersten Wochendendtag findet soll er den Wert aus Zufall M1 eintragen, beim zweiten gefunden Wert M2 usw. Mit meinem Code trägt er immer bei allen gefunden Wochenendentagen den letzte Wert aus der Schleife x. Was mache ich da falsch?
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