Formatierung automatisch

Hallo,
Sorry, dass ich damit noch mal kommen muss: aber leider gab es bis jetzt noch keine richtige Lösung, weshalb ich das Problem noch ein Mal formuliere und mir denke, "das muss doch möglich sein"?!
Bitte schaut euch mal die hier im Forum hoch geladene Tabelle an:


https://www.herber.de/bbs/user/70776.xls

Als erstes soll aufsteigend nach Datum sortiert werden, als zweites aufsteigend nach Schicht und als drittes Kriterium aufsteigend nach Uhrzeit.
Dafür haben mir nette Forumsmitglieder bereits Makros erstellt (siehe am Ende dieses Textes).
Das Problem, weshalb diese nicht richtig funktionieren, liegt an der Formatierung der Datumsspalte. Man muss die Datumswerte markieren und dann bei dem gelben Ausrufezeichen (links an jeder Zelle) auf das Format 20XX umstellen.
Warum das so ist kann ich mir nicht erklären.
Dies manuell zu machen bringt mir nichts: da später noch Daten hinzukommen und das dann per Makro alles automatisch funktionieren soll, also das Sortieren automatisch funktionieren soll.
Ich habe schon versucht mit dem Makrorekorder aufzuzeichnen, wie ich die Zellen markiere und an dem, gelben Ausrufezeichen auf 20XX umstelle.
Das zeichnet er aber nicht auf (diese Umformatierung wird ignoriert).
Man merkt sofort, dass die jeweiligen Sortier-Makros nicht klappen. Weil das Datum nicht fortlaufend (14.01.1015.01.10.16.01.10) sondern in Sprüngen:(1.02.1001.03.101.04.10) sortiert wird (wegen Formatierung).
Ich möchte, das in den Zellen das Format: 14.01.10 steht und oben in der Bearbeitungsleiste bzw. Zeile müsst es dann aber 14.01.2010 anzeigen, damit es auch mit dem Sortieren richtig klappt.
Makros der Mitglieder:
Sub YUSUF_2()
Columns("M:M").NumberFormat = "General"
Range("A4:U714").Sort Key1:=Range("M4"), Order1:=xlAscending, Key2:=Range("O4"), Order2:=xlAscending, Key3:=Range("N4"), Order3:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal _
, DataOption3:=xlSortTextAsNumbers
Columns("M:M").NumberFormat = "dd/mm/yy"
End Sub
Sub sortierTino()
With ActiveSheet
.Range("A4:U" & .Rows.Count).Sort _
Key1:=.Range("M4"), Order1:=xlAscending, _
Key2:=.Range("O4"), Order2:=xlAscending, _
Key3:=.Range("N4"), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal, DataOption3:=xlSortTextAsNumbers
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub BrutaleVariante() Dim lRow As Long lRow = Range("M65536").End(xlUp).Row Range("V4:V" & lRow).FormulaR1C1 = "=DATE(YEAR(RC[-9]),MONTH(RC[-9]),DAY(RC[-9]))" Range("M4:M" & lRow).Value = Range("V4:V" & lRow).Value Range("V4:V" & lRow).ClearContents Range("A4:U" & Rows.Count).Sort _ Key1:=Range("M4"), Order1:=xlAscending, _ Key2:=Range("O4"), Order2:=xlAscending, _ Key3:=Range("N4"), Order3:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal, DataOption3:=xlSortTextAsNumbers End Sub

