UDF Funktion
Ingo
ich habe folgendes Problem:
Function weitere_datensätze(s_object As String) As Integer
Dim rng As Range
Dim firstAddress
With Sheets(1).Range("A2:A55")
Set rng = .Find(s_object, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
firstAddress = rng.Address
Do
Set rng = .FindNext(rng)
If rng.Address firstAddress Then
weitere_datensätze = weitere_datensätze + rng.Offset(0, 1)
End If
Loop While Not rng Is Nothing And rng.Address firstAddress
End If
End With
End Function
mit dieser Funktion sollen mehrere Datensätze für den Suchbegriff ausgewertet werden außer dem ersten.
Wenn ich die Funktion aus VBA aufrufe kein Problem, aber wenn ich sie als Tabellenblattfunktion einfügen will kommt als Ergebnis immer nur #Wert!
Bitte um Hilfe
mfG
Ingo Christiansen