Tabelle/Mappe komplett in Großbuchstaben
Stefano
ich möchte die komplette Arbeitsmappe in Großbuchstaben umwandeln.
Hab einen Code für eine einzelne Spalte gefunden:
Sub neu()
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To lz
wert1 = Cells(x, 1)
Cells(x, 1) = UCase(Cells(x, 1))
Next
End Sub
Bekomme es irgendwie nicht hin diesen Code entsprechend anzupassen.
Könnt Ihr mir da helfen?