Externer Prozeduraufruf
31.03.2005 17:06:12
Pascal
Ich Versuche einen Aufruf eines Makros in einer anderen Arbeitsmappe ohne Parameterübergabe.
Leider kann das VBA die Excel Datei nicht finden und öffnen. Die Pfadangabe habe ich auch schon über einen UNC "\\Server\mappe1.xls" Pfad Probiert, leider ohne Erfolg!
Was mache ich falsch?
Gruss Pascal
Sub CallWkbA()
Dim sFile As String
Dim wkb As Workbook
sFile = "H:\mappe1.xls"
On Error Resume Next
Set wkb = Workbooks(sFile)
On Error GoTo 0
If wkb Is Nothing Then
MsgBox "Die Testarbeitsmappe " & sFile & " wurde nicht gefunden!"
Else
Run sFile & "!test"
End If
End
Sub
Anzeige