fuchsi schrieb am 25.March.2015, 13:43:15 in der Kategorie pc.sw.office
Sub aufruftest()
Dim B(1 To 3), C(1 To 3) As String
B(1) = "geht"
B(2) = "so"
B(3) = "kurz"
C(1) = "das"
C(2) = "mal"
C(3) = "testen"
untersub B, C
End Sub
Sub untersub(pB, pC)
Dim i As Integer
i = 1
For i = 1 To 3
MsgBox pB(i) & " - " & pC(i)
Next i
End Sub