Herbers Excel-Forum - das Archiv

Ausführen Commandbar.Control mit Parametern

Bild

Betrifft: Ausführen Commandbar.Control mit Parametern
von: Rolf Beißner

Geschrieben am: 04.01.2007 12:11:16
Hallo Forum,
gibt es die Möglichkeit, einem Dialogaufruf, z.B dem Dateisuchdialog,
Sub TextsucheInDerArbeitsmappe()
CommandBars.FindControl(ID:=5905).Execute
End Sub

die Suchparameter "mitzugeben" ?
hG
Rolf
Bild

Betrifft: AW: Ausführen Commandbar.Control mit Parametern
von: Ramses

Geschrieben am: 04.01.2007 12:52:36
Hallo
https://www.herber.de/forum/messages/833575.html
Alternativ mal erklären was du machen willst.
Das ganze in VBA zu programmieren ist sicher einfache und besser zu kontrollieren.
Gruss Rainer
Bild

Betrifft: AW: Ausführen CommandbarControl mit Parametern
von: Rolf Beißner

Geschrieben am: 04.01.2007 13:49:38
Hallo Rainer,
in erster Linie geht's mir um die Frage, ob und gegebenenfalls wie man einem über 'Execute' aufgerufenen Dialog Parameter "mitgeben" kann.
Im konkreten Fall (ID=5905 oder ID=1849) kann man manuell einige Optionen einstellen, z.B. den Suchbegriff + den Suchumfang (Blatt oder Mappe) und erhält, wenn man "Alle suchen" gewählt hat, eine Liste mit den Fundstellen, die wiederum durch Anklicken unmittelbar zugänglich sind.
Das ist aus meiner Sicht schon ziemlich komfortabel.
Von Nepumuk gibt's zwar eine Anwendung mit ähnlichem Funktionsumfang, aber wenn's mit Bordmitteln ginge, würde ich das natürlich bevorzugen.
H.G. und dir ein gutes neues Jahr
Rolf
Bild

Betrifft: AW: Ausführen CommandbarControl mit Parametern
von: Ramses

Geschrieben am: 04.01.2007 15:27:22
Hallo Rolf
meines wissens nach kann man dem "FindControl" kein Parameter übergeben werden.
Alternativ mal vielleicht so, da der 1849 Dialog nicht direkt aufgerufen werden kann
Application.Dialogs(xlDialogFormulaReplace).Show "AlterText", "Neuer Text"
Application.Dialogs(xlDialogFormulaFind).Show "Alter Text"
Gruss Rainer
Bild

Betrifft: AW: Ausführen CommandbarControl mit Parametern
von: Rolf Beißner

Geschrieben am: 04.01.2007 16:07:31
Hallo Rainer,
den xlDialogen Find + Replace fehlt's leider an den "richtigen" Optionen.
Also: manuell oder Nepumuk.
Danke + hG
Rolf
 Bild