OpenOffice.info

Verfasst: **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

Verfasst: **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

OpenOffice.info

Sortierfunktion

Sortierfunktion

Re: Sortierfunktion