Office: (Office 2013) Markierte Zellen Sortieren Makro

Hallo zusammen,

bin ein echter VBA Einsteiger und habe folgendes Problem:
Ich möchte einen Teil einer Tabelle mit mehrern Zeilen auswählen. Die Spalten sind dabei immer gleich (Spalte C bis inkl. T).

Den markierten Tabellenbereich möchte ich in sich benutzerdefiniert nach Werten der Spalte D sortieren. Die Reihenfolge soll hier l, p, g, A, E sein.
Dabei soll l ganz oben stehen.

Momentan sortier ich benutzerdefiniert. Das ist mir aber auf lange Sicht zu anstrengend *Smilie

Habe es schon mit Makro aufzeichnen proboiert, aber da leg ich mich ja immer auf bestimmte Zellen fest. Ich möchte ja, dass Excel mir die markierten Zellen sortiert.


Würde mich sehr freuen, wenn mir dabei jemand helfen könnte!

Vielen lieben Dank!
Peter

:)

 

Hallo Peter,

dann zeig doch mal das aufgezeichnete Makro. Anpassen, dass es nur auf den ausgewählten Bereich wirkt, ist dann vermutlich nicht dramatisch ("Selection" ist das Stichwort).

Grüße
EarlFred

 

Hi *Smilie Danke für die rasche Antwort. Das ist das Makro *Smilie


Sub Sortieren()
'
' Sortieren Makro
'

'
ActiveWorkbook.Worksheets("Status").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Status").Sort.SortFields.Add Key:= _
Range("D13177*biggrin.gif*13181"), SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:="l,p,g,A,E", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Status").Sort
.SetRange Range("C13177:T13181")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

Hallo Peter,

so?
Code:

Grüße
EarlFred

 

Hi EarlFred,

Danke! Klappt super *Smilie
Vielen vielen Dank für deine Hilfe

lg Peter

 

Hallo Peter,

gerne. Und danke für die Rückmeldung.

Grüße
EarlFred

 

Hallo Zusammen,
ich komm leider nicht weiter...

Wie kann ich in einem Tabellenblatt einfach nur markierte Zellen in aufsteigender Reihenfolge sortieren lassen via makro (kurzbefehl) ?

Vielen Dank

 

Habe hier ein ähnliches oder das gleiche Problem.

Der markierte Bereich Spalte F bis Spalte O solte nach drei Ebenen sortiert werden. Zuerst Spalte F (A-Z) dann Spalte G (A-Z) dann Spalte H(A-Z).

Wie kann ich das Makro umschreiben dass der markierte Bereich sortiert wird und nicht nur Zeile 4-9

PHP:

         Sub Datensätze_sortieren_Firma()
'
' Datensätze_sortieren_Firma Makro
' Datensätze sortieren nach Firma; Nachname; Vorname
'


ActiveWorkbook.Worksheets("Kontakte").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Kontakte").Sort.SortFields.Add2 Key:=Range("F4:F9" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Kontakte").Sort.SortFields.Add2 Key:=Range("G4:G9" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Kontakte").Sort.SortFields.Add2 Key:=Range("H4:H9" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Kontakte").Sort
.SetRange Range("F4:O9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub