---

Guten (Frei-)Tag!!

Ich wollte mal fragen ob jemand schon mal einM akro geschrieben/gesehen hat um die Sücklistentabelle zu sortieren.
Ich möchte meine Tabelle immer nach $Benutzerdef.variable Absteigend, Benennung Aufsteigend und Konfiguration Aufsteigend sortieren. Es ist relativ mühsam, nach jeder änderung an einem Model, die ganzen Tabellen von Hand wieder neu zu sortieren.

Vielen Dank schon mal für Eure Mithilfe!

Note: Der Makro-Recorder scheint leider nicht der richtige Ansatz zu sein 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

die Lösung findest du in der Excel-API

'Excelbefehl
oExcelBereich.Sort( _
Key1:=oExcelApp.Range(sErsteSortierSpalte), Order1:=EinsAufOderAb, _
Key2:=oExcelApp.Range(sZweiteSortierSpalte), Order2:=ZweiAufOderAb, _
Key3:=oExcelApp.Range(sDritteSortierSpalte), Order3:=DreiAufOderAb, _
Header:=Excel.XlYesNoGuess.xlGuess, OrderCustom:=1, _
MatchCase:=False, _
Orientation:=Excel.XlSortOrientation.xlSortColumns, _
DataOption1:=Excel.XlSortDataOption.xlSortNormal, _
DataOption2:=Excel.XlSortDataOption.xlSortNormal, _
DataOption3:=Excel.XlSortDataOption.xlSortNormal)

Das Excelobjekt holst du dir einfach so:
'Wenn die Tabelle aktiv ist
'Excelobjekt holen
oExcelApp = _
CType(GetObject(, "Excel.Application"), _
Excel.Application)
'Aktuelles Blatt holen
oExcelSheet = _
CType(oExcelApp.ActiveSheet, _
Excel.Worksheet)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank, tbd!

Dass wir uns richtig verstehen: Die StüLi-Tabelle ist von SWX generiert worden; auf einer 2D Ableitung (die Tabelle ist immernoch dort). Und diese Tabelle ist ein Excel Objekt?
Das Script von Dir, kann ich das dann einfach in den VB Editor 'reinkopieren und als Makro ausführen?

Danke nochmals!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Im SolidWorks VBA wird es nicht klappen da man einen Verweis zu Excel benötigt!

In einem externen VB Projekt schon (Code ist vb.net).
Du musst halt allerdings festlegen welche Spalte du Sortieren möchtest!
und wieviel.
Zum Beispiel Key1:=oExcelApp.Range("A:A") wenn du als erstes nach der Spalte A sortieren möchtest.
Die Order1:=EinsAufOderAb muss man mit einer Excel Konstanten auch festlegen!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry... aber... das ist Excel-API! Und nicht SolidWorks-API!
Entweder bin ich zu doof oder Du verstehst mein Problem nicht ganz...?! 
Naja... egal! Vielen Dank trotzdem!!

Schönes Wochenende!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Er versteht Dich schon.
Er geht davon aus, dass Deine Stückliste eine eingebettete Excel Tabelle ist. Dann geht das auch mit der Excel API. Bei einer SWX Tabelle geht das soweit ich mich erinnern kann nicht (lasse mich aber gerne eines Besseren belehren)
CU
Thomas

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

Member of CAD.de BOINC Team  | Seti@Home | CPDN | Einstein@Home

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Genau so sieht es aus!
in SolidWorks gibt es nur sehr wenige API befehle um das Excel Arbeitsblatt anzusprechen. Sind meistens nur lese, bzw schreib befehle.
So etwas wie sortieren geht nur über die Excel API! Aber das Excel Objekt kannst du dir wie gesagt sehr leicht besorgen, wenn die Tabelle in SolidWorks aktiv ist!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP