Sortierung eines bestimmten Bereiches auf mehreren

Hallo,
habe ein kleines Problem. Habe eine Excel Datei mit mehreren Tabellenblättern und will mit Hilfe eines Makros die Tabellenblätter nach einem bestimmten Bereich sortiern. Für ein Tabellenblatt ist es kein Problem, wie kriege ich es nur hin das es mehrere Tabellenblätter sortiert? Im moment sortiert er nur nach dem Sheet "SI"
Das Makro lautet:


Sub Sortieren()
Sheets("SI").Select
Range("B8:O23").Select
Selection.Sort Key1:=Range("K8"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B30:O36").Select
Selection.Sort Key1:=Range("K30"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Jedoch sollen nicht alle Tabellenblätter sortiert werden. Wäre super wenn ich die Namen der Tabellenblätter einzeln hintereinander eingeben könnte. Die anderen Blätter heißen z.B. STHP, STHG, VZ und noch paar andere. Wäre für ne Hilfe dankbar.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sortieren() Dim ws ws = InputBox("Bitte Tabellennamen eingebn :", "Auswahl") Sheets(ws).Select Range("B8:O23").Select Selection.Sort Key1:=Range("K8"), Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("B30:O36").Select Selection.Sort Key1:=Range("K30"), Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

Hallo Hodok,
so geht es. Du kannst beliebig viele Blattnamen in den Array eintragen, musst vor allen Dingen DEINE Blattnamen anstelle Tabelle1, Tabelle2, Tabelle3 eintragen.

Sub Sortieren()
Dim aBlatt()  As Variant
Dim iIndx     As Integer
   aBlatt = Array("Tabelle1", "Tabelle2", "Tabelle3")

   For iIndx = 0 To UBound(aBlatt)
      Worksheets(aBlatt(iIndx)).Activate
      Range("B8:O23").Sort Key1:=Range("K8"), Order1:=xlDescending, _
         Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
         Orientation:=xlTopToBottom ', DataOption1:=xlSortNormal
      Range("B30:O36").Sort Key1:=Range("K30"), Order1:=xlDescending, _
         Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
         Orientation:=xlTopToBottom ', DataOption1:=xlSortNormal
   Next iIndx

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Beliebteste Forumthreads (12 Monate)

Sortierung eines bestimmten Bereiches auf mehreren

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortierung eines bestimmten Bereiches auf mehreren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread