#groß und #klein und #gemischt


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

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter Access, Excel, VBA abgelegt und mit , , , , , , , , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s