Werte aus Funtion in Sub übergeben
Micha
will gerne aus der Funktion "Range2Array" das Array an RangeInArray an das Sub "CompareArray" übergeben, sodass dieses Sub mit den Arraywerten weiterarbeiten kann:
Private Sub AufgehtsAbgehts()
Dim RangeInArray As Variant
Call Modul1.Range2Array(ColumnIndex:="E")
Call Modul1.CompareArrays(RangeInArray)
End Sub
Private Function Range2Array(ColumnIndex As String) As Boolean
Dim RangeInArray()
For x = 1 To 10
ReDim Preserve RangeInArray(x)
RangeInArray(x) = Range(ColumnIndex & x)
Next x
End Function
Private Sub CompareArrays(ByVal RangeInArray)
'Verarbeitung des Arrays "RangeInArray"
End Sub
Irgendwie ist das Array aber immer leer, woran liegt das?
Hab noch nicht so sehr mit Parameterübergaben gearbeitet, bin also für jeden Tipp und Erklärung dankbar!
Micha