Als Text formartierte Zahlen sinnvoll kennzeichnen

[Gast 123]

Hallo Andreas

es ist mit Makros kein Problem Zellen Formate zu aendern z.B. wie unten.  Bei vielen Zellen kann das eine Weile dauern!
Statt den ganzen UsedRange kannst du selbst jeden beliebigen Bereich angeben.  Das verkürzt das austauschen.

mfg  Gast 123

Code:

Sub Format_aendern()
Dim AC As Range
Application.ScreenUpdating = False
For Each AC In ActiveSheet.UsedRange
  If AC.NumberFormat = "T. MMMM JJJJ" Then
     AC.NumberFormat = "mmmm d, jjjj"
  End If
Next AC
End Sub

[schauan]

Hallöchen,

=ZEIGE_UNFORMATIERTEN_WERT()

da kannst Du auch =A1 nehmen und die Zelle mit Standard formatieren Oder Du nimmst die Funktion Zelle(...)

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	06.02.2019	43502	D1	43502

Zelle	Format	Wert
A1	TT.MM.JJJJ	06.02.2019

Zelle	Formel
A1	=HEUTE()
B1	=A1
C1	=ZELLE("format";A1)
D1	=ZELLE("inhalt";A1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[ibu]

Oder Du nimmst die Funktion Zelle(...)

Super Lösung für "=ZEIGE_UNFORMATIERTEN_WERT()". Herzlichen Dank!
Jetzt fehlt nur noch eine benutzerdefinierte Funktion für =ZEIGE_VOLLSTAENDIGEN_FORMATCODE()".
Genauer:

=ZELLE("format";A1)

liefert als Ergebnis ja D1. Das ist offenbar eine Abkürzung.

Das Ergebnis soll jedoch "TT.MM.JJJJ" lauten.

Aus Neugier noch:

Verwendet ihr erfahrenen Excelnutzer häufig benutzerdefinierte Funktionen oder kaum je?

[Case]

Verwendet ihr erfahrenen Excelnutzer häufig benutzerdefinierte Funktionen oder kaum je?

Hallo Andreas, :19:

permanent. UDFs machen das Leben deutlich einfacher - zumindest in Excel. :21:
Du kannst z. B. folgendes schreiben:

Code:

Debug.Print [A1].NumberFormat

Ergibt für Zelle A1: :21:

General                                                                     -->> Standard
@                                                                             -->> Text
m/d/yyyy                                                                   -->> Datum kurz
[$-F800]dddd, mmmm dd, yyyy                                   -->> Datum lang
_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)  -->> Währung

Usw. usf.

[ibu]

Code:

Debug.Print [A1].NumberFormat

Gut zu wissen, dass Du UDFs häufig einsetzt.

Danke für den Code.

Ich werde mal nach Anleitungen suchen, wie man aus so einer Zeile VBA-Code eine saubere Funktion baut und wie man sie global bereitstellen kann.

Vermutlich braucht man dafür aber doch vernünftige Programmierkenntnisse. Mal sehen.

[schauan]

Hallöchen,

liefert als Ergebnis ja D1. Das ist offenbar eine Abkürzung.

ja, das ist so. Hier mal eine grobe Richtschnur:

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B
1	D1	t-mmm-jj oder tt-mmm-jj oder …
2	D2	t-mmm oder tt-mmm oder …
3	D3	mmm-jj oder …
4	D4	m/t/jj oder m/t/jj h:mm oder mm/tt/jj
5	D5	mm/tt
6	D6	h:mm:ss AM/PM
7	D7	h:mm AM/PM
8	D8	h:mm:ss
9	D9	h:mm

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg