Spezielle Sortierfunktion in VBA zum 2.
28.08.2019 12:17:52
Frank
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 jeweils noch eine Sicherheitskopie in die Mappe gepackt.
Gruß, Frank
https://www.herber.de/bbs/user/131676.xlsm