Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Komplettes Workbook in Großbuchstaben

Komplettes Workbook in Großbuchstaben
08.05.2017 11:46:26
Addi
Hallo Zusammen,
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komplettes Workbook in Großbuchstaben
08.05.2017 12:48:01
Werner
Hallo Addi,
so:
Public Sub Namen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Trim(UCase(ws.Name))
Next
End Sub
Gruß Werner
AW: Komplettes Workbook in Großbuchstaben
08.05.2017 12:59:36
Addi
Hallo Werner,
vielen Dank für das schnelle Feedback, aber ich glaube Du hast mich falsch verstanden.
Ich würde gerne den kompletten Inhalt aller Reiter in meinem Workbook entsprechend bearbeiten, nicht nur die Reiterbezeichnung :-)
Gibt es dazu auch eine ähnlich "simple" Lösung?
VG
addi23
Anzeige
AW: Komplettes Workbook in Großbuchstaben
08.05.2017 13:41:47
Werner
Hallo Addi,
Public 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ß Werner
AW: Komplettes Workbook in Großbuchstaben
09.05.2017 17:39:18
Addi
Hallo Werner,
sorry - wegen der späten Rückmeldung.
Das war genau das was ich gesucht habe!!!
TOP - vielen Dank
VG
addi23
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
09.05.2017 18:30:53
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige