kann mir jemand helfen
ich möchte aus einer Funktion einen Array übergeben.
Hier der Code. Bekomme aber hier mit keinen Array zurück.
Mir fehlt der Aufruf der Funktion, indem ich den Array wieder zurückbekomme.
Sub start()
Dim wert As String
Dim barray() As String
wert = "5"
barray = Modul2.finden2(wert)
Dim i As Long
i = 0
For i = 0 To UBound(barray)
MsgBox barray(i)
Next
End Sub
Function finden2(Zahl As String) As String
Dim zelle As Range
Dim zeile As Long
Dim bestand_array() As String
ReDim bestand_array(0 To 0)
With Range("A:A")
Set zelle = .Find(Zahl)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
zeile = zelle.Row
bestand_array(0) = Format(zeile, "00000") & " " & Cells(zeile, 2) & " " & Cells(zeile, 3)
Do
Set zelle = .FindNext(zelle)
If zelle.Address <> ersteAdresse Then
zeile = zelle.Row
ReDim Preserve bestand_array(0 To UBound(bestand_array) + 1)
bestand_array(UBound(bestand_array)) = Format(zeile, "00000") & " " & Cells(zeile, 2) & " " & Cells(zeile, 3)
End If
Loop While Not zelle Is Nothing And zelle.Address <> ersteAdresse
Else
MsgBox "keine Werte vorhanden"
End If
End With
finden2 = bestand_array
End Function
Danke schon mal für die hilfe.
gruss
Thorsten