ich will unbedingt das im Text der erste Buchstabe automatich GROSS geschrieben wird, damit es in den Tabellen einheitlich aussieht.
Die Formel Gross o. Gross2 gefällt mir nicht, da ich dafür ja eine extra Spalte brauche.
zu bearbeitende Zellen markieren und Makro starten:
Sub ErsterBuchstabeGross()
Dim Zelle As Range, Bereich As Range
Set Bereich = Application.Selection
For Each Zelle In Bereich
If Not IsNumeric(Zelle.Value) Then
Zelle.Value = WorksheetFunction.Proper(Zelle.Text)
End If
Next Zelle
Set Bereich = Nothing
End Sub