Spezielle Sortierfunktion in VBA

Forumthread: Spezielle Sortierfunktion in VBA

27.08.2019 12:50:13

Frank

Hallo zusammen,
heute wende ich mich mit einer Bitte um Hilfe an euch. Es geht um das Sortieren per VBA in Excel. Die SuFu bringt zwar sehr viele Beispiele, aber immer nur zur Sortierung senkrecht in der Tabelle.
Ich möchte aber in einer Tabelle die erste Reihe (Überschriften) sortieren, wobei alle Spalten sozusagen neu gemischt werden. Also aus z.B. "A" wird "C" und "C" wandert ggf nach "B" usw. Das heißt, die EInträge in den Spalten sollen mitwandern. EIne Beispieldatei habe ich hochgeladen.
Danke im Voraus.
https://www.herber.de/bbs/user/131641.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spezielle Sortierfunktion in VBA

27.08.2019 13:13:46

Torsten

Hallo Frank,
jetzt kommt natuerlich die Frage auf, nach welchem Kriterium du sortieren wills.
Du kannst in der benutzerdefinierten Sortierung auch sorum sortieren. Geh dort in die Optionen und waehle sortieren von links nach rechts. Dann waehlst du noch die ersate Zeile aus und kannst so z.B. nach Alphabet sortieren.
Gruss Torsten

AW: Spezielle Sortierfunktion in VBA

27.08.2019 13:14:38

peterk

Hallo
Sortieren - Optionen - Spalten sortieren

AW: Spezielle Sortierfunktion in VBA

27.08.2019 13:19:14

Torsten

oder wenn unbedingt mit VBA dann so:


Sub SortTabelle()
Sheets("betankung").Range("A1:R21").Sort Key1:=Range("A1:R1"), Order1:=xlAscending,
Orientation:=xlLeftToRight
End Sub

Gruss Torsten

AW: Spezielle Sortierfunktion in VBA

27.08.2019 13:42:29

Frank

Hallo Torsten,
danke, genau das wars was ich brauchte. Da die hochgeladene Mappe von mir nur ein Bruchteil eines sehr umfangreichen Projetes mit Userform ist, ist das händische sortieren in der Tabelle mit Maus und Excel-Menü natürlich tabu. Trotzdem Danke auch an die anderen Helfer.

gerne...

27.08.2019 14:42:31

Torsten

und danke fuer die Rueckmeldung

AW: Spezielle Sortierfunktion in VBA

28.08.2019 10:49:26

Frank

Hallo liebe Helfer und besonders Hallo Torsten,
da du mir mit deinem Code gestern am besten geholfen hast, denke ich, du findest am ehesten meinen Denk- oder Programmierfehler.
Ich habe mal auf die Schnelle eine Testmappe erstellt, um mein Problem zu demonstrieren. Normalerweise sieht der User die Tabellen gar nicht, weil von großer UserForm überdeckt. Zugriffe auf Tabellenblätter erfolgt ausschließlich über UF (kleines Hilfstool zur Kommissionierung, übergangsweise bis neue WaWi rund läuft).
Die Blätter 'Artikelname' & 'Artikelnummer' sind miteinander verknüpft. Allerdings hat nicht jeder Artikel auch eine Artikelnummer (Zelle B5 in Tab1 gehört zu B5 in Tab2). Die Kunden werden in der UF über 24 Button ausgewählt und die zugehörigen Artikel werden die Caption von 20 weiteren Buttons. Das Löschen und Anlegen der Kunden und Artikel erfolgt ebenfalls über die UF. Daher auch die Lücken in den Daten.
Mit der Codezeile von Torsten wird die 1. Tabelle wunderbar sortiert. Bei der 2. Tabelle wird ein Fehler im Debugger ausgeworfen:
"Fehler 1004.
Der Sortierbezug ist ungültig. Überprüfen sie, ob sich der Sortierbezug innerhalb der markierten Daten befindet und ob das Feld 'Sortieren nach' nicht den gleichen bezug enthält oder leer ist."
Ein Wort noch zu meinem Code. Da die Kunden nur in der ersten Tabelle (Artikelnamen) über die UF eingetragen werden, zum sortieren aber beide Tabellen gleiche Voraussetzungen haben müssen, kopiere ich im ersten Schritt die Range A1:X1 in das zweite Tabellenblatt.
Sorry wegen dem langen Text. Aber ich wollte Rückfragen bezüglich dem Sinn des ganzen vorbeugen.
Bin für jeden Denkanstoß oder Hilfe dankbar.
PS: Zum Rumspielen habe ich von den Ausgangstabellen jeweil noch eine Sicherheitskopie in die Mappe gepackt.
Gruß, Frank
https://www.herber.de/bbs/user/131676.xlsm

Beliebteste Forumthreads (12 Monate)

Forumthread: Spezielle Sortierfunktion in VBA

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread