[de-users] Fwd: Re: Re: [de-users] Makros aufzeichnen und der Änderung einer Zelle zuweisen..

Hallo noch einmal.
Tut mir Leid. in der 2. Version war immer noch ein Fehler
Bitte verzeiht mir, dass ich eure Liste mit fehlerhaftem Code 
überschwemmt habe.

'Diesmal habe ich es aber ausführlich getestet, und es funktioniert.




 Function sortByColumn2 (ByVal nSortColumn AS Integer, _
                    ByVal sSortSheet As String, _
                    ByVal nStartColumn As Integer, _
                    ByVal nStartRow As Integer, _
                    ByVal nEndColumn As Integer, _
                    ByVal nEndRow As Integer, _
                    ByVal bAscending As Boolean)AS String

Dim nBreite as integer
Dim aSortFields(0) as New com.sun.star.util.SortField
Dim aSortDesc(0) as New com.sun.star.beans.PropertyValue
Dim oSortRange As Object
Dim oSheet1 As Object


oSheet1 = ThisComponent.Sheets.GetByName(sSortSheet)
'sSortSheet = Name der Tabelle. Darf nicht Die Tabelle Sein, auf der die
Funktion Steht.

     nBreite = nEndColumn - nStartColumn
If nSortColumn<= nBreite And  nSortColumn>= 0 Then


    oSortRange = oSheet1.getCellRangeByPosition(nStartColumn,
nStartRow, nEndColumn, nEndRow)'Bereich "A1:D5"=(0,0,3,4)


   aSortFields(0).Field = nSortColumn ' "nSortCoulumn" ist die
Spaltennummer inerhalb der Bereichs, nach der Sortiert werden sooll.
Spalte A = 0
   aSortFields(0).SortAscending= bAscending '1 entspricht "True" für
aufsteigend und 0 entspricht "False" für absteigend

   aSortDesc(0).Name = "SortFields"
   aSortDesc(0).Value = aSortFields()
      oSortRange.Sort(aSortDesc())
      sortByColumn2= "Sortier-Funktion2"

Else
    sortByColumn2= "Die Spalte ist auserhalb des Bereichs."
End if

End Function


Und der Aufruf:

=SORTBYCOLUMN2(B4;"Tabelle2";0;10;2;23;B5)

Der Bereich (0;10;2;23) entspricht dem Bereich "A11:C24"
Alles andere ist wie gehabt.

Gruß
Frieder

Am 22.10.2011 21:12, schrieb gooly:
>    Hey! WOW! Das hätt ich wirklich nicht erwartet - ganz, ganz herzlichen
>    Dank!
>
>    ..und gleich eine Frage hinterher:
>
>    Ich habe eine vorbereitete, fast leere Tabelle, Name "BackTest", in
>    die ich Testergebnisse unterschiedlichen Umfangs hinein kopiere (zur
>    Analyse in (aus, von) der Tabelle "Analyse" muss ich dann jeweils nach
>    einer Spalte sortieren - beide im selben Dokument, so kommt Dein code
>    zum Laufen).
>
>    In der Tab. "Analyse" will ich nun zwei Zellen haben, die mir sagen,
>    welches ist die letzte Zeile bzw. die letzte Spalte mit
>    Ergebniseinträgen, also nicht leer.
>
>    Leider 'verträgt' die Funktion VERGLEICH (zB
>    =VERGLEICH("",BackTest.A2:zz2;[1,0,-1])) kein "", wenn die Zellen ganz
>    leer sind. Auch die Funktion Istleer(BackTest.A2:ZZ2) (oder sowas..)
>    'geht' nicht.
>
>    Daher habe ich in alle Zellen BackTest.A2:A20000 und BackTest.A2:zz2
>    "" eingetragen, die dann von den Testergebnissen zT. überschrieben
>    werden. Jetzt kriege ich jeweils
>    die letzte Zeile  (=VERGLEICH("";BackTest.A1:A20000;)-1
>    und letzte Spalte (=VERGLEICH("";BackTest.A2:ZZ2;)-1
>
>    Das geht also, aber eigentlich sollte es dafür doch eine elegantere
>    Lösung geben? Gibt's die und wie würde die lauten?
Ja die gibt es:
=ANZAHL2(BackTest.A1:A20000)
Und
=ANZAHL2(BackTest.A2:ZZ2)
diese Formeln liefern dir dann die Größe der Tabelle.(vorausgesetzt sie
enthält keine leeren zellen( " " zählt auch als nicht Leer))
Wenn du diese Ergebnisse dann in meiner Funktion verwenden willst, dann
kann ich die Funktion so abwandeln, dass sie statt
zb. "A2:G10" die Werte (0;1;6;9) zur Bestimmung des zu sortierenden
Bereichs akzeptiert.
Wenn du das willst, kann ich das gerne erledigen.

Gruß
Frieder

>    Noch mal herzlichen Dank,
>    Gooly
>
>    Am 22.10.2011 18:16, schrieb Frieder:
> >    Am 22.10.2011 11:16, schrieb gooly:
> > >    Nochmals Danke, Frieder!
> > >
> > >    Ich hätte aber jetzt noch eine kleine Frage dazu:
> > >
> > >    Am 19.10.2011 13:18, schrieb Frieder:
> > >    >    diesen Code einfach in ein Neues Modul
> > >    >    kopieren.(Menü->Extras->Makros->MakrosVerwalten->Libreoffice
> > >    >    Basic->"Dein dokument"
> > >    >    ->Standard->Auf Neu klicken->    Modul Umbenennen in
> > >    >    z.B"sortierFunktion"->Makro aus der e-mail einfügen->Speichern.
> > >    >    Aufgerufen wird die Funktion mit:
> > >    >
> > >    >    =SORTBYCOLUMN(B1;"Tabelle2";"A15:C28";B2)
> > >
> > >    Die im 'leeren' Standard stehenden subs:
> > >    - sub Main..end sub und
> > >    - sub Macro..end sub
> > >    habe ich komplett gelöscht - war (ist) das ok?
> > >
> > >    LG, Gooly
> >    Hallo
> >    ich habe den Code noch etwas modifiziert.:
> >
> >    Function sortByColumn (ByVal nSortColumn AS Integer,ByVal sSortSheet As
> >    String,ByVal sSortRange As String,ByVal bAscending As Boolean)AS String
> >    sortByColumn= "Sortier-Funktion"
> >    Dim nBreite as integer
> >    Dim aSortFields(0) as New com.sun.star.util.SortField
> >    Dim aSortDesc(0) as New com.sun.star.beans.PropertyValue
> >    Dim oSortRange As Object
> >    Dim oSheet1 As Object
> >    Dim a(1)
> >    Dim sStartCell As String
> >    Dim sEndCell As String
> >    a()=Split(sSortRange, ":",2)
> >    sStartCell=a(0)
> >    sEndCell=a(1)
> >
> >    oSheet1 = ThisComponent.Sheets.GetByName(sSortSheet)
> >    'sSortSheet = Name der Tabelle. Darf nicht Die Tabelle Sein, auf der die
> >    Funktion Steht.
> >    nStartColumn =
> >    oSheet1.getCellRangeByName(sStartCell).getcelladdress.Column
> >    nEndColumn = oSheet1.getCellRangeByName(sEndCell).getcelladdress.Column
> >    nBreite = nEndColumn - nStartColumn
> >    If nSortColumn<= nBreite And nSortColumn>= 0 Then
> >
> >    oSortRange = oSheet1.getCellRangeByName(sSortRange)'sSortRange =
> >    z.b."A2:F7"
> >
> >    aSortFields(0).Field = nSortColumn ' "nSortCoulumn" ist die
> >    Spaltennummer inerhalb der Bereichs, nach der Sortiert werden sooll.
> >    Spalte A = 0
> >    aSortFields(0).SortAscending= bAscending '1 entspricht "True" für
> >    aufsteigend und 0 entspricht "False" für absteigend
> >
> >    aSortDesc(0).Name = "SortFields"
> >    aSortDesc(0).Value = aSortFields()
> >    oSortRange.Sort(aSortDesc())
> >    sortByColumn= "Sortier-Funktion"
> >
> >    Else
> >    sortByColumn= "Die Spalte ist auserhalb des Bereichs." 'Bedeutet: Die
> >    spalte ist auserhalb des Sortier-Bereichs.
> >    End if
> >
> >    End Function
> >
> >    Aufruf der Funktion:
> >    =SORTBYCOLUMN(B1;"Tabelle2";"A15:C28";B2)
> >
> >    B1 =Zelle, in der steht,nach welcher Spalte sortiert werden soll.(0=1.
> >    Spaltedes Sortierbereichs, in dem Fall Spalte A)
> >    Tabelle2=Tabellenname der zu sortirenden Tabelle ( muss in "" stehen.)
> >    A15:C28= zu sortierender Bereich ( ohne Kopfzeile)( muss in "" stehen.)
> >    B2=Zelle, in der steht,ob aufsteigend(1) oder absteigend(0) Sortiert
> >    werden soll.(man kann hier auch direkt 1 oder 0 eintragen)
> >
> >    Hier ist der Link zu einer Beispiel-Datei, wo du alles Ausprobieren
> >    kannst.
> >    http://wurzelmanager.blogger.de/getfile?name=sortierfunktion.ods
> >    Dort habe ich auch alles noch etwas genauer erklärt.
> >    Gruß Frieder


--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Tips zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert