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

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