Sortieren mit einem Makro in 2 Tabellenblättern

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Sortieren mit einem Makro in 2 Tabellenblättern

Re: Sortieren mit einem Makro in 2 Tabellenblättern

von MT326 » Fr, 20.09.2024 15:34

Vielen Dank für deinen Vorschlag.
Ich denke das ich das so lösen werde.
Gruß MT

Re: Sortieren mit einem Makro in 2 Tabellenblättern

von mikeleb » Fr, 20.09.2024 10:24

Hallo,
geht sowas??
kurze Antwort: nein.
Du kannst natürlich temporär die Werte von sheet(2) Spalte B4:B102 (vor der Sortierung) nach sheet(3) Spalte AI kopieren und dann dort genau so sortieren wie auf sheet(3).

Sortieren mit einem Makro in 2 Tabellenblättern

von MT326 » Fr, 20.09.2024 09:23

Hallo erst mal...
Ich möchte mit einem Makro gleichzeitig 2 Tabellenblätter Sortieren.
Meine Frage: ist so etwas möglich???

Ich benutze folgendes Makro zum Sortieren von sheet(2)

Sub Sort
Dim oSheet
Dim oRange
Dim oSortFields(0) as new com.sun.star.util.SortField
Dim oSortDesc(0) as new com.sun.star.beans.PropertyValue

oSheet = ThisComponent.Sheets(2)
oSheet.unprotect("")
REM den zu sortierenden Bereich bestimmen
oRange = oSheet.getCellRangeByName("B4:AH102")

REM Nach Spalte B sortieren
oSortFields(0).Field = 0
oSortFields(0).SortAscending = True
oSortFields(0).FieldType = com.sun.star.util.SortFieldType.NUMERIC

REM die zu verwendenden Sortierfelder bestimmen
oSortDesc(0).Name = "SortFields"
oSortDesc(0).Value = oSortFields()

REM Den Bereich jetzt sortieren!
oRange.Sort(oSortDesc())
oSheet.protect("")
End Sub

Nun möchte ich das in sheet(3) der Bereich D4:AH102 mitsoriert wird und zwar nach den Werten aus sheet(2) Spalte B

geht sowas?? ich hab nirgends was gefunden und hab rumprobiert es aber nicht hinbekommen.
Gruß MT

Nach oben