Calc Tabelle durchsuchen

[Philipp_19]

Guten Morgen,

Im Endeffekt soll es ganz simpel sein.

Simpel soll alles sein, ist es aber meistens nicht.
Habe mal aus Spaß angefangen, ein Makro umzusetzen, und es ist durchaus möglich, eine Suche zu basteln.

Wenn ich mich richtig erinnere, kannst du Basic schon, oder?
Ich stelle dir unten erstmal eine Beispiel-Datei hoch. Das ganze dient erstmal nur für den Einstieg. Wenn du eine Beispiel-Datei deiner Tabelle hochlädst, und noch weitere Fragen hast, kann man dir da sicherlich besser helfen.

Grüße

PS: Die Suchergebnisse werden noch unpassend angezeigt, aber das kann man sicherlich anders regeln.
PPS: Frag mich grade, ob eine Funktion hier überhaupt der richtige Weg ist.

[komma4]

PPS: Frag mich grade, ob eine Funktion hier überhaupt der richtige Weg ist.

Frage ich mich auch, warum Du sowas machst...

Gibt in Basic eine Suchfunktion...

Code: Alles auswählen

Sub de50238
' 2011-09-16

sBereich =  "A1:I30" 

oBlatt = ThisComponent.CurrentController.ActiveSheet

oBereich = oBlatt.getCellRangeByName( sBereich )

oSearch = oBereich.createSearchDescriptor()

oSearch.SearchString = Inputbox( "Bitte Suchbegriff eingeben", _
"Diese Tabelle im Bereich " & sBereich & " durchsuchen" )

oBereich.FindAll( oSearch )

' hier kommt noch die Abarbeitung der Treffer

End Sub

Mir ist noch unklar, was der Fragesteller mit den Ergebnissen machen will... vllt. doch filtern?

[Philipp_19]

War ja klar

viewtopic.php?f=2&t=49928
das will der Fragesteller damit erreichen. Suchfunktion zum selektieren aus mehr als 1000 einträgen.

Aber danke das du dich damit erst jetzt meldest komma....

Grüße

[komma4]

viewtopic.php?f=2&t=49928
das will der Fragesteller damit erreichen.

"Suchfunktion zum Anzeigen"?

Also:

• * Filter (andere Daten ausblenden), oder
  * markieren (bspw. Hintergrundfarbe setzen), oder
  * vllt. doch mit den Daten (etwas: was?) weiter arbeiten

???

1 und 2 geht auch mit bereits vorhandenen Funktionen (Daten>Filter>Standardfilter, resp. Bearbeiten>Suchen & Ersetzen...>Suche alle)