Sub BrutaleVariante() Dim lRow As Long 'dimensionieren lRow = Range("M65536").End(xlUp).Row 'letzte Zeile in Spalte M ermitteln Range("BE4:BE" & lRow).FormulaR1C1 = "=DATE(YEAR(RC[-44]),MONTH(RC[-44]),DAY(RC[-44]))" 'in die ungenutze Zeile BE die Umwandlungsformel eintragen. Spalte BE minus 44 = Spalte M (RC1 _ Bezug) Range("M4:M" & lRow).Value = Range("BE4:BE" & lRow).Value 'Werte in Spalte M durch Werte in Spalte BE ersetzen (.Value heisst quasi "Werte, nicht Formeln! _ ) Range("BE4:BE" & lRow).ClearContents 'Spalte BE löschen Range("A4:U" & Rows.Count).Sort _ Key1:=Range("M4"), Order1:=xlAscending, _ Key2:=Range("O4"), Order2:=xlAscending, _ Key3:=Range("N4"), Order3:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal, DataOption3:=xlSortTextAsNumbers 'Bereich A4:U(ende) sortieren End Sub

Sub sortierTino() With ActiveSheet .Range("M4", .Cells(.Rows.Count, 13).End(xlUp)).TextToColumns _ Destination:=.Range("M4"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True .Range("A4:U" & .Rows.Count).Sort _ Key1:=.Cells(1, 13), Order1:=xlAscending, _ Key2:=.Cells(1, 14), Order2:=xlAscending, _ Key3:=.Cells(1, 15), Order3:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal, DataOption3:=xlSortTextAsNumbers End With End Sub

Sub sortierTino() With ActiveSheet .Range("M4", .Cells(.Rows.Count, 13).End(xlUp)).TextToColumns _ Destination:=.Range("M4"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True .Range("N4", .Cells(.Rows.Count, 14).End(xlUp)).TextToColumns _ Destination:=.Range("N4"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True .Range("A4:U" & .Rows.Count).Sort _ Key1:=.Cells(1, 15), Order3:=xlAscending, _ Key2:=.Cells(1, 14), Order2:=xlAscending, _ Header:=xlNo, OrderCustom:=1, DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal .Range("A4:U" & .Rows.Count).Sort _ Key1:=.Cells(1, 13), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, DataOption1:=xlSortNormal End With End Sub

Hallo Tino,
die erste Zeile beim Datum war falsch formatiert der Rest aber nicht als Text.
Ich meine damit, dass ich nicht mehr machen kann, als die Spalte rechts anzuklicken und auf Format Datum umzustellen.
Nun zu Deinem Makro,
du kannst es spaßeshalber auch gerne mal selber testen (ich hab ja dafür die Tabelle hochgeladen), nur falls es dich hoffentlich auch interessiert, denn wie Du weist kann man ja nur dazu lernen.
Das interessante bei Deinem Makro ist, dass es bei jedem 2. Mal ausführen richtig sortiert und bei ebenso jedem 2. Klick falsch sortiert.
Also ich führe Dein Mako aus und es sortiert sofort richtig, führe ich das Makro anschließend noch mal aus (unabhängig davon, ob Uhrzeiten/Schichten geändert wurden) sortiert es falsch.
Klick ich wieder drauf, dann stimmt die Sortierung wieder und so weiter.
Bei dem Makro von Klaus passt jetzt alles. Da Klaus aber die brutale Variante gewählt hat wäre es interessant zu wissen, ob es da nicht einen Mittelweg (einfachere Lösung) als Makro gibt.
Vielen Dank euch Genies

Sub Makro1() With ActiveSheet If Len(.Cells(.Rows.Count, 13).End(xlUp)) < 10 Then .Range("M4", .Cells(.Rows.Count, 13).End(xlUp)).TextToColumns _ Destination:=.Range("M4"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True End If .Range("N4", .Cells(.Rows.Count, 14).End(xlUp)).TextToColumns _ Destination:=.Range("N4"), DataType:=xlFixedWidth, _ FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True .Range("A4:O" & .Rows.Count).Sort _ Key1:=.Range("M4"), Order1:=xlAscending, DataOption1:=xlSortNormal, _ Key2:=.Range("O4"), Order2:=xlAscending, DataOption2:=xlSortNormal, _ Key3:=.Range("N4"), Order3:=xlAscending, DataOption3:=xlSortNormal, _ Header:=xlNo, SortMethod:=xlStroke End With End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread