Datumsformat ändern nicht möglich

[Strumpf-Maus]

Guten Morgen,

ich habe folgendes Problem:

in einem Tabellenblatt befindet sich eine Spalte mit verschiedenen Datumseinträgen.
Das Datum ist im Format TTMMJJJJ vorhanden, ich benötige jedoch den . zwischen Tag, Montag und Jahr.
Wenn ich die Spalte markiere und über Zellen formatieren gehe, finde ich keine Möglichkeit das Datum in das gewünschte Format umzuwandeln.

Hat jemand eine Idee?

Vielen Dank

[RPP63]

Das Datum ist im Format TTMMJJJJ vorhanden, ich benötige jedoch den . zwischen Tag, Montag und Jahr.

Moin!
Ich nehme eher an, dass Du entweder einen TEXT oder eine Zahl im Format 00000000 in den Zellen hast.
Prüfe mal mit ISTZAHL(Zelle)

Lade mal die Datumspalte hoch.

Gruß Ralf

[Strumpf-Maus]

Hallo,

ich habe die Datei mal beigefügt

[RPP63]

Wenn ich die CSV importiere (nicht öffne), dann kann ich in Schritt 4 des Import-Assistenten für Spalte 5 Datum einstellen.
Dann wird auch ein echtes Datum angezeigt.
(geht sicherlich auch mit Power Query)
Ich habe den Vorgang mal aufgezeichnet, den Pfad musst Du natürlich anpassen.

Sub Makro2()
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\RPP63\Desktop\kunde.csv", Destination:=Range("$A$1"))
        .Name = "kunde_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1250
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 4, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub


Gruß Ralf

[Kuwer]

Hallo,

hier noch ein Bild zu Ralf´s Erklärung:

   

Gruß Uwe

[RPP63]

Oops, stimmt, war Schritt 3

Wichtig ist auch, den Chinesen in Schritt 1 auf Windows (westeuropäisch) zu ändern.
Mein Code berücksichtigt dies bereits.