Startseite

Groß- und Kleinschreibung

Oft kommt es vor, das Tabellen, die aus anderen Programmen importiert wurden, Texte unterschiedlicher Schreibweisen haben. Mit diesem Makro ist es möglich Spaltenweise den ersten Buchstaben groß, und die folgenden klein zu schreiben.
Das Ergebnis:
Das Makro zum Kopieren:
Sub groß_klein()
' Wandelt Texte in Groß- und Kleinschreibung (hier in Spalte A)
Dim z%                                                  ' Variable deklarieren
z = 2                                                   ' Startzeile (hier 2)
Do While Cells(z, 1) <> ""                              ' Bedingung für Schleife (laufe solange Inhalt)
    Cells(z, 1) = WorksheetFunction.Proper(Cells(z, 1)) ' Zelle formatieren
z = z + 1                                               ' Schleifenzähler
Loop                                                    ' Wendepunkt für Schleife
End Sub                                                 ' Ende des Makros