Sortierfunktion

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Pretender1970
Beiträge: 3
Registriert: Fr, 05.01.2018 08:38

Sortierfunktion

Beitrag von Pretender1970 » Di, 22.05.2018 09:09

Guten Morgen,

ich weiß, dass es vermutlich sehr banal ist, aber leider fange ich erst an
mich im OO zurecht zu finden. Da der Makro-Aufzeichner von Haus aus
deaktiviert wurde, komme ich leider nicht weiter und hoffe auf Unterstützung.

Die Input Anzeige erscheint und ich kann den Suchbegriff eingeben, aber nach
ok, wird mir kein Ergebnis angezeigt. Kann mir da jemand helfen?


Sub suchen
sBereich = "A1:C220"
oBlatt = ThisComponent.CurrentController.ActiveSheet
oBereich = oBlatt.getCellRangeByName( sBereich )
oSearch = oBereich.createSearchDescriptor()
oSearch.SearchString = Inputbox( "Bitte Suchbegriff eingeben", _
"Die Tabelle Parkausweis wird durchsucht" )
oBereich.FindAll( oSearch )
End Sub

Stephan
********
Beiträge: 10590
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Sortierfunktion

Beitrag von Stephan » Di, 22.05.2018 09:52

Da der Makro-Aufzeichner von Haus aus
deaktiviert wurde
dann kann es sich aber eigentlich nicht um OpenOffice handeln, sondern um LibreOffice.
Kann mir da jemand helfen?

Code: Alles auswählen

Sub suchen
 sBereich = "A1:C220" 
 oBlatt = ThisComponent.CurrentController.ActiveSheet
 oBereich = oBlatt.getCellRangeByName( sBereich )
 oSearch = oBereich.createSearchDescriptor()
 oSearch.SearchString = Inputbox( "Bitte Suchbegriff eingeben", _
 "Die Tabelle Parkausweis wird durchsucht" )
 ergebnis = oBereich.FindAll( oSearch )
 For i = 0 To ergebnis.Count-1
 	j = ergebnis.getByIndex(i).CellAddress
 	Msgbox "Gefunden in Zelle (" & j.Column & ", " & j.row & ")"
 Next i
End Sub
Gruß
Stephan

Antworten