Sortierung per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
hier mal das Makro, wie ich es umbauen würde:


Sub Sortieren()
Dim i As Long
With ThisWorkbook.Worksheets("Tabelle1")
i = .Cells(.Rows.Count, 15).End(xlUp).Row
Range("E1:O" & i).Sort _
key1:=Range("O1:O" & i), order1:=xlAscending, _
key2:=Range("E1:E" & i), order2:=xlAscending, Header:=xlGuess
End With
End Sub

Das hat jetzt nicht mehr viel mit deiner Aufzeichnung zu tun, aber dabei kommt auch viel "Müll" raus, den man einfach nicht braucht.
Es reicht, im Makro zu sagen: "Sortiere Bereich E:O, zuerst Spalte O aufsteigend, danach E aufsteigend."
Viel mehr sagt mein Makro nun auch nicht mehr aus.
Was sein sollte, da der Recorder das nicht aufzeichnet, du solltest immer die letzte beschriebene Zeile suchen lassen, was du mit der Zeile "i = .Cells ..." tust.
Hier ist nur zu beachten, in deiner echten Tabelle, dass du in der gleichen Zeile die 15 durch die Spalte austauschst, die definitiv am weitesten nach unten reicht. Habe jetzt einfach mal Spalte O (=15) genommen.
Du musst also deinen Code wieder löschen und dann meinen stattdessen einfügen, einen Button aufs Blatt legen und das Makro damit verknüpfen.
Hoffe, du kommst klar damit.
Im Prinzip könntest du deinen Code auch einfach stehen lassen, ich würde trotzdem empfehlen, die letzte Zeile dynamisch suchen zu lassen.
Achja: ganz WICHTIG: Header:=xlGuess würde ich vermeiden, du weißt ja, ob du Überschriften hast, oder nicht. Also entweder xlYes statt xlGuess nehmen, wenn du Überschriften hast, ansonsten xlNo.
Bei Guess kann (muss nicht) grober Unfug rauskommen, deswegen bitte vermeiden.
Gruß Pierre

Sub Sortierung Dim ws As Worksheet For Each ws In Sheets With ws i = Range("E:E").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row '.Cells(.Rows.Count, 5).End(xlUp).Row Range("E3:O" & i).Sort _ key1:=Range("O3:O" & i), order1:=xlAscending, _ key2:=Range("H3:H" & i), order2:=xlAscending, Header:=xlNo End With End If Next End Sub

Sub Sortierung Dim ws As Worksheet For Each ws In Sheets With ws i = .Range("E:E").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row '.Cells(.Rows.Count, 5).End(xlUp).Row .Range("E3:O" & i).Sort _ key1:=.Range("O3:O" & i), order1:=xlAscending, _ key2:=.Range("H3:H" & i), order2:=xlAscending, Header:=xlNo End With End If Next

Dim ws As Worksheet Dim i As Long For Each ws In Sheets If ws.Name "X1" And ws.Name "X2" And ws.Name "X3" And ws.Name "X4" And ws.Name "X5" Then With ws i = .Range("E:E").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row '.Cells(.Rows.Count, 5).End(xlUp).Row .Range("E3:O" & i).Sort _ key1:=.Range("O3:O" & i), order1:=xlAscending, _ key2:=.Range("H3:H" & i), order2:=xlAscending, Header:=xlNo End With End If Next ws end sub

Sub Sortierung() Dim ws As Worksheet Dim gefunden As Range Dim i As Long For Each ws In Worksheets With ws Set gefunden = .Range("E:E").Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious) If Not (gefunden Is Nothing) Then i = gefunden.Row Range("E3:O" & i).Sort _ key1:=.Range("O3:O" & i), order1:=xlAscending, _ key2:=.Range("H3:H" & i), order2:=xlAscending, Header:=xlNo End If End With Next 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