Nur formatierten Text in GROSSBUCHSTABE
Becker
Habe in eine Tabelle in Spalte "B" ca 2500 Daten Sätze (Text). Gewisse Daten Sätze sind fett formatiert (size 16). Ich möchte gerne nur die fett formatierte Texte (size 16) in große Buchstabe umwandeln.
Als Beispiel; von
Grüne Apfel
ins
GRÜNE APFEL
Habe in Forum folgenden "GrossBuchstaben" Code gefunden s.u.. Mit diesen Code werden alle Buchstaben gross geschrieben.
Kann man diesen Code so anpassen dass er nur die fett Formatierung (size 16) in grosse Buchstabe umwandelt?
Sub GrossBuchstaben()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 2)
Zelle.Value = UCase(Zelle.Value)
Next Zelle
End Sub
Bitte um Hilfe
Gruß Daniel