Hallo,
habe ein proble mit einer Sub, die ich geschrieben habe, wo ab und an ein fehler auftritt, also das Fenster zum Debuggen, Abbrechen kommt.
Wenn ich in Debuggen gehe, ist die Zeile "Workbooks.Open Datei1" gelb markiert
Die Datei ist vorhanden und wenn ich die Excel schließe und nochmals aufrufe, geht es.
Odwer auch wenn ich im Debuggenmodus auf Ausführen klicke, gehts auch ohne Probleme weiter.
Hier der Code:
Sub DateiKundenOpen()
Dim s As String
Const Datei1 = "c:\adressen.xls"
s = Dir(Datei1)
If s <> "" Then
' Wenn Datei vorhanden, dann öffnen
Workbooks.Open Datei1
'Wenn datei nicht vorhanden -> Meldung ausgeben
Else
MsgBox "Datei adressen.xls ist nicht vorhanden !", vbCritical
Exit Sub
End If
End Sub
Hat da jemand ne Idee, woran das liegt und wie man das abfangen kann?
Vielen Dank im Voraus
|