Herbers Excel-Forum - das Archiv
Funktion spuckt einen Fehler aus
Betrifft: Funktion spuckt einen Fehler aus
von: Arne
Geschrieben am: 20.11.2003 14:55:24
Hallo Leute,
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
Betrifft: AW: Funktion spuckt einen Fehler aus
von: PeterW
Geschrieben am: 20.11.2003 15:06:09
Hallo Arne,
die Funktion läuft fast ohne Probleme. Schreibe die Zeile mit Umbruch mal in eine Zeile, also statt
If Mid(str, Count – 1, 1) = " " Then _
Initit = Initit & Mid(str, Count, 1)
If Mid(str, Count - 1, 1) = " " Then Initit = Initit & Mid(str, Count, 1)
Gruß
Peter
Betrifft: AW: Funktion spuckt einen Fehler aus
von: Arne
Geschrieben am: 20.11.2003 15:12:09
Erstaunlich! :)
danke, danke, danke!!! :)
aber das es in einer zeile stehen muss...
Schönen Dank an Euch beide
Arne
Betrifft: AW: Funktion spuckt einen Fehler aus
von: Michael Scheffler
Geschrieben am: 20.11.2003 15:06:53
Hallo,
Option Explicit
Sub test()
MsgBox Init("Mein NAme")
End Sub
Function Init(str As String) As String
Application.Volatile
Dim strArr
strArr = Split(str)
Init = Left(strArr(0), 1) & " " & Left(strArr(1), 1)
End Function
Gruß
Micha
Betrifft: AW: Funktion spuckt einen Fehler aus
von: Nayus
Geschrieben am: 20.11.2003 15:09:38
Hi,
hab' die Funktion ein wenig umgeschrieben.
Geht so...
Function Initit(str As String) As String
Dim l_ret As String, l_buff As String
Application.Volatile
l_buff = " " & str
For I = 2 To Len(l_buff)
If Mid(l_buff, I - 1, 1) = " " Then
l_ret = l_ret & Mid(l_buff, I, 1)
End If
Next I
Initit = l_ret
End Function
Gruß,
Nayus
Betrifft: AW: Funktion spuckt einen Fehler aus
von: Arne
Geschrieben am: 20.11.2003 15:14:23
also nochmal danke! das ich mir die funktion aussuchen kann, die funktioniert hätte
ich jetzt echt nicht gedacht...! :)
arne
Betrifft: AW: Funktion spuckt einen Fehler aus
von: Martial
Geschrieben am: 20.11.2003 15:23:17
Hi Arne
Also bei mir funktioniert das Ding. Ich arbeite allerdings noch mit Excel 97.
Hast du die Funktion in einem Modul untergebracht? Du kannst sie allenfalls noch public machen. (Public Function Initit(.....)
Der Eintrag in der Zelle muss dann so aussehen: =Initit("Bill Gates")
Dann funktionierts bei mir.
Gruss, Martial