Ich habe in Spalte B Zelle B1:B1500
1500 Nachnamen untereinander stehen.
Leider sind einige Namen klein geschrieben.
Ich möchter das der Erste Buschstabe des Namens groß geschrieben wird!
Könnt ihr mir helfen?
Danke!
Gruß
Rolf St.
Sub Gross()
On Error GoTo Fehler
Dim SP%, LR&, TB1, TB2, i&
Set TB1 = Sheets("Tabelle1")
SP = 2 'Spalte B
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 1 To LR
TB1.Cells(i, SP) = Application.Proper(TB1.Cells(i, SP))
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub