Spalten_Sotieren

Forumthread: Spalten_Sotieren

Spalten_Sotieren

14.01.2025 10:45:23

Björn

Hallo zusammen,

ich benötige bei einer Sache Hilfe.

Ich habe eine Tabelle , wo ab Spalte Sotiert werden müssen.
Der Inhalt und die Rhein folge in den Spalten müssen erhalten Bleiben.
In der Zeile 1 ist der Datei Name hinterlegt und in der Zeile 2 Das Datum
Beide Felder sind eindeutig und kommen nur einmal vor.

Die Sortierung soll ab Spalte D beginnen bis alle Spalten mit Inhalt .aufsteigend
Es soll Datums mäßig aufsteigend sein.

Die Datei habe ich mit angehangen

Danke schon mal im Vorfeld

Es sollte über Macro zu lösen sein , da ich noch diverse andere Auswertung mache
https://www.herber.de/bbs/user/174855.xlsx

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten_Sotieren

14.01.2025 12:07:05

Yal
AW: Spalten_Sotieren

14.01.2025 12:14:13

UweD
AW: Spalten_Sotieren

14.01.2025 12:47:17

GerdL

AW: Spalten_Sotieren

14.01.2025 12:07:05

Yal

Hallo Björn,

markiere den Bereich D1:GR78.
Dafür gehst Du auf die Zelle A1, direkt drüber gibt es eine Fenster wo darin "A1" steht. Trage "GR78" ein.
Du bist auf die Zelle GR78.
Drücke Shift+Strg+Pos1 ein. Der gesamte Bereich A1:GR78 ist markiert.
Bleibe auf Shift und drücke dreimal Pfeil nach Rechts. Der Bereich D1:Gr78 ist markiert.

Gehe im Menü "Start", "Sortieren und Filtern", "benutzerdefinierte Sortieren...". Im Sortierassistent, Auswahl "Daten haben Überschriften" rausnehmen, dann auf "Optionen..." klicken und "Spalten sortieren" einschalten. Im Assistent "Zeile1" in "sortieren nach" einrichten und ok.

Dann das gesamt normal unter laufenden Makrorekorder. Und schon hast Du den gewünschten Code.

VG
Yal

AW: Spalten_Sotieren

14.01.2025 12:14:13

UweD

Hallo

So?

    Dim LC As Integer

    With ActiveWorkbook.Worksheets("Tabelle1 (2)")

        LC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte der Zeile 1

        

        .Sort.SortFields.Clear

        .Sort.SortFields.Add2 Key:=.Range("D2").Resize(1, LC - 3), _

            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

            xlSortTextAsNumbers

        .Sort.SetRange .Columns(4).Resize(, LC - 3)

        .Sort.Header = xlNo

        .Sort.Orientation = xlLeftToRight

        .Sort.Apply

    End With

LG UweD

AW: Spalten_Sotieren

14.01.2025 12:47:17

GerdL

Hallo Björn!

Sub Unit()

    

    Dim C

    With ActiveWorkbook.Worksheets("Tabelle2") 'ggf. anpassen

    

          'Texte in Zeile 2 in Datum umwandeln

         For Each C In Range("D2:GR2").Cells

             C.Formula = CDate(C)

         Next

         

        .Sort.SortFields.Clear

         

         'Kriterien

         .Sort.SortFields.Add2 Key:=.Range( _

             "D2:GR2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

             xlSortNormal

         

         With .Sort

             .SetRange ActiveWorkbook.Worksheets("Tabelle2").Range("D1:GR80") 'Sortierbereich ggf. anpassen

             .Header = xlGuess

             .MatchCase = False

             .Orientation = xlLeftToRight 'Richtung

             .SortMethod = xlPinYin

             .Apply

         End With

     

    End With

End Sub

Gruß Gerd

Forumthread: Spalten_Sotieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread