Office: Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Mik_Don · 8. März 2014

Hallo excel- Spezialisten,
ich habe folgenden Datei-Öffnen Dialog :

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "O:\technik\CAD-pdf\Freigegeben\" & pfad
If .Filters.Count > 0 Then .Filters.Delete
.Filters.Add "Dateien", "*.xlsm, *.xls", 1
.ButtonName = "OK"
.Title = "Bitte Datei auswählen"
If .Show = -1 Then
Datei = .SelectedItems(1)
End If
End With
Workbooks.Open Filename:=Datei

Beim Abbrechen bekommen ich die Fehlermeldung:
Laufzeitfehler
" wurde nicht gefunden

wie kann ich diesen Fehler umgehen?
on error resume next ist hier bestimmt nicht das eleganteste?

Vielen Dank für Eure Hilfe

Michael

:)

EarlFred · 10. März 2014

Hallo Michael,

was passiert in dieser Zeile?
Code:

If .Show = -1 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code bitte mindestens in Code-Tags darstellen.

Grüße
EarlFred

Mik_Don · 10. März 2014

gute Frage,
wenn ich mit F8 schrittweise den Code bzw Ausführung verfolge ist das die Zeile, in der der Öffnen Dialog geöffnet wird!
Tja, und wenn ich auf Abbrechen gehe, dann bekomme ich eine Fehlermeldung!

Hasso · 10. März 2014

Hallo Michael,

wenn du abbrichst, hast du ja keine Datei ausgewählt und es gibt natürlich einen Fehler, wenn eine Datei ohne Namen geöffnet werden soll. Versuch's mal so: Code:

Sub DateiAuswaehlen()

Dim pfad
Dim Datei

pfad = "C:\Test\"
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "O:\technik\CAD-pdf\Freigegeben\" & pfad
If .Filters.Count > 0 Then .Filters.Delete
.Filters.Add "Dateien", "*.xlsm, *.xls", 1
.ButtonName = "OK"
.Title = "Bitte Datei auswählen"
If .Show = -1 Then
Datei = .SelectedItems(1)
End If
End With
If Not IsEmpty(Datei) Then Workbooks.Open Filename:=Datei
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mik_Don · 11. März 2014

trotz If Not IsEmpty(Datei) Then .....

tritt wieder der gleiche Fehler auf!

Hasso · 11. März 2014

Hallo Michael,

trotz If Not IsEmpty(Datei) Then .....
tritt wieder der gleiche Fehler auf!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei mir nicht.

Mein gerne wiederholter Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der zu sehen ist, worin das Problem besteht und wie das Ergebnis aussehen soll, erhöht die Chance auf eine befriedigende Antwort ungemein!
Hier hat niemand Lust, eine eigene Datei auf Grund deiner Beschreibung zu erstellen, die dann vielleicht ungefähr das macht, was du möchtest. Du hast diese Datei schon, also lade sie bitte hier hoch.

Mik_Don · 11. März 2014

gerne kann ich die Datei anhängen- nur passen die Pfadbezüge nicht!
Mit den 2 Buttons auf der Startseite werden die Dialoge aufgerufen

Gruß Michael

Beverly · 11. März 2014

Hi Michael,

Code:

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "O:\technik\CAD-pdf\Freigegeben\" & pfad
If .Filters.Count > 0 Then .Filters.Delete
.Filters.Add "Dateien", "*.xlsm, *.xls", 1
.ButtonName = "OK"
.Title = "Bitte Datei auswählen"
If .Show = -1 Then Workbooks.Open Filename:=.SelectedItems(1)
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hasso · 11. März 2014

Hallo Michael,

so läuft es jetzt bei mir: Code:

Option Explicit

Sub import()

Datei = ""
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = "C:\Dokumente und Einstellungen\hhe\Eigene Dateien\Dropbox\Test\" & pfad
If .Filters.Count > 0 Then .Filters.Delete
.Filters.Add "Dateien", "*.xlsm, *.xls", 1
.ButtonName = "OK"
.Title = "Bitte Datei auswählen"
If .Show = -1 Then
Datei = .SelectedItems(1)
End If
End With
If Datei "" Then Workbooks.Open Filename:=Datei
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sie Subs elektroimport und Leistenimport entsprechend anpassen: Code:

Option Explicit

Sub elektroimport()
Dim Blatt2 As Range
Dim strQDatei As String
Dim strZDatei As String
strZDatei = "Zieldatei"
strQDatei = "Quelldatei"
ActiveWindow.Caption = strZDatei

' Dateiimport
pfad = "501"

'Ausschalten Screenaktuallisierung
Application.ScreenUpdating = False

'Tabellenblatt einblenden
Sheets("QBlatt1").Visible = True
Sheets("QBlatt2").Visible = True

Call import
If boAbbruch = True Then Exit Sub
If Datei = "" Then Exit Sub
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mik_Don · 12. März 2014

jetzt bei mir auch- vielen Dank für Eure Hilfe!

Sonnige Grüße aus Bayern

Michael

Office: Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen

Fehler bei Abbruch im Datei-Öffnen Dialog beim Abbrechen - Similar Threads - Fehler Abbruch Datei

Fehler (0x800CCC78) beim Ausführen der Aufgabe "xx.yyyy@kabelmail.de - Nachrichten werden gesendet"

Fehler beim SVERWEIS Vermeidbar?

Installation schlägt fehl - Fehler in OfficeClickToRun.exe

Bei meinem Outlook (new) fehlen wichtige Funktionen!

Ständige Passwortabfrage und Kalendersyncronisations Fehler

Formel mit INDEX, MATCH und MAX gibt Fehler #NAME!

Wert Fehler