title image


Smiley Du musst halt den Feldnamen als Argument der Funktion übergeben...
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: