Hallo *,
ich bin einen Schritt weitergekommen. Ich kann jetzt die genaue
Zell-Adresse bestimmen lassen (vFound.AbsoluteName)
Jetzt fehlt nur noch der Sprung in diese Zelle. hat da jemand einen Tipp
für mich?
Gruß
Jochen
sub Suchen_Ersetzen()
oSheet =ThisComponent.sheets(0)
Dim vDescriptor
Dim vFound
vDescriptor = oSheet.createSearchDescriptor()
With vDescriptor
.SearchString = "Heim"
'msgBox .SearchString
.SearchWords = false
.SearchCaseSensitive = false
.SearchBackwards = false
End With
vFound = oSheet.findFirst(vDescriptor)
msgBox vFound.AbsoluteName 'Zell-Adresse
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
