860to864: Kann Datumstyp In SPalte Nicht Ändern

Moin Moin Zusammen ...
beschäftige mich schon seit fast `ner Stunde mit folgendem Problem - https://www.herber.de/bbs/user/41751.zip ...
Wenn Ihr die gezippte Excel-Datei öffnet, dann erkennt ihr in der A Spalte eine Datumsreihe vom 01.01.1900 bis Anfang dieses Jahres. Mein Problem ist nun folgendes : "Die A Spalte ist nicht als DATUM formatiert ..."
Wenn ich also die A SPALTE markiere - dann auf rechte Maustaste & dann auch Zellen formatieren drücke - und dann unter der Kategorie Zahlen Kategorie Datum wähle, kann ich nicht für die ganze A Spalte den TYp frei bestimmen !!!!! Und eben das ist mein Problem !? !? !?
Ich krieg schon bei der Formulierung des Problems einen Heißen Kopf - geschweige denn bei der Problemlösung !!!!! Wer kann mir die A Spalte umformulieren - oder gar beschreiben wie das funktioniert !?
Dank` Euch schon jetzt & ein entspanntes kühles Wochenende :
Leo van der Haydn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Leo van der Haydn,
vermutlich besteht Deine Tabelle nicht nur aus dieser Spalte, sondern die Spalte in Deiner Tabelle ist das Ergebnis eines Einlesen aus einem Text via Assistent. Wenn dem so ist, dann hast Du bei der Option zr Spaltenformatierung übersehen, dass heir wohl das Datumsformat Monat.Tag.Jahr vorzugeben ist, das ansonsten die Umwandlung bei Tag.Monat.Jahr zu einem 13. bis 31. Monat führen würde, was jedoh so von keinem als Monat interpretiert werden kann, auch nicht von EXCEL. Daher wird an diesen stellen das Standardformat "Text" für den Eintrag angenommen, während sonst die Zahl bzw. das sich daraus ergebende Datum angenommen wird.
Wenn du eine Hillsspalte frei hastt, dann setze dort die Zellenformel =TYP(A1) und ziehe sie nach unten. Die Zahl 1 steht für eine Zahl (nur aus Zahlen größer gleich 1 ihr kann ein Datum gebildet werden), die Zahl 2 steht für einen Text.
Wenn Du die Spalte A als Zahl formatierst, erkennest Du, dass nur die Formattypen 1 in Zahlen umgewandelt werden, die zudem noch eine Sprungweite (Monatssprünge) aufweisen.
Wenn Du also Deine Daten aus der externen Quelle nicht noch einmal einlesen kannst und dabei dann auf die Datumsformatierung besonders achten kannst (MM.TT.JJJJ) , dann müßten die die Textwerte der Zellen zerlegt werden und in der Datumsformel wieder zusammengefügt werden, so dass eine Zahl ensteht, die als Datum formartiert werden kann, denn Deine Datumwerte enthalten die Samstage und Sontage nicht (auf weitere Fehltage habe ich nicht untersucht).
Gruß,
Uwe

Sub test() Dim i As Long, datDatum For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row datDatum = Mid(Cells(i, 1).Text, 4, 3) & Left(Cells(i, 1).Text, 3) _ & "19" & Right(Cells(i, 1).Text, 2) 'individuelle Abgrenzung erste Zeile mit Jahr "2000" ff If i > 27429 Then datDatum = Mid(Cells(i, 1).Text, 4, 3) & Left(Cells(i, 1).Text, 3) _ & "20" & Right(Cells(i, 1).Text, 2) End If Cells(i, 1).NumberFormat = "dd.MM.YYYY" Cells(i, 1).Value = Format(datDatum, "dd.MM.YYYY") datDatum = "" Next End Sub

Option Explicit Sub MMTTJJJinDatum() Dim lngZ As Long lngZ = Cells(Rows.Count, 3).End(xlUp).Row Columns(4).Insert With Range(Cells(3, 4), Cells(lngZ, 4)) .FormulaR1C1 = "=DATE(RIGHT(RC[-1],4),LEFT(RC[-1],2),MID(RC[-1],4,2))" .Value = .Value End With Columns(3).Delete End Sub

Option Explicit Sub MMTTJJJinDatum() Dim lngZ As Long lngZ = Cells(Rows.Count, 3).End(xlUp).Row Columns(4).Insert Cells(2, 4) = Cells(2, 3) With Range(Cells(3, 4), Cells(lngZ, 4)) .FormulaR1C1 = "=DATE(RIGHT(RC[-1],4),LEFT(RC[-1],2),MID(RC[-1],4,2))" .Value = .Value End With Columns(3).Delete End Sub

Beliebteste Forumthreads (12 Monate)

860to864: Kann Datumstyp In SPalte Nicht Ändern

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

860to864: Kann Datumstyp In SPalte Nicht Ändern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread