Sortieren mit einem Makro in 2 Tabellenblättern

[MT326]

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

[mikeleb]

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).

[MT326]

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