Übergabe eines Arrays
09.02.2005 09:38:18
Lars
ich bins mal wieder. :)
Folgendes kleines Problem:
Die unten stehende Funktion will irgendwie kein array übergeben.
Die Variable, die den wert der Funktion aufnimmt, ist auch Variant. also müßte das doch so gehen, oder?
Oder hab ich nen logischen fehler drinnen?
Will halt nicht alles hinters Formular klemmen, der übersicht halber wollte ich das auslager, aber wenn ich es nicht auslagere, dann klappt es.
warum?!?
Gruß Lars
Private Function teilp_s() As Variant
Dim izeile As Integer
ReDim arr(0) As Variant
anzd = Worksheets("Daten").Cells(65536, 1).End(xlUp).Row
arr(0) = Cells(2, 5)
For izeile = 2 To anzd
If Suchen.ComboBox1.Text = Worksheets("Daten").Cells(izeile, 5) Then
If WorksheetFunction.CountIf(Range("E1:E" & izeile - 1), Cells(izeile, 6)) = 0 Then
ReDim Preserve arr(UBound(arr) + 1)
arr(UBound(arr)) = Cells(izeile, 6)
End If
End If
Next izeile
teilp_s = arr
End Function