Select Case zum Abbruch eines Datei-Imports

[Carvediem]

Hallo VBAer,

ich bin mal wieder an der Grenzen meiner ohnehin begrenzten Möglichkeiten. Ich möchte einen Programmablauf zum Dateimport bei [Abbrechen] zum Ende des Subs führen, kriege das aber nicht hin. Hier der Code:

Code: Text

1.  ...
2. If MsgBox("- Sind die Wegpunkte in der DAV-Karte durchlaufend nummeriert?" _
3.     & vbLf & vbLf _
4.     & "- Ist die Wegpunktbezeichnung im Format 01, 02, ..., 10, 11, ...?" _
5.     & vbLf & vbLf _
6.     & "- Ist der Ausgangspunkt als Wegpunkt 01 bezeichnet?" _
7.     & vbLf & vbLf _
8.     & "Das Format für die DAV-Wegpunktdatei ist [waypoints_Name.gpx]", _
9.     vbYesNo) = vbYes Then
10.  
11. strPath = Application.GetOpenFilename
12. ActiveWorkbook.XmlMaps("gpx_Zuordnung").import URL:=strPath
13.    
14. Select Case 'hier fehlt mir der Eintrag
15.         Case False
16.             Exit Sub
17.         Case Else
18. ...
19.  

Der Dateiimport funktioniert einwandfrei. Wenn ich aber bei der Dateiauswahl auf [Abbrechen] gehe, bricht VBA ab. Mit dem Select Case Befehl will ich eine Verzweigung einrichten, damit hierzu das Ende des Subs herbeigeführt wird. Was muss ich hinter "Select Case ..." schreiben?

Vielleicht kann mir ja hier jemand helfen. Vielen Dank im Voraus,
Carvediem

[Ricco]

Hallo Carvediem,

Du solltest Dein Fehlerhandling generell überarbeiten, - nicht nur an dieser Stelle.
Z. B. so:

---------------------------------------------------------------------------------------------------------

    Dim sMsg As String, retval As Long, sPath As String
   
    sMsg = "- Sind die Wegpunkte in der DAV-Karte durchlaufend nummeriert?" _
            & vbCr _
            & "- Ist die Wegpunktbezeichnung im Format 01, 02, ..., 10, 11, ...?" _
            & vbCr _
            & "- Ist der Ausgangspunkt als Wegpunkt 01 bezeichnet?" _
            & vbCr & vbCr _
            & "Das Format für die DAV-Wegpunktdatei ist [waypoints_Name.gpx]"
       
    'MsgBox gibt eine Zahl aus der Aufzählung VbMsgBoxResult zurück:
    retval = MsgBox(sMsg, vbYesNo, "Title of MsgBox")
   
    If retval = vbYes Then
   
        sPath = Application.GetOpenFilename
       
        If sPath = "Falsch" Then
       
            'Was zu tun ist, wenn kein Pfad ausgewählt wurde...
           
        Else
       
            'Die Import-Funktion gibt eine Zahl aus der Aufzählung XlXmlImportResult zurück:
            retval = ActiveWorkbook.XmlMaps("gpx_Zuordnung").Import(sPath)
           
            Select Case retval
                Case xlXmlImportSuccess
                    'Der Import war erfolgreich...
                Case xlXmlImportValidationFailed
                    'Der Import wurde zwar durchgeführt, aber bei der Schemavalidierung
                    'für die importierten Daten trat ein Fehler auf...
                Case xlXmlImportElementsTruncated
                    'Der Import konnte nur teilweise durchführt werden, da die XML-Datendatei
                    'zu groß für das Arbeitsblatt ist....
            End Select
           
        End If
       
    Else 'retval=vbNo
   
        'Was zu tun ist, wenn die Abfrage mit Nein beantwortet wird...
       
    End If
           
---------------------------------------------------------------------------------------------------------

MfG,
Ricco.

[Carvediem]

Hallo Ricco,

hab vielen Dank für die Mühe, die du für mich auf dich genommen hast. Funktioniert perfekt, wie ich es wollte. Nun muss ich mich nochmal ganz sorgfältig mit deinem Code auseinandersetzen, um hinzuzulernen.

Liebe Grüße und frohe Ostern,
Carvediem

[Ricco]

Freut mich, dass ich Dir helfen konnte.

Ricco.