Dateiöffnen - Bei Abbruch Vorgang wiederholen
23.10.2023 15:49:52
Patrick Grübel
das ist mein erstes richtiges VBA Projekt und tue mich gerade etwas schwer bei folgendem Fall.
1. Datei soll geöffnet werden
2. Datei wird ausgewählt und geöffnet -> Ende Sub
3. Es wird keine Datei geöffnet und auf Abbrechen geklickt
3.1 MsgBox öffnet sich und fragt, ob wirklich beendet werden soll
3.1.1 bei msgbox vbyes -> Programm schließen
3.1.2 bei msgbox vbno -> wieder bei Punkt 2 beginnen
Ich hab folgende Codierung die funktioniert, aber ich habe keine genau Idee wie ich das als Schleife verpacke mittel Do ... Loop While oder Do....Loop Until, da ich noch mit If innerhalb arbeiten muss.
Hier mein bisheriger Code ohne Schleife, welche nach dem zweiten Versuch, dann das Programm beendet.
Sub EnaioListeOeffnen()
Dim intMsgBox As Integer
Dim strDateipfad As String
msgbox "Bitte speichern Sie eine aktuelle Version der enaio-Liste auf Ihrem Desktop, um diese im nächsten Schritt zu öffnen", vbOKOnly + vbInformation, "Hinweis"
strDateipfad = Application.GetOpenFilename
If strDateipfad > "Falsch" Then
Workbooks.Open strDateipfad
ElseIf strDateipfad = False Then
intMsgBox = msgbox("Sind Sie sicher, dass Sie abbrechen möchten? Alle Daten gehen dann verloren.", vbExclamation + vbYesNo + vbDefaultButton2, "Wichtiger Hinweis")
If intMsgBox = 6 Then
Workbooks("Vorlage_Fuhrpark_Auswertung.xlsm").Saved = True
Workbooks("Vorlage_Fuhrpark_Auswertung.xlsm").Close
Else
On Error GoTo Fehlerbehandlung:
Workbooks.Open Application.GetOpenFilename
Exit Sub
Fehlerbehandlung:
msgbox "Die Datei wird geschlossen und alle Daten gehen verloren.", vbInformation, "Anwendung wird geschlossen"
Workbooks("Vorlage_Fuhrpark_Auswertung.xlsm").Saved = True
Workbooks("Vorlage_Fuhrpark_Auswertung.xlsm").Close
End If
End If
End Sub