Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere Tabellen sortieren

Mehrere Tabellen sortieren
liese
Hallo!
Kann man folgenden Code vereinfachen und
hätte das auch Geschwindigkeitsvorteile?
(Muß viele Tabellen sortieren)
Sheets("Tabelle5").Select
Rows("2:180").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
Sheets("Kosten").Select
Rows("2:180").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
Sheets("Artikel").Select
Rows("2:180").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
Sheets("Tabelle11").Select
Rows("2:180").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
Freue mich über Hilfe.
Viele Grüße
Anneliese

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
mit einer Schleife ...
29.10.2009 01:05:55
Matthias
Hallo
hier mal ein Test für alle Tabellnblätter
Bitte immer an einer Kopie der Datei testen.
Option Explicit
Sub alle()
Dim LoX As Long
For LoX = 1 To Worksheets.Count
With Worksheets(LoX)
.Rows("2:180").Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Next
End Sub
um das exakter zu Erstellen braucht man mehr Infos
Wieviel Blätter - wie heißen die, die sortiert werden sollen
oder
wie heißen die, welche ausgelassen werden sollen.
Ob das Geschwindigkeitsvorteile bringt?
Sicher, denn die ganzen Selects sind ja weg
Gruß Matthias
Anzeige
AW: mit einer Schleife ...
29.10.2009 01:24:58
liese
Hallo Matthias!
Danke für die schnelle Antwort zu so später Stunde.
Hatte in meinem Codeauszug doch beispielhaft
4 Blätter benannt (Tabelle5, Kosten, Artikel, Tabelle11).
Vielleicht kannst Du noch mal korrigieren.
Danke schon mal.
Viele Grüße
Anneliese
hier Dein Wunsch ...
29.10.2009 08:21:56
Matthias
Hallo Anneliese
Option Explicit
Sub alle()
Dim LoX As Long
For LoX = 1 To Worksheets.Count
With Worksheets(LoX)
If .Name = "Tabelle11" Or .Name = "Tabelle5" Or .Name = "Artikel" Or .Name = "Kosten" Then
.Rows("2:180").Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End With
Next
End Sub
Gruß Matthias
Anzeige
AW: hier Dein Wunsch ...
29.10.2009 13:24:56
liese
Hallo Matthias!
Das hat wunderbar geklappt und mit Deinem
Code kann ich jetzt auch die noch fehlenden
Blätter mit einbauen.
(Hatte nicht vermutet, dass das mit or geht,
sondern irgendwas mit Array)
Jedenfalls herzlichen Dank.
Viele Grüße
Anneliese

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige