Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Problem mit If Anweisung | Herbers Excel-Forum


Betrifft: Problem mit If Anweisung von: Rainer
Geschrieben am: 15.11.2009 18:02:53

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

  

Betrifft: AW: Problem mit If Anweisung von: Josef Ehrensberger
Geschrieben am: 15.11.2009 18:09:43

Hallo Rainer,

Sub Registrierung2()
Dim wert As Long

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
    Else
      NichtRegistriert
    End If
  End If
  
End Sub



Gruß Sepp



  

Betrifft: AW: Problem mit If Anweisung von: Rainer
Geschrieben am: 15.11.2009 18:29:50

Hallo Sepp,

danke für die Hilfe.

Eine Fehlermeldung kam nun noch, habe ich aber beheben können; ein End If wahr wohl noch erforderlich.

Jetzt habe ich noch ein Problem beim Schließen.

Mit ThisWorkbook.Save erscheint noch das Windows-Abfragefenster speichern/ja/nein/Abbrechen.

Wie kann ohne diese Abfrage geschlossen werden?

Gruß Rainer


  

Betrifft: AW: Problem mit If Anweisung von: Josef Ehrensberger
Geschrieben am: 15.11.2009 18:32:37

Hallo Rainer,

das geht so.

Sub Registrierung2()
  Dim wert As Long
  
  On Error GoTo ErrExit
  Application.DisplayAlerts = False
  
  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
      Else
        NichtRegistriert
      End If
    End If
  End If
  
  ErrExit:
  Application.DisplayAlerts = True
End Sub




Gruß Sepp



  

Betrifft: AW: Problem mit If Anweisung von: Rainer
Geschrieben am: 15.11.2009 18:44:08

Hallo Sepp,

WindowsFenster kommt immer noch.

Habe aber gerade festgestellt, dass dies kein Problem ist, da ich für "Nicht Registrierte" das Start-Arbeitsblatt auf VeryHidden habe.

Gruß Rainer


Beiträge aus den Excel-Beispielen zum Thema "Problem mit If Anweisung"