Hallo JoNNy,
zu Testzwecken habe ich folgenden Code aufgestellt:
Sub test()
Dim i As Integer
Dim Subname As String
Dim arrName(2) As String
arrName(1) = "a"
arrName(2) = "b"
For i = 1 To 2
Subname = "test_" & arrName(i)
Application.Run (Subname)
Next i
End Sub
Sub test_a()
MsgBox "a"
End Sub
Sub test_b()
MsgBox "b"
End Sub
Dieser Code wird in der Zeile mit Application.Run mit dem Laufzeitfehler 1004 beendet.
Laut Hilfe ist das:
Diese Meldung wird eingeblendet, wenn ein Fehler, der mit der Raise-Methode oder der Error-Anweisung erzeugt wurde, keinem von Visual Basic for Applications definierten Fehler entspricht. Sie wird von der Error-Funktion auch für Argumente zurückgegeben, die nicht den von Visual Basic for Applications definierten Fehlern entsprechen.
Eine Idee was ich da jetzt machen kann?
|