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

[Frieder]

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+h...@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