Microsoft Excel

Herbers Excel/VBA-Archiv

Suchdialog über VBA aufrufen

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

  

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


  

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


  

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


  

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


  

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


  

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


  

Betrifft: upload ?? von: ransi
Geschrieben am: 20.01.2008 13:10:21

HAllo Gerd

Kannst du die Datei mal hochladen ?

ransi


  

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


  

Betrifft: AW: upload ?? von: Horst
Geschrieben am: 21.01.2008 18:34:26

Hi,

läuft!

mfg Horst


 

Beiträge aus den Excel-Beispielen zum Thema "Suchdialog über VBA aufrufen"