Das Archiv des Excel-Forums

Suchdialog über VBA aufrufen

Bild

Betrifft: Suchdialog über VBA aufrufen
von: Wolfgang

Geschrieben am: 20.01.2008 09:14:35

Hallo und guten Morgen,
ich habe da folgendes Problem:
Ich möchte über VBA das Suchen-Dialogfeld aufrufen.
Was auch mit dem 3 folgendem Makro-varianten funktioniert.
Aber danach stürzt Excel immer komplett ab und die Datei muß wieder hergestellt werden.
Meine frage gibt es eine Lösung für das Problem?


Sub SuchDialog()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub



Sub SuchDialog()
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub



Sub SuchDialog()
Application.CommandBars("Worksheet Menu Bar").Controls("&Bearbeiten").Controls("Suchen..."). _
Execute
End Sub


MfG
Wolfgang

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Jens
Geschrieben am: 20.01.2008 09:33:25
Hallo Wolfgang
Versuch mal das Fenster über den Index aufzurufen.
Application.Dialogs(64).Show
Gruß aus dem Sauerland
Jens

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Wolfgang

Geschrieben am: 20.01.2008 09:55:47
Hallo Jens,
danke für Deine Antwort, aber leider immer noch das gleiche Problem.
Gruß Wolfgang

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Holger
Geschrieben am: 20.01.2008 10:13:11
Hallo Wolfgang,
ich habe unter Office 2000 alle 3 Subs ausprobiert und konnte dein Problem nicht verifizieren. Welche Version verwendest du? Funktioniert das manuelle Suchen? Hast du das manuelle Suchen einmal aufgezeichnet und wie arbeitet das aufgezeichnete Makro?
Gruß
Holger

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Wolfgang

Geschrieben am: 20.01.2008 12:40:50
Hi Holger
das ist Version Excel 2003.
das mauelle Suchen funktioniert ohne Probleme.
Die Makro Aufnahme gibt keinen Hinweis auf ein Dialogfeld, sondern arbeitet den Suchvorgang ab.
Sieht dann so aus:


Sub Makro1()
' Makro1 Makro
' Makro am 20.01.2008 von Wolfgang aufgezeichnet
Cells.Find(What:="T*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub


es geht kein Dialogfeld auf!
Gruß Wolfgang

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Gerd L
Geschrieben am: 20.01.2008 10:21:42
Hallo Wolfgang,
ich nehme an, dass dem Dialog lediglich die Range-Basis zum Suchen fehlt.


Sub SuchDialog()
Dim S1 As Object, Rng As Range
Set S1 = Application.Dialogs(xlDialogFormulaFind)
Set Rng = Cells
With Rng
.Select
S1.Show
End With
End Sub


Gruß Gerd

Bild

Betrifft: AW: Suchdialog über VBA aufrufen
von: Wolfgang

Geschrieben am: 20.01.2008 12:44:43
Hallo Gerd,
habe Dein Makro ausprobiert, leider ohne Erfolg, immer noch stürzt Excel ab.
Danke für Deine Hilfe
Gruß Wolfgang

Bild

Betrifft: upload ??
von: ransi
Geschrieben am: 20.01.2008 13:10:21
HAllo Gerd
Kannst du die Datei mal hochladen ?
ransi

Bild

Betrifft: AW: upload ??
von: Wolfgang

Geschrieben am: 20.01.2008 14:02:12
Hallo ransi,
die Orginal - Datei ist leider zu groß.
Ich habe eine Versuchsdatei angelegt aber das gleiche Problem.
https://www.herber.de/bbs/user/49215.xls
Vielen Dank für Deine Unterstützung
Gruß Wolfgang

Bild

Betrifft: AW: upload ??
von: Horst
Geschrieben am: 21.01.2008 18:34:26
Hi,
läuft!
mfg Horst

 Bild

Excel-Beispiele zum Thema "Suchdialog über VBA aufrufen"

Datei auswählen, öffnen und Formelsuchdialog anzeigen download Suchdialog über VBA aufrufen download
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen download Makros in Abhängigkeit vom Zellennamen aufrufen download
Makros zeitgesteuert aufrufen download AddIn aus Makro aufrufen download
Name der aufrufenden Schaltfläche abfragen download Code aufrufen und löschen download
Als Zellkontextmenü Listbox aufrufen download Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download
Grafikprogramm aufrufen und Bild laden download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download Wordmakro aus Excel heraus aufrufen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Aufrufende Menüleistenschaltfläche ermitteln download
Numerisch benanntes Arbeitsblatt 1+X aufrufen download Zu einer aufrufenden UserForm zurückkehren download
Verzeichnisbaum aufrufen und Verzeichnis auswählen download Kontextmenü zur Auswahl von Arbeitsblättern aufrufen download
Bei Wertüberschreitung Makro aufrufen download Tabellenblatt-Hyperlink über UserForm aufrufen download
Blattschutzdialog über VBA aufrufen download Assistent zum Dialog aufrufen und Eingaben auswerten download
Anwendung aufrufen und Makroausführung unterbrechen download Ordnerdialog mit nachfolgendem Dateidialog aufrufen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen download
Datenmaske mit landesspzifischen oder US-Formaten aufrufen download Text in NotePad schreiben, speichern, in Excel aufrufen download
Farbauswahldialog generieren, aufrufen und löschen download Von zweiter UserForm die erste aufrufen download
Über VBA den Excel-Sortierdialog aufrufen download UserForm mit SpinButton zur Datenreiheneinstellung aufrufen download
Wert in Abhängigkeit der aufrufenden Schaltfläche eintragen download UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download
Programmsteuerung für mehrere aufrufende UserForms download Position der aufrufenden Schaltfläche ermitteln download
Bei Doppelklick aufrufende Zelle in UserForm nennen download Datenmaske mit einem bestimmten Datensatz aufrufen download
In der UserForm aufrufende Schaltfläche erkennen download Wordmakro mit Parameter aufrufen download
Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen download Datenmaske zur Aufnaheme des nächsten Satzes aufrufen download
HTML-Seite aus dem Internet aufrufen und als Textdatei speichern download Zahlen-Formatierungs-Dialog aus UserForm aufrufen download
Bei Zellauswahl UserForm mit Artikelnummern aufrufen download Anpassen-Dialog über VBA aufrufen download
VBScript mit Parameter aus VBA aufrufen download Bei Doppelklick AcrobatReader mit Datei aufrufen download
Verknüpfungsdialog aus VBA aufrufen download Outlook-Maildialog aus UserForm aufrufen download