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
--
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
