Hallo zusammen,
leider bekomme ich folgenden Code nicht hin.
Wie muss ich denn ein If-Statement mit vbYesNo in diesem Code richtig setzen?
Sub DatumsangebePruefen()
Dim datum1, Wochentag1
datum1 = #5/8/2016# ' Datum zuweisen.
Wochentag1 = Weekday(datum1)
Select Case Wochentag1
Case Is = 7
If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
MsgBox "Aha na dann ist ja alles klar!"
Else
Exit Sub
Case Is = 1
MsgBox "Wurde am Sonntag diese Arbeit erledigt?", vbYesNo
If vbYes Then
MsgBox "Aha na dann ist ja alles klar!"
Else
Exit Sub
Case Else
End Select
Debug.Print Wochentag1
End Sub
Na ich glaube für Euch ist der Code ja selbsterklärend...
Bekomme immer den Fehler das Select Case ausserhalb des Code oder bzw. des Select Case Statements ist..
Würde mich über aufklärung freuen!
Lg
Albert
hallo
für deine if's fehlen die end if's
entweder
If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
MsgBox "Aha na dann ist ja alles klar!"
end if
oder
If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
MsgBox "Aha na dann ist ja alles klar!"
Else
exit sub
end if
Und außerdem
Case geht mit Zahlen anders:
Case 7
If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
MsgBox "Aha na dann ist ja alles klar!"
Else
Exit Sub
End If
Hallo an Euch beiden,
Danke für die Hilfe!
Na manchmal sieht man das leichteste nicht !
LG