Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Ersten Buchstaben einer Zeichenkette gro schreiben

Die heutigen Zeiten meinen es nicht gut mit dem Duden und der altehrwrdigen 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 Wrter zu korrigieren.

Buchstaben vergrern 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 Grobuchstaben. Falls die Zeichenkette bereits mit einem Grobuchstaben beginnt, gibt die Funktion den gleichen Ausdruck zurck.

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-2015 André Minhorst Alle Rechte vorbehalten.