Ich würde die Funktion allerdings fehlertoleranter schreiben:
Public Function Aufsplitten(S As Variant, Trennzeichen As String, Stelle As Long)
If Isnull(S) then
Aufsplitten = Null
else
Dim SplitArray
SplitArray = Split(S, Trennzeichen)
If Stelle >= LBound(SplitArray) and Stelle <= UBound(SplitArray) then
Aufsplitten = SplitArray(Stelle)
else
Aufsplitten = ""
end if
end if
End Function
Gruß aus dem Norden
Reinhard
Bitte immer die Access-Version angeben
geschrieben von Reinhard Kraasch , 22.02.2005, 16:26 Uhr , 17 mal gelesen