ich habe eine sehr große Datei mit vielen Reitern, die unterschiedlich befüllt sind.
Ich möchte per VBA ALLES Trimmen und in Großbuchstaben umwandeln.
Gibt es dazu eine einfache Lösung?
Vielen Dank und Gruß
addi23
Public Sub Namen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Trim(UCase(ws.Name))
Next
End Sub
Gruß WernerPublic Sub Groß()
Dim ws As Worksheet
Dim Zelle As Range
For Each ws In ThisWorkbook.Worksheets
With ws
For Each Zelle In ws.UsedRange
Zelle.Value = Trim(UCase(Zelle.Value))
Next
End With
Next
End Sub
Gruß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen