Fehlermeldung beim Datei Öffnen
15.12.2005 12:00:05
Johannes
ich stehe auf dem Schlauch mit folgendem Code:
Über die Userform hole ich eine Liste, aus der dann ein Dateiname ausgelesen und in Zelle A1 geschrieben wird. Inhalt der Zelle Zelle A1 ist die Variable LSDATEI mit der dann die Datei geöffnet wird. Wenn diese aber schon auf sein sollte, soll die Fehlermeldung kommen und der Code enden.
Es kommt aber die Meldung von Excel, dass die Datei schon geöffnet ist mit dem Hinweis dass beim erneuten Öffnen die Eingaben der ersten verloren gehen. Wenn ich mit [Nein] antworte, kommt meine Fehlermeldung.
Was mache ich hier falsch - könnte mir jemand bitte helfen?
Für Eure Hilfe danke ich schon jetzt.
Gruß
Johannes
Hier der Code:
Sub Maske_suchen_auf_3()
Dim LSDATEI As String
'öffnet das Listenfeld für die Auswahl des
'Artikels aus der Datenbank
UserForm1.Show
'öffnet die entsprechende LS-Datei
'Name steht in A1
On Error GoTo zu
LSDATEI = Range("A1").Value
Workbooks.Open Filename:="C:\Daten\" & LSDATEI
Exit Sub
zu:
MsgBox "Fehler !"
End Sub