Problem mit If Anweisung
Rainer
Hallo,
habe ein Problem mit einer If Anweisung in welcher ich die MsgBox yesNo verwenden möchte.
Habe folgenden Code:
Sub Registrierung2()
If Worksheets("User").Cells(8, 13) = "ja" Then ' Online registriert? ja/nein
Dauer2
Else
Wert = MsgBox("Ihre eMail-Adresse habe ich nicht gefunden." & vbLf & _
"Wenn Sie sich gerade neu registriert haben muss die Version noch _
aktualisiert werden." & vbLf & _
"" & vbLf & _
"Haben Sie sich schon registriert?", vbYesNo)
If Wert = vbYes Then
Wert = MsgBox("Zur Aktualisierung ist eine Internetverbindugn _
erforderlich." & vbLf & _
"Sind Sie damit einverstanden? Bitte mit ja bestätigen.", _
_
vbYesNo)
If Wert = vbYes Then DatenOnlineAbrufen
ThisWorkbook.Save
Application.Quit
If Wert = vbNo Then NichtRegistriert
End If
End Sub
Bekomme die Fehlermeldung, dass End If fehlen würde.
Gruß Rainer