Office: (Office 2016) mehrere Tabellenblätter über eine Schaltfläche mit nur einem Makro sortieren.

Hallo Liebes Forum!

Würde wieder eure Hilfe benötigen.

Ich habe eine Excel mit mehreren Tabellenblättern, die Inhaltlich im Bereich A9:M33 (können auch noch mehr Zeilen werden) alle gleich sind.

Über eine Button (A-Z) sollte jedes Tabellenblatt einzeln mit einem einzigen Makro sortiert werden.

Überschriften in Zeile 8 von A bis M

In Spalte A werden Kürzel eingetragen, die je nach Kürzel in Spalte M eine eigene Zahl bekommen (Wennabfrage) z.B. SL = 1, Z = 4, SL 2 = 3, usw.

Jetzt möchte ich diese Tabelle im Bereich A9:M33 sortieren, zuerst nach Spalte M, danach Spalte D, danach Spalte E.

Leider ist in meinem Makro irgendwo der Hund begraben, er sortiert nur nach dem Nachnamen in Spalte D.

Wäre für Eure Hilfe sehr dankbar.

Sub Sortieren_01()

Dim strSpalte1 As String
Dim strBereich1 As String

Dim StrSpalte2 As String
Dim strBereich2 As String

Dim StrSpalte3 As String
Dim strBereich3 As String


'Parameter
strBereich1 = "A9:M34"
strSpalte1 = "M9:M34"

strBereich2 = "A9:M34"
StrSpalte2 = "D9*biggrin.gif*34"

strBereich3 = "A9:M34"
StrSpalte3 = "D9*biggrin.gif*34"

'Sortieren
'1. sortieren nach Spalte M9:M34,
'2. sortieren nach Spalte D9*biggrin.gif*34,
'3. sortieren nach Spalte E9:E34.

Range(strBereich1).Sort Key1:=Range(strSpalte1 & "9"), order1:=xlAscending, Header:=xlYes

Range(strBereich2).Sort Key1:=Range(StrSpalte2 & "9"), order1:=xlAscending, Header:=xlYes

Range(strBereich3).Sort Key1:=Range(StrSpalte3 & "9"), order1:=xlAscending, Header:=xlYes


'Zeilenhöhe automatisch anpassen im Bereich A9:L34
Range("A9:L98").Select
Selection.Rows.AutoFit

Range("A9").Select

End Sub


Im Anhang ist eine Beispieldatei.
Vielen Dank.

Liebe Grüße Sigi

:)

 

Hi,
teste das Sortieren mal so:

Code:

 

Hallo Regina!

Vielen Dank für die rasche Hilfe. Funktioniert super. Wünsche dir und allen im Forum ein wunderschönes Wochenende.

LG Sigi

 

Prima, danke für die Rückmeldung!