Array übergeben

Call OneMonthNoDate(0, 4, 0, lngLast, Array1)

Sub OneMonthNoDate(ByRef x As Integer, n As Long, i As Integer, lngLast As Long, ByVal Arr As  _
String)
For x = 0 To 6
n = 4
With Sheets(Me.Monat)
For i = 6 To lngLast
If .Cells(i, 1).Text = Arr(x) Then
If .Cells(i, 2).Text = Me.Mandat Then
.Range(.Cells(i, 3), .Cells(i, 9)).Copy '----> Start Date bis Ort
Wkb2.Worksheets(Array2(x)).Cells(n, 3).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range(.Cells(i, 12), .Cells(i, 14)).Copy '----> Start Dauer h bis  _
Spesen/ÜN
Wkb2.Worksheets(Array2(x)).Cells(n, 10).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
n = n + 1
End If
End If
Next i
End With
Next x
End Sub