Select Case Und If-Statement Problem

[silentwolf]

Hallo zusammen,

leider bekomme ich folgenden Code nicht hin.
Wie muss ich denn ein If-Statement mit vbYesNo in diesem Code richtig setzen?

Code [Auswählen] Erweitern

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

[daolix]

hallo
für deine if's fehlen die end if's
entweder

Code [Auswählen] Erweitern

  If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
                MsgBox "Aha na dann ist ja alles klar!"
            end if

oder

Code [Auswählen] Erweitern

  If MsgBox("Wurde am Samstag diese Arbeit erledigt?", vbYesNo) = vbYes Then
                MsgBox "Aha na dann ist ja alles klar!"
            Else
exit sub
end if


[MzKlMu]

Und außerdem
Case geht mit Zahlen anders:

Code [Auswählen] Erweitern

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

[silentwolf]

Hallo an Euch beiden,

Danke für die Hilfe!
Na manchmal sieht man das leichteste nicht !

LG