Sortierfunktion

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

Moderator: Moderatoren

Pretender1970
**
Beiträge: 28
Registriert: Fr, 05.01.2018 08:38

Sortierfunktion

Beitrag von Pretender1970 »

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: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Sortierfunktion

Beitrag von Stephan »

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