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
Sortierfunktion
Moderator: Moderatoren
Re: Sortierfunktion
dann kann es sich aber eigentlich nicht um OpenOffice handeln, sondern um LibreOffice.Da der Makro-Aufzeichner von Haus aus
deaktiviert wurde
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
Stephan