Sortierfunktion

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Sortierfunktion

Re: Sortierfunktion

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

Sortierfunktion

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

Nach oben