Normalen Text in VBA-Funktionsnamen umwandeln

Sprache / Programm: VBA ab Office 95

Beschreibung

Erstellt aus dem übergebenen Text einen Funktionsnamen, der den Regeln von VBA für Funktionsnamen entspricht.

Die Zeichen <TT> .,!@&$#<TT>werden in Unterstriche (_) umgewandelt, führende Ziffern werden entfernt. Bei Leerzeichen wird der erste Buchstabe nach dem Leerzeichen in einen Großbuchstaben umgewandelt und das Leerzeichen entfernt.

Falls der übergebene Text keine Buchstaben enthält, wird ein leerer String zurückgegeben.

VBA-Quelltext

' Entfernt Leerzeichen und ändert den ersten Buchstaben
' nach einem Leerzeichen In einen Großbuchstaben
Public Function FunktionsNamenErzeugen(QuellText As String) As String
Dim Pos As Integer
If Not (QuellText Like "*[A-Z]*") Then Exit Function
Pos = InStr(1, QuellText, " ")
While Pos <> 0
QuellText = Left(QuellText, Pos - 1) & Mid(QuellText, Pos + 1)
Mid(QuellText, Pos, 1) = UCase(Mid(QuellText, Pos, 1))
Pos = InStr(Pos, QuellText, " ")
Wend

While Not (QuellText Like "[A-Z]*")
QuellText = Mid(QuellText, 2)
Wend

For Pos = 1 To Len(QuellText)
If Mid(QuellText, Pos, 1) Like "[.,!@&$# ]" Then Mid(QuellText, Pos, 1) = "_"
Next Pos

FunktionsNamenErzeugen = QuellText
End Function

Argumente der Funktion/Prozedur

QuellText.

Text, der in einen gültigen Funktionsnamen umgewandelt werden soll.

Anwendungsgebiete, Fehler und Warnungen

Wenn der übergebene Text keinen Buchstaben (A-Z, a-z) enthält, wird ein leerer String zurückgegeben.