Herbers Excel-Forum - das Archiv

Funktion spuckt einen Fehler aus

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild
Excel-Beispiele zum Thema " Funktion spuckt einen Fehler aus "
Funktion ANZAHL2 ohne ausgeblendete Spalten Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche Alle Prozeduren und Funktionen auflisten
In Funktionskategorie einordnen Ausgabe einer benutzerdefinierten Funktion in Matrixformel
Benutzerdefinierte Funktion durch Code erstellen und löschen Ermittlung von Entfernungen über benutzerdefinierte Funktion
Handhabung von Arrays in benutzerdefininierten Funktionen Arbeitsmappen-Titel über benutzerdefinierte Funktion