Wieder einmal bin ich mit meinem VBA-Latein am Ende. Ich habe mich bereits im Archiv versucht schlau zu machen, aber bin nicht wirklich weiter gekommen!
Ich möchte gerne eine Datei mittels eines Dialogfenster öffnen. Das funktioniert auch soweit. Einziger Knackpunkt, wenn ich beim Dialogfenster auf "Abbrechen drücke!" schreibt er: Laufzeitfehler 1004 'Falsch.xls' nicht gefunden. Ich habe auch schon versucht: etwas wie datei = "Falsch.xls" then exit sub , aber das funktioniert auch nicht!
Freue mich auf Eure Hilfe!
Gruß Dominik

Dim Verzei As Variant, datei As Variant, dateiname As String
Dim name As String, X As String
Dim e As Byte

'holt Datei mittels Dialogfenster
' ChDir "\"
' ChDrive "c:\"
'Das Dialogfenster
datei = Application.GetOpenFilename _
("Microsoft Excel-Dateien (*.xls), *.xls")
If IsArray(datei) Then
For i = 1 To UBound(datei)
Debug.Print datei(i)
Next i
Else
'Abgebrochen gedrückt
Exit Sub
End If

Workbooks.Open filename:=datei

Verzei = ActiveWorkbook.Path
dateiname = Dir(datei)
ActiveWindow.Close False