Funktion spuckt einen Fehler aus
20.11.2003 14:55:24
Arne
eigentlich sollte diese Funktion aus einem Namen und einem Vornamen die Initialien zusammenbauen, aber irgendwie gibts nur einen Syntaxfehler...
Hat jemand eine Idee woran es liegen könnte?
Function Initit(str As String) As String
Dim Count As Integer
Application.Volatile
str = " " & Application.Trim(str)
For Count = 2 To Len(str)
If Mid(str, Count 1, 1) = " " Then _
Initit = Initit & Mid(str, Count, 1)
Next Count
End Function
Danke
Arne
Anzeige