ich will in den Zellen A1 - A20 immer in Grossbuchstaben anzeigen. Jetzt habe ich folgenden Code für eine Zelle.
Wie muss ich das Schreiben für die Erweiterung auf die anderen Zellen.
Danke für die Hilfe Gruss Andreas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim kleintext As String
kleintext = [a1]
[a1] = UCase(kleintext)
End Sub