HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SuchenDialog über execute ohne zuvor select.

SuchenDialog über execute ohne zuvor select.
24.09.2003 17:45:48
zdena
Hallo zusammen,

wollte den SuchenDialog von EXCEL aufrufen über:

application.Dialogs(xlDialogFormulaFind.show

Geht nur wenn man über z.B. cells.select auch einen Bereich zuvor msrkiert (--> wird alles schwarz!). Bei strg+F kommt aber das Dialogfenster ohne dass irgendeine Zelle schwarz markiert sein muss!
Also war die Idee den SuchenDialog über die Menüleiste zu starten über:

Dim oBtn As CommandBarButton
Set oBtn = Application.CommandBars("Worksheet Menu Bar") _
.Controls("Bearbeiten").Controls("Suchen...")
oBtn.Execute

Macht ja nicht anderes als strg+f oder Mausklick. Trotzdem muss ich auch hier den den Bereich über cells.selct markieren, damit es funktioniert. Wird aber alles wieder schwarz!!

Frage: Wie rufe ich den SuchenDialog ohne markierte Zellen auf und dass er eingegebene Wörter in der Tabelle findet (deluxe auch über mehrere Blätter)?

Vielen Dank für eine Antwort (Habe im Archiv nur Methode mit cells.select gefunden )

Schönen Gruß

Zdena:-)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: SuchenDialog über execute ohne zuvor select.
24.09.2003 18:19:08
andre
hallo zdena,
wenn's nicht geht, muss es an was anderem liegen.
das mit der klammer zu wird nur hier ein schreibfehler sein, ausserdem kommt dann die entsprechende meldung.
ansonsten z.b. prüfen, ob die datei ausgeblendet ist, dann muss sie erst eingeblendet werden...
wenn du den originaldialog willst dann in etwa so. du musst ihn nur auf jeder seite schliessen
Public 

Sub test()
For Each blaetter In Sheets()
Application.Dialogs(xlDialogFormulaFind).Show
Next
End Sub

ansonsten wäre eine andere lösung mit inputbox usw interessant. dazu kannst du auch die recherche nutzen oder mit dem xlwebfinder suchen - siehe excel-downloads.
gruss andre
AW: SuchenDialog über execute ohne zuvor select.
24.09.2003 18:30:56
zdena
Danke Dir Andre,

es kommt aber immer die Fehlermeldung "Die Show-Methode des Dialog-Objektes ist fehlerhaft". Laufzeitfehler 1004.

Wenn ich dann wieder cell.select zuvor einschreibe funktioniert es wieder. Hast Du noch eine Idee??

Danke!!

Schönen Gruß

Zdena:-)
AW: SuchenDialog über execute ohne zuvor select.
24.09.2003 18:58:42
andre
hallo zdena,
wenn du auf dem blatt bist und das makro über das menü extras - makro - makros - ausführen startest, geht's dann?
gruss andre

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!