Am 18.12.2011 22:34, schrieb Jochen:
Hallo,
ich habe fertig (Quellcode s. unten).
Mittels dieses Makro kann ein bestimmte Begriff (hier: "Suchbegriff")
gefunden werden.
Der Suchbegriff kann noch in einer InputBox zuvor abgefragt werden.
Gruß
Jochen
sub Suchen_Ersetzen()
oSheet =ThisComponent.sheets(0)
Dim vDescriptor
Dim vFound
vDescriptor = oSheet.createSearchDescriptor()
With vDescriptor
.SearchString = "Heim"
.SearchWords = false
.SearchCaseSensitive = false
.SearchBackwards = false
End With
vFound = oSheet.findFirst(vDescriptor)
myDoc = thisComponent
myView = myDoc.CurrentController
Reihenzahl = vFound.getCellAddress.Row
Spaltenzahl = vFound.getCellAddress.Column
mycell = oSheet.getCellByPosition(Spaltenzahl,Reihenzahl)
myView.Select(mycell)
End Sub
Soll der Benutzer gezwungen sein, vorwärts zu suchen? Soll er gezwungen
sein, auf Groß- und Kleinschreibung zu verzichten? Soll er gezwungen
sein, auf ganze Zellen zu prüfen? Soll er bei einer weiteren Suche den
Suchbegriff wieder neu in eine InputBox eingeben? Und was ist mit
regulären Ausdrücken, Ähnlichkeitssuche und Suche nach Vorlagen?
Ich würde mich beschweren, wenn ich so bevormundet würde. Gut, ein
Mausklick ist ein weiterer Weg zur Sehnenscheidenentzündung. Aber
dagegen wurde ja die Tastenkombination erfunden.
Kopfschüttel.
Tschüss
Volker
--
Informationen zum Abmelden: E-Mail an [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
