Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Sortierungs-Makro über allen Tabellenblätter
Luke
Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sortieren.
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 13
With Worksheets(i)
Range("A2:F13").Select
Range("F13").Activate
Selection.Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:=Range("F2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End With
Next i
End Sub
--> Problem: Es wird nur das Tabellenblatt angesprochen, auf dem sich der Button befindet. (Darauf funktioniert das makro aber :))
Ich bedanke mich für jeden hinweis!
Gruss Lukas

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

Betreff
Benutzer
Anzeige
AW: Sortierungs-Makro über allen Tabellenblätter
27.08.2009 15:43:30
Petra
Hi Lukas
test mal dies:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 13
With Worksheets(i)
.Range("A2:F13").Sort Key1:=.Range("E2"), Order1:=xlDescending, Key2:=.Range("F2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End With
Next i
End Sub
Liebe Grüße Petra
AW: Sortierungs-Makro über allen Tabellenblätter
28.08.2009 08:39:38
Luke
funzt!! herzlichen Dank Petra!
Gruss lukas
Anzeige

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige