On error, Laufzeitfehler '9'
13.09.2005 13:14:52
Bernd
bin heute umgestiegen auf EXCEL 2003 (von EXCEL 95!!!) und muß feststellen, daß meine bisherige On error-Anweisung nicht mehr richtig abgearbeitet wird. In folgendem Code (s. Hans Herber 224906v.xls) erscheint ständig, wenn die Datei Test.xls noch geschlossen ist (also bei set wbk=workbooks(file)): "Laufzeitfehler '9'. Index außerhalb des gültigen Bereiches!
.
.
.
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Bin für Eure Tipps dankbar.
Gruß Bernd
Anzeige