Re: [de-users] Calc -> Formular-Steuerelement -> Schaltfläche -> Zuweisung einer Tastenkombination

Am 18.12.2011 21:59, schrieb 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 

Probiere es doch mal damit:

sub Suchen_Ersetzen()

 oSheet =ThisComponent.sheets(0)
 Dim vDescriptor
 Dim vFound
 vDescriptor = oSheet.createSearchDescriptor()
 With vDescriptor
    .SearchString = "tot"
    'msgBox .SearchString
    .SearchWords = false
    .SearchCaseSensitive = false
    .SearchBackwards = false
  End With
  vFound = oSheet.findFirst(vDescriptor)
    msgBox vFound.AbsoluteName 'Zell-Adresse
    oSheet.getCellRangeByName(vFound.AbsoluteName).String="rrr"

End Sub

Gruß Frieder

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
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