Registriert seit: 25.03.2019
Version(en): Office 2013
Hallo Zusammen!
Ich hätte wieder eine Frage an euch:
Kann ich Zellen so formatieren, dass entweder Zahlen oder wenn Text dieser dann immer in Großbuchstaben angezeigt wird? Auch wenn ich klein schreibe?
Vielen Dank und liebe Grüße!
Tobi
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 25.03.2019
Version(en): Office 2013
Hallo Günter,
kann ich das einfach unter ein bereits bestehendes Makro schreiben? Zahlen werden aber dann trotzdem normal angezeigt oder?
Viele Grüße
Tobi
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Moin,
Versuch macht kluch
Ich würde es aber an einem kleinen Bereich (5-6 Zellen) probieren. Bei mir dauert die Umwandlung bei 2500 Zellen etwas über 20 Sekunden.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Zitat:Zahlen werden aber dann trotzdem normal angezeigt oder?
Wie unterscheiden sich denn klein- von großgeschriebenen Zahlen?
Schöne Grüße
Berni
Registriert seit: 25.03.2019
Version(en): Office 2013
29.03.2019, 08:39
(Dieser Beitrag wurde zuletzt bearbeitet: 29.03.2019, 08:39 von tobiz86.)
@ MisterBurns: Hallo Berni! Ich meinte hier: 1 !, 2 ", 3 §, 4 $, 5%, usw.
Liebe Grüße
Tobi
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(28.03.2019, 09:35)WillWissen schrieb: Ich würde es aber an einem kleinen Bereich (5-6 Zellen) probieren. Bei mir dauert die Umwandlung bei 2500 Zellen etwas über 20 Sekunden.
So geht es bedeutend schneller:
Sub GROSSBUCHSTABEN()
Dim rngZelle As Range
For Each rngZelle In Range("A:C").Cells
If Len(rngZelle.Value) Then
If Not IsNumeric(rngZelle.Value) And Not IsDate(rngZelle.Value) Then
rngZelle.Value = UCase(rngZelle.Value)
End If
End If
Next rngZelle
End Sub
Gruß Uwe
