Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Tabellenblätter durchgehen und sortieren

Forumthread: VBA: Tabellenblätter durchgehen und sortieren

VBA: Tabellenblätter durchgehen und sortieren
15.11.2016 11:03:31
Josef
Guten Morgen allerseits,
ich suche ein Makro welches die Tabellenblätter einer Arbeitsmappe durchgeht und in jedem die dortigen Werte zunächst nach Spalte E, dann nach Spalte A sortiert.
Der Aufbau jedes Tabellenblatts ist gleich. Die erste Zeile ist die Überschriftenzeile. Nur die Anzahl der Reihen ist verschieden.
Beste Grüße
Der Jupp
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Tabellenblätter durchgehen und sortieren
15.11.2016 12:48:28
Michael
Hallo!
Der Aufbau jedes Tabellenblatts ist gleich
Leider hast Du diesen nicht mitgeteilt, daher hier auf Basis des "verwendeten Bereichs" jedes Tabellenblattes:
Sub AlleBlaetterSortieren()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet, Daten As Range, SortA As Range, SortB As Range
'Alle Tabellenblätter der Mappe durchgehen
For Each Ws In Wb.Worksheets
With Ws 'mit dem aktuellen Tabellenblatt
Set Daten = .UsedRange 'Verwendeter Blattbereich, ggf. anpassen
Set SortA = .Columns("E") 'Spalte E
Set SortB = .Columns("A") 'Spalte A
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortA
.Sort.SortFields.Add Key:=SortB
With .Sort
.SetRange Daten
.Header = xlYes
.Apply
End With
End With
Next Ws 'Nächstes Tabellenblatt
End Sub
Klappts?
LG
Michael
Anzeige
AW: VBA: Tabellenblätter durchgehen und sortieren
15.11.2016 13:26:28
Josef
Hi Michael,
Danke für deine Antwort. Ich kann den Aufbau gerne beschreiben:
Von A1:Y1 Überschriftenzeile
Spalte E enthält Zahlen, Spalte A enthält Daten (von Datum).
Ab Zeile 2 beginnen die Datensätze, auch diese gehen bis Spalte Y.
Ansonsten kann ich gerne eine Beispieldatei anfügen.
LG Jupp
Anzeige
Hast Du meinen Code ausprobiert? owT
15.11.2016 13:28:14
Michael
AW: Hast Du meinen Code ausprobiert? owT
15.11.2016 14:33:41
Josef
Hab ich, funktioniert einwandfrei.
Besten Dank.
Freut mich, hier noch eine Ergänzung...
15.11.2016 14:38:49
Michael
Josef,
...wenn Du nicht nur den "verwendeten Bereich" sondern einen konkreten Bereich (wie von Dir nachgereicht verwenden willst (evtl. für's nächste Mal):
Sub AlleBlaetterSortieren()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet, Daten As Range, SortA As Range, SortB As Range
'Alle Tabellenblätter der Mappe durchgehen
For Each Ws In Wb.Worksheets
With Ws 'mit dem aktuellen Tabellenblatt
'Verwendeter Blattbereich ODER konkreter Blattbereich
'Set Daten = .UsedRange 'Variante 1
Set Daten = .Range("A1:Y" & _
.Cells(.Rows.Count, 25).End(xlUp).Row) 'Variante 2
Set SortA = .Columns("E") 'Spalte E
Set SortB = .Columns("A") 'Spalte A
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=SortA
.Sort.SortFields.Add Key:=SortB
With .Sort
.SetRange Daten
.Header = xlYes
.Apply
End With
End With
Next Ws 'Nächstes Tabellenblatt
End Sub
LG
Michael
Anzeige

Forumthreads zu verwandten Themen

In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Anzeige
Tabelle sortieren mit VBA
Kati

Hallo liebe Leute,
ich habe in einem Beitrag vom 09.03.2006 von Peter Feustel einen sehr guten Lösungsansatz für mein Problem gefunden.
In dem Beispiel https://www.herber.de/bbs/user/31765.xls kann man in jeder Tabelle der Arbeitsmappe über den Menüpunkt sortiern.
Für meine Aufgabe...
23.02.2010 08:31:55
Thread-ID: 1140308
3 Beiträge
Anzeige
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Anzeige
Spalten sortieren mit VBA
wolfgang

Hallo zusammen,
ich möchte gerne mit VBA eine Spalte sortieren.
Inhalt der Spalte A:
P1
P2
P10
P3
P11
die Spalte sortiere ich mit der Anweißung:
Range.Sort Key1 .....
nun ist das Ergebnis allerdings:
P1
P10
P11
P2
P3
dies ist a...
10.09.2010 13:21:50
Thread-ID: 1176857
5 Beiträge
Datums-Spalte nach TAG sortieren
Bruno

Hallo Leute,
ich versuche, leider ohne Erfolg eine Liste zu sortieren :
Datumszeile nach Geburtstag !!!! nicht nach dem Geburtsjahr sondern vorrangig eben nach dem Geburts-TAG. 01. , 02. , 03. ,
Wer kann mir helfen ?
gruss
Bruno
19.11.2010 19:18:47
Thread-ID: 1187861
3 Beiträge
VBA: PivotItems sortieren in PivotTabelle
Holger

Guten Morgen liebes Forum,
erstmal möchte ich allen ein frohes, erfolgreiches und gesundes neues Jahr wünschen.
Ich erstelle per VBA eine PivotTabelle und habe mich in das Thema auch ganz gut eingelesen.
Nun habe ich als xlColumnField Perioden definiert, die Quartale beinhalten in d...
03.01.2011 10:16:04
Thread-ID: 1193673
4 Beiträge
Nur bestimmte Zeilen kopieren
Swetlana

Hi liebe Excel-Profies,
kann mir bitte jemand helfen...
Mein folgender Code kopiert mir die kompletten Arbeitsmappen...
Ich würde es aber gerne so haben, dass er mir nur die Zeilen die "P64" enthalten kopiert und in die andere Datei überträgt.....
Was muss ich ändern?
Su...
01.06.2011 06:44:38
Thread-ID: 1216949
3 Beiträge
Zeilen sortieren nach einer Spalte ausserhalb des
Wenger

Hi all!
Ist denn mein Problem so schwierig? Immer ernte ich nur Kopfschütteln.
Erklärung:
Die Rennleitung hat eine Veranstaltersoftware. Diese exportiert mir ein Excel-Sheet mit den Spalten A, B und C. Diese Spalten dürfen keinesfalls verändert werden!!
In meinem Beispiel start...
07.07.2011 20:28:17
Thread-ID: 1221296
3 Beiträge
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige