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