Microsoft Excel

Herbers Excel/VBA-Archiv

Datum in Text umformatieren

Betrifft: Datum in Text umformatieren von: Christoph
Geschrieben am: 02.10.2020 10:36:46

Hallo zusammen,


ich versuche in einer Tabelle eine Spalte mit Datumswerten in Text"werte" um zuwandeln. Dazu habe ich folgendes VBA erstellt:




Sub Makro1()
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 2), TrailingMinusNumbers:=True
End Sub



Leider wird das Datum welches ursprünglich in TT.MM.JJJ formatiert war in einen Text"wert" MM/TT/JJJJ umformatiert. wie läßt sich das og. Statement so ergänzen, daß das Datum zwar als Text"wert" umformatiert wird aber in dem ursprünglichen Format verbleibt.


MfG

Christoph

Betrifft: AW: Datum in Text umformatieren
von: Matthias L
Geschrieben am: 02.10.2020 11:10:13

Hi,

Tabelle1

 AB
102.10.202002.10.2020

Formeln der Tabelle
ZelleFormel
B1=TEXT(A1;"TT.MM.JJJ")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8


Gruß ...

Betrifft: AW: Datum in Text umformatieren
von: Christoph
Geschrieben am: 02.10.2020 11:57:28

Ich würde es gerne ohne Das Einfügen einer neuen Spalte und der Eingabe einer Formel machen wollen.

Betrifft: AW: Datum in Text umformatieren
von: chris b.
Geschrieben am: 02.10.2020 12:01:48

Hilft dir das weiter ?
Sub Makro2()

ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""TT.MM.JJJ"")"

End Sub


Betrifft: AW: Datum in Text umformatieren
von: chris b.
Geschrieben am: 02.10.2020 12:10:43

oder so?
Sub Makro2()
cb = Cells(1, 1).Text

Cells(1, 1) = cb

End Sub


Betrifft: AW: Datum in Text umformatieren
von: Christoph
Geschrieben am: 02.10.2020 12:55:57

@chris b.

Wie bekomme ich Deine Version für Alle gefüllten Zellen einer selektierte Spalte hin?

Betrifft: AW: Datum in Text umformatieren
von: Gerd L
Geschrieben am: 02.10.2020 13:44:37

Moin
Sub Unit()

    Dim Zelle As Range
    
    
    For Each Zelle In ActiveCell.EntireColumn.SpecialCells(2)
        Zelle.Value = CStr(Zelle.Text)
    Next


End Sub

Gruß Gerd

Betrifft: AW: Datum in Text umformatieren
von: Christoph
Geschrieben am: 02.10.2020 14:13:11

Danke @all. Funxt einwandfrei!