Sie brauchen Ihren #Text in #Kleinbuchstaben? In #Großbuchstaben? Den Anfang Von Jedem Wort Groß? Weil die Datenerfassung z.B. schlampt und KathAriNa schwarzeR in die Zelle A1 schreibt?

In Excel benutzen Sie dafür die Funktionen

=KLEIN(A1) für katharina schwarzer

=GROSS(A1) für KATHARINA SCHWARZER

=GROSS2(A1) für Katharina Schwarzer

Ach, Sie arbeiten in einer Access-Abfrage. Dann gewöhnen Sie sich um; benutzen Sie bitte Kleinbst(Ausdruck), Großbst(Ausdruck). Und mehr gibt es nicht, Jeden Ersten Buchstaben Groß müssen Sie (auf komplizierte Art und Weise) selbst basteln.

In VBA bieten sich LCase(Ausdruck) und UCase(Ausdruck) für alles-klein bzw. ALLES-GROSS an. Für die Jeden Ersten Buchstaben Groß-Funktionalität bieten sich zwei Varianten an:

StrConv(„kathaRina schwArzer-kaNNs„,vbProperCase) ist recht brav, setzt aber nur erste Zeichen groß, die auf ein Leerzeichen folgen – hier wäre das Ergebnis also Katharina Schwarzer-kanns

Tja, oder Sie schreiben sich eine Funktion (oder kopieren diese hier):

Public Function GrossKlein(myString)
Dim isFirst As Boolean
Dim Ch As String * 1
Dim I As Long
 
If IsNull(myString) Then
  GrossKlein = myString
Else
  GrossKlein = ""
  isFirst = True
  For I = 1 To Len(myString)
    Ch = Mid(myString, I, 1)
    If StrComp(LCase(Ch), UCase(Ch), vbBinaryCompare) Then
      Ch = IIf(isFirst, UCase(Ch), LCase(Ch))
      isFirst = False
    Else
      isFirst = True
    End If
    GrossKlein = GrossKlein & Ch
  Next I
End If
End Function

Damit wird jedes Zeichen, das nicht auf einen Buchstaben (alle Zeichen, bei denen UCase nicht dasselbe Ergebnis liefert wie LCase) folgt, mit UCase in Großschreibung dargestellt, alle anderen Zeichen in Kleinschreibung, und Nicht-Buchstaben bleiben, wie sie sind.

Katharina Schwarzer-Kanns