Damit hab ich auch nicht die Möglichkeit Fehler abzufangen und entsprechende Anweisungen zu formulieren.
Kennt jemand das Problem?
Ist das eine Einstellungssache??
Kennt jemand das Problem?
Ist das eine Einstellungssache??
Bye
Nike
P.S. Kleines Hallo und Tschüß hat noch keinem weh getan
und fördert das Betriebklima ernom ;-)
Hier mein Code:
Private Sub CommandButton1_Click()
On Error GoTo ERRORHANDEL
Workbooks.Open Filename:="O:\Leitstelle\Bms\BMSBusBSVK11.xls"
Workbooks("BMSBusBSVK11.xls").Activate
Worksheets("29.12.2002").Select
Range("A5").Select
Range("A5") = 1
ActiveWorkbook.Close True
Exit Sub
ERRORHANDEL:
MsgBox "Geht nitt, noch mal versuchen"
ActiveWorkbook.Close False
End Sub
Da das Sheet nicht existiert brechen alle Rechenr bis auf die eine Krücke ab und bringen die Meldung.
Kannste Dir darauf `nen Reim machen???
Sollten wir nicht mehr von einander hören: Schönes WE!