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
(23.03.2021, 08:17)Strumpf-Maus schrieb: [ -> ]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
Hallo,
ich habe die Datei mal beigefügt
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
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.