V B A
Professionally 02: Text in capital letters to write

Script

Sub Textincapitalletterstowrite()

Dim Zeile As Long

With Tabelle10

ZeileMax = .UsedRange.Rows.Count

SpalteMax = .UsedRange.Columns.Count
For Zeile = 1 To ZeileMax
.Cells(Zeile, 1).Value = UCase(.Cells(Zeile, 1).Value)
Next Zeile

End If

End With

End Sub

  b a c k