Funktion spuckt einen Fehler aus

• Funktion spuckt einen Fehler aus von Arne vom 20.11.2003 14:55:24
  • AW: Funktion spuckt einen Fehler aus - von PeterW am 20.11.2003 15:06:09
    • AW: Funktion spuckt einen Fehler aus - von Arne am 20.11.2003 15:12:09
  • AW: Funktion spuckt einen Fehler aus - von Michael Scheffler am 20.11.2003 15:06:53
  • AW: Funktion spuckt einen Fehler aus - von Nayus am 20.11.2003 15:09:38
  • AW: Funktion spuckt einen Fehler aus - von Arne am 20.11.2003 15:14:23
  • AW: Funktion spuckt einen Fehler aus - von Martial am 20.11.2003 15:23:17

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

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