Ersten Buchstaben einer Zeichenkette groß schreiben

Die heutigen Zeiten meinen es nicht gut mit dem Duden und der altehrwürdigen deutschen Rechtschreibung: Ob aus purer Faulheit oder aus dem Willen heraus, die Rechtschreibung zu revolutionieren, schreiben diverse meist New Economy-nahe Menschen alles klein. Nachfolgend vorgestellte Funktion hilft dabei, zumindest einzelne Wörter zu korrigieren.

Buchstaben vergrößern mit der Mid$-Funktion

Zumindest im Falle einiger Felder in Access-Tabellen kann man ohne schlechtes Gewissen eine einfache Funktion über die Inhalte rutschen lassen, um diese pauschal am Anfang groß zu schreiben.

Die folgende Funktion ersetzt mit der Mid$-Anweisung den ersten Buchstaben der Zeichenfolge durch den entsprechenden Großbuchstaben. Falls die Zeichenkette bereits mit einem Großbuchstaben beginnt, gibt die Funktion den gleichen Ausdruck zurück.

Public Function ErsterBuchstabeGross(strText As String) As String

    Dim strTextTemp As String

    strTextTemp = strText

    Mid$(strTextTemp, 1, 1) = UCase(Left(strTextTemp, 1))

    ErsterBuchstabeGross = strTextTemp

End Function

© 2003-2010 André Minhorst Alle Rechte vorbehalten.