wie da ja auch steht.



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