Private Sub Command3_Click()
 
   Dim arrTest() As String
   ReDim arrTest(10)
   arrTest(0) = "Eintrag 0"
   arrTest(1) = "Eintrag 1"
   arrTest(2) = "Eintrag 2"
   arrTest(3) = "Eintrag 3"
   arrTest(4) = "Eintrag 4"
   arrTest(5) = "Eintrag 5"
   arrTest(6) = "Eintrag 6"
   arrTest(7) = "Eintrag 7"
   arrTest(8) = "Eintrag 8"
   arrTest(9) = "Eintrag 9"
 
   Testfunktion_1 "Testnummer 17", "Eintrag 4"
 
End Sub
 
'Prozedur, welche von meinem AddIn bearbeitet wird
Private Sub Procedur1(Parameter_1 As String, ParamArray Parameter_2())
 
   MeineFunction "Parameter_1", Parameter_1
   'HIER IST MEIN PROBLEM
   'Wie muss der Wert für Parameter_2 lauten, damit ich ihn an "MeineFunktion"
    übergeben kann und er als IsArray erkannt wird?
   MeineFunction "Parameter_2()", '??? Hier der Wert, aber welcher?
 
End Sub
 
'Funktion, an die die Werte übergeben werden sollen
Public Function MeineFunction(WertName As String, Optional WertWert As Variant)
 
   'Hier die Werte z.B. in eine Datei schreiben
   Dim a$
 
   Do
      If IsArray(WertWert) Then a$ = "[ARRAY]": Exit Do
      If IsNull(WertWert) Then a$ = "[NULL]": Exit Do
      If IsEmpty(WertWert) Then a$ = "[EMPTY]": Exit Do
      If IsError(WertWert) Then a$ = "[ERROR]": Exit Do
      If IsObject(WertWert) Then
         If WertWert Is Nothing Then
            a$ = "[NOTHING]"
         Else
            a$ = "[OBJECT: " + TypeName(WertWert) + "]"
         End If
 
         Exit Do
 
      End If
 
      a$ = CStr(WertWert): Exit Do
   Loop
 
   a$ = WertName + ":" + vbTab + a$
 
   Debug.Print a$
 
End Function
 
'PS: Die Parameter und die Werte der Parameter sollen an
'    die Funktion immer als String übergeben werden

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.