Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
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

VBA sortieren über mehrere Blätter hinaus

VBA sortieren über mehrere Blätter hinaus
23.05.2018 22:33:39
DJRidoo
Hallo,
ich habe eine Datei mit mehreren Blättern. Im ersten Blatt "Daten" sortiere ich einen Bereich Range("H14:O23") wie folgt:
Workbooks("Personen.xlsm").Worksheets("Daten").Range("H14:O23").Sort Key1:=Range("H14"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
nun möchte ich im Blatt "Info1" den Bereich Range("H14:N23") und im Blatt "Info2" den Bereich Range("H14:P23") anhand der Sortierung im Blatt "Daten" mitsortieren.
Vielleicht hat wer eine Idee.
Ich bedanke mich im Vorraus.
Gruß
DJRidoo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 07:27:26
Tino
Hallo,
Gundsätzlich solltest Du beim Key auch auf die entsprechende Zelle Referenzieren.
With Workbooks("Personen.xlsm")
With .Worksheets("Daten").Range("H14:O23")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
With .Worksheets("Info1").Range("H14:N23")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
With .Worksheets("Info2").Range("H14:P23")
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End With
Gruß Tino
Anzeige
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 08:14:53
DJRidoo
Hallo Tino,
mit deinem angegebenen Code sortiert man doch quasi immer mit A1 des jeweiligen Blatts und nicht alle Tabellen aller Blätter mit dem Sortierkriterium aus der Tabelle im Blatt Daten oder.
Gruß
DJRidoo
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 08:18:38
Tino
Hallo,
nein mit der oberen linken Zelle aus dem zuvor angegebenen Rangen.
Bei Range("H14:N23") ist .Cells(1,1) = H14
Gruß Tino
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 08:31:36
DJRidoo
Okay. Schaue mir es in Ruhe an später und nicht auf dem Handy und gebe dann ein Feedback. Danke dir auf jeden Fall erstmal.
Hätte wieder auf den ersten Blick gedacht, dass nicht anhand der ersten Tabelle in Blatt Daten alle anderen Tabellen in den Blättern sortiert werden. Hätte gedacht, dass man beim Sortieren der anderen Tabellen den Key1 auf die Tabelle in Daten H14 hätte setzen müssen. Wie gesagt schaue später in Ruhe.
Gruß
DJRidoo
Anzeige
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 08:47:28
Tino
Hallo,
die Tabelle und der Range wird durch den With-Block festgelegt und
bei .Cells(1,1) wird durch den voranstehenden Punkt auch dieser Range aus dem With-Block verwendet.
Würde man Cells(1,1) ohne Punkt schreiben ist dies die erste Zelle im aktiven Blatt
wenn der Code in einem normalen Modul steht.
Steht der Code in einer Tabelle ist dies die erste Zelle auf dem entsprechenden Tabellenblatt.
Gruß Tino
AW: VBA sortieren über mehrere Blätter hinaus
24.05.2018 19:35:34
mcbunki@gmx.de
Es klappt alles. Ich danke Euch.
Gruß
DJRidoo

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige