Moin Winfried, > >> Ist eine alphabetische Sortierung möglich? Wenn ja - wie? > > > > Automatisch nur mit einem Makro. Ansonsten kannst Du die > > Kleine Übung für den Abend? > > > @Rebecca: ausschneiden, in eine Standard-Bibliothek kopieren (Achtung > wg. der Zeilenumbrüche/-enden beim Kopieren), aufrufen. > > HTH > Winfried > > ================= > Sub sortTabellen > > ' > oDok = ThisComponent > > If Not oDok.supportsService(_ > "com.sun.star.sheet.SpreadsheetDocument" ) Then > MsgBox _ > "Makro wurde nicht von einem Calc-Dokument aufgerufen." & CHR(10) _ > & CHR(10) & "Erklärung:" _ > & CHR(10) & "Dieses Makro sortiert die Tabellen eines Calc- > Dokuments > so," _ > & CHR(10) & "dass die Blätter nach ihrem Namen alphabetisch > geordnet > werden." _ > & CHR(10) _ > & CHR(10) & "Makro """ & Trim(sModulName) & """ wird nun beendet." _ > > , 48 , sModulName & sModulVersion ' 48: Achtung Symbol > Exit Sub > End If > > > ' get array of table names > oTabellenNamen = oDok.getSheets().getElementNames() > ' call routine to sort names > ShellSort( oTabellenNamen ) > > ' arrange sheets > for i = LBound( oTabellenNamen ) to UBound ( oTabellenNamen ) - 1 > oDok.getSheets().moveByName( oTabellenNamen(i), i ) > next i > > End Sub > > ' =================================================================== > REM B Marcelly 2005-06-04 > REM http://www.oooforum.org/forum/viewtopic.phtml?t=20783 > > Sub ShellSort(myList()) > Dim k1 As Long, k2 As Long, listSize As Long > Dim x1 As Long, isSorted As Boolean > Dim swapping > listSize = UBound(myList()) +1 -LBound(myList()) > k1 = Fix(listSize /2) > do while k1 > 0 > k2 = UBound(myList()) - k1 > isSorted = true > for x1 = LBound(myList()) to k2 > if StrComp(myList(x1), myList(x1 +k1), 0) = 1 then > swapping = myList(x1) > myList(x1) = myList(x1 +k1) > myList(x1 +k1) = swapping > isSorted = false > end if > next > if isSorted then > k1 = Fix(k1 /2) > end if > loop > End Sub > > -- >
Vielen Dank für den Makro!!! Hatte jetzt aus Zeitmangel manuell geschoben, für das nächste Mal werde ich dann aber per Makro aktiv werden! Gruß, Rebecca --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
