Inhaltsverzeichnis
Akronyme aus Textstrings erstellen
Die folgende Funktion wertet Akronyme aus Strings aus, d.h. sie verkettet den ersten Buchstaben in jedem Wort in einem String. B. aus „Bäume sind grün“ wird „TAG“.
Die Routine durchläuft jedes Zeichen in einer Zeichenfolge und wenn es ein Leerzeichen ist, nimmt sie das nächste Zeichen in der Zeichenfolge. Vor der Auswertung der Zeichenfolge werden alle nachgestellten und doppelten Leerzeichen entfernt.
Funktion Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim(Original_String) 'berechnen Sie die Länge des Strings Length = Len(Trimmed_String) Acroymn = UCase(Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid(Trimmed_String, Pos, 1) = " ") Then Acroymn = Acroymn & UCase(Mid(Trimmed_String, Pos + 1, 1)) End If Next Pos Endfunktion
Also zum Beispiel:
Acroymn („British Broadcasting Corporation“) gibt BBC
Acroymn („Funky“) gibt F
Acroymn („“) gibt NULL
Um die .XLSM-Datei aus dem Artikel herunterzuladen, klicken Sie hier
