Array übergeben
14.02.2016 22:20:31
Daniel
ich habe mal wieder ein problem und hoffe auf eure Hilfe...
ich versuche ein String Array an eine sub zu übergeben und zwar wie folgt:
Call OneMonthNoDate(0, 4, 0, lngLast, Array1)
die sub sieht wie folgt aus:
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
ich bekomme immer eine typen unverträglich meldung wenn ich in der Sub das Array als ByVal setze und ohne "Argumenttyp ByRef unverträglich"hoffe Ihr könnt mir Helfen.
Daniel