Microsoft Excel

Herbers Excel/VBA-Archiv

"Suchen" mit VBA aufrufen?

Betrifft: "Suchen" mit VBA aufrufen? von: Michael
Geschrieben am: 23.08.2004 13:46:17

Hallo liebes Forum,
ich habe eine für Euch bestimmt ganz einfache Frage:
Wie sieht der VBA Text aus mit der ich die Suchfunktion öffnen kann?
1.000 Dank und Gruß
-Michael-

  


Betrifft: AW: "Suchen" mit VBA aufrufen? von: Klaus SChubert
Geschrieben am: 23.08.2004 14:02:55

Hallo Michael,

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


Gruß Klaus


  


Betrifft: DANKE von: Michael
Geschrieben am: 23.08.2004 14:13:05

DANKE KLAUS,

vielen Dank, funkt bestens.
Grüße
Michael


  


Betrifft: Geht doch nicht !!! von: Michael
Geschrieben am: 23.08.2004 14:27:12

Hallo,
die Lösung scheint doch nicht zu klappen.
Er öffnet zwar das Suchfenster, jedoch findet er die gesuchte Zelle nicht, obwohl vorhanden.

Gruß
Michael


  


Betrifft: AW: Geht doch nicht !!! von: Ulf
Geschrieben am: 23.08.2004 14:31:24

Das ist ein Bug! Markiere zuvor den Suchbereich!

Ulf


  


Betrifft: AW: Geht doch nicht !!! von: Michael
Geschrieben am: 23.08.2004 14:47:55

Danke für die Nachricht Ulf.
Wie sieht den der VBA Text aus wenn das gesamte Tabellenblatt durchsucht werden soll ohne es vorher extra zu markieren?

Danke für ein Feedback
-Michael-


  


Betrifft: AW: Geht doch nicht !!! von: Ulf
Geschrieben am: 23.08.2004 14:58:23

Sub Suchdialog()
  If Not CommandBars.FindControl(ID:=1849) Is Nothing Then
    CommandBars.FindControl(ID:=1849).Execute
  End If
End Sub


Ulf


  


Betrifft: Geht leider immer noch nicht von: Michael
Geschrieben am: 23.08.2004 15:21:09

Hallo,

das klappt leider immer noch nicht ???
Auch mit dem VBA Code wird nur der markierte Bereich durchsucht.

gibt es noch eine Idee?

Gruß
Michael


  


Betrifft: AW: Geht leider immer noch nicht von: Ulf
Geschrieben am: 23.08.2004 15:52:48

Na logisch, es wird immer der markierte Bereich durchsucht. Ansonsten kannst du es per
Code erledigen, doch dafür muss der Dialog ja nicht angezeigt werden.

set rng = cells.find(....)

Ulf


  


Betrifft: AW: Geht leider immer noch nicht von: Michael
Geschrieben am: 23.08.2004 16:05:55

Hallo Ulf,

kannst Du mir bitte den Code aufschreiben.
Ich habe davon leider null Ahnung, bin aber ganz stolz wenn ich das mit Deiner Hilfe hinbekommen.
Danke
Michael


  


Betrifft: AW: Geht leider immer noch nicht von: Ulf
Geschrieben am: 23.08.2004 17:38:10

Selber machen bringt mehr, zeichne dir das Ganze mal per Makrorekorder auf.

Ulf


  


Betrifft: AW: Geht leider immer noch nicht von: Michael
Geschrieben am: 24.08.2004 10:57:44

Schade, mit dem Macrorekorder hatte ich es schon probiert, leider aber nicht hinbekommen, da ich die Aufzeichnung nicht beenden konnte solange das Suchfenster noch geöffnet war. Sicherlich ist es ein einfaches für jemanden der sich da auskennt, für mich jedoch leider nicht.

Gruß
Michael


 

Beiträge aus den Excel-Beispielen zum Thema ""Suchen" mit VBA aufrufen?"