ich verzweifel gerade und habe ausreichend GeGoogle,
leider ohne Erfolg.
Ich habe dieses Makro gefunden und entsprechend eingesetzt:
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
sFile = "Muster.xls"sPath = "C:\Möbel\Teile\Stühle\" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
End If
Else
Workbooks(sFile).Activate
End If
Name stimmt etc., es kommt die Fehlermeldung:
Laufzeitfehler 9
Index außerhalb des gültigen Bereiches.
Bleibt hier stehen:
Set wkb = Workbooks(sFile)
Wenn die Datei geöffnet ist wird allerdings dann aktiviert.
Habe mal das Makro aufgezeichnet und es klappt so:
Sub holen()
ChDir "C:\Möbel\Teile\Stühle"
Workbooks.Open Filename:= _
"C:\C:\Möbel\Teile\Stühle\Muster.xls"
Windows"Muster.xls").Activate
End Sub Was mache ich FALSCH ?
mfg kurt K