Code- Optimierung
04.10.2005 22:02:50
Gerhard
Habe folgenden VBA Code geschrieben zum öffnen einer Datei:
Sub BestandÖffnen()
Dim varPfadBestand As Variant
varPfadBestand = Sheets("INI").[B3 & B10 & B12]
Workbooks.Open (varPfadBestand)
On Error GoTo Fehler
Workbooks.Open Datei
Exit Sub
Fehler:
MsgBox "Die gewünschte Datei kann nicht gefunden werden!"
End Sub
1.Es funktioniert bis zum öffnen der Datei gut aber die Fehlermeldung passt nicht.
Was ist daran falsch?
2.Ausserdem möchte ich auch dass wenn die Datei bereits geöffnet wäre, keine Fehlermeldung kommt und das Programm einfach weiter geht.
Geht das?
3.Ich habe als Speicher den Typ Variant gewählt. Ist das OK oder ist ein anderer besser?
Bitte um Hilfe
Mit besten Dank
Gerhard