Habe einen Code geschrieben der nicht ganz funktioniert (unten angehängt).
1. Warum funktioniert "On Error GoTo Fehler" nicht, was mache ich falsch?
2. Wenn die Datei bereits geöffnet ist und versucht wird sie ein weiteres Mal
zu öffnen kommt eine MsgBox "Datei ist breits geöffnet...........Soll die
Datei erneut geöffnet werden? "JA" "NEIN"
Wie bringe ich das "JA" weg, sie darf nicht ein weiteres mal geöffnet
werden sonst verliere ich die Änderungen.
Wenn ich "NEIN" drücke kommt dann ein Laufzeitfehler 1004.
Wie bringe ich das weg? Es müsste auch gar keine Meldung kommen es darf nur
nicht noch einmal geöffnet werden.
3. Ist der Typ Variant richtig oder sollte ich was anderes nehmen.
Zelle B3 = Laufwerk c:\
Zelle B10 = Pfad Anwendungen\Preislisten\Abrechnungen\
Zelle B12 = Datei Monatsabrechnung.xls
Sub BestandÖffnen()
Dim varPfadBestand As Variant
Dim varDateiBestand As Variant
varPfadBestand = Workbooks("Steuerung.xls").Sheets("INI").[B3 & B10]
varDateiBestand = Workbooks("Steuerung.xls").Sheets("INI").[B12]
Workbooks.Open varPfadBestand & varDateiBestand
On Error GoTo Fehler
Workbooks.Open varPfadBestand & varDateiBestand
Exit Sub
Fehler:
MsgBox "Die gewünschte Datei kann nicht gefunden werden!"
End Sub
Bitte um Hilfe
Danke
Gerhard