VBA Funktion Datei öffnen
12.04.2017 00:59:21
Michael
ich habe ein Problem mit dieser Funktion. Sie Funktioniert ganz gut, solange sich die Datei öffnen lässt. Lässt sich die Datei nicht öffen, hänge ich in der Endlos Schleife.
Gibt es die möglich keine, dies so umzubauen das es ohne die Do-Loop Schleife läuft?
Function Tabelle_oeffnen(Tabellenname As String, Pfad As String)
If Dir(Pfad & Tabellenname) "" Then
On Error Resume Next
Workbooks.Open Filename:=Pfad & Tabellenname, ReadOnly:=True
geladen = False
Do
For Each WB In Workbooks
If WB.Name = Tabellenname Then geladen = True
Next WB
Loop Until geladen = True
Else
MsgBox ("Die Datei existiert nicht")
End If
End Function
Gruß
Michael
Anzeige