Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2012to2016
2012to2016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Suchen/Ersetzen-Fenster per Makro aufrufen

Forumthread: Suchen/Ersetzen-Fenster per Makro aufrufen

Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 15:36:28
Hans
Hallo liebes Forum,

ich möchte gerne in einer Tabelle per Makro einfach nur das Fenster "Suchen und Ersetzen" aufrufen.

Wenn ich per Makro-Recorder den Weg aufzeichne, öffnet sich das Fenster nicht.?

Ich freue mich auf eure Rückmeldungen und bedanke mich schon mal recht herzlich für die Unterstützung.

Viele Grüße Hans


Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 15:44:37
RPP63
Moin!
Der Shortcut Strg+h ist zu einfach?
Gehe mal im VBA-Editor mittels F2 in den Objekt-Katalog und durchforste parallel zu mir die Apllication.Dialogs-Auflistung!

Gruß Ralf
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 16:02:41
daniel
Hi
der Recorder zeigt dir nur den Weg, wie du die entsprechende Aktion direkt, dh ohne Interaktion mit dem Anwender programmieren kannst.
um per Makro so ein Dialogfeld des Excelmenüs aufzurufen, benötigst du den Befehl: 
Application.Dialogs(xldialog....).Show

die Liste der verfügbaren Dialoge bekommst du über die Intellisense, wenn du anfängst das "xldialog" zu tippen.
https://learn.microsoft.com/de-de/office/vba/api/excel.xlbuiltindialog
allerdings scheint mir das recht veraltet und nicht immer zuverlässig, gerade für das "Suchen" habe jetzt nichts passendes gefunden.

ein anderer Weg wäre, die entsprechenden Tastenbefehle, die da Menü öffnen, an Excel zu schicken. 
SendKeys "%ruue"

aber auch das ist nicht unproblematisch, das Makro muss über einen Button gestartet werden und die Buchstabenkombinationen können sich ändern.

Gruß Daniel


Anzeige
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 16:57:15
Dieter(Drummer)
Hallo Hans,

das kannst du per Shortkey erreichen:

In ein Modul oder die Tasten selbts hintereinander aktivieren 

Sub SuchenEersetzen()

Application.SendKeys ("%RFDE")

End Sub

Erläuterung:
% = Alt Taste
R = Startmeü
FD = Suchen und auswählen Menü
E = Option Suchen/Ersetzen zeigen

Gruß,
Dieter(Drummer)
Anzeige
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 18:50:27
Hans
Hallo Dieter,

danke für Deine schnelle Rückmeldung.

Leider funktioniert dein Vorschlag nicht. Ich bekomme nur die 3 Buchstaben FDE in eine Zelle geschrieben


Diese Lösungsvorschläge funktionieren beide.

Mit SendKeys ist das Application.SendKeys "^h"

Sub OeffneSuchenUndErsetzen()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


Danke und viele Grüße
Hans
Anzeige
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 19:43:36
Dieter(Drummer)
Hallo Hans,

wenn das Makro über Button in Tabelle aktiviert wird, funktiomniert es mir.
Evtl liegt es daran, dass ich Version 2010 habe und du Excel 2019.

Gruß,
Dieter(Drummer)
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 17:16:29
AniLH
Hallo Hans,

versuch es mal so, bei mir klappt das:

Sub OeffneSuchenUndErsetzen()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub


Gruß AniLH
Anzeige
Threadverlauf??
04.07.2025 17:29:13
RPP63
Liest sich hier eigentlich keiner mehr einen Thread durch, bevor er antwortet?
xlDialogFormulaReplace steht schon längst hier, sogar explizit im Betreff!
Dann zu den SendKeys:
Wenn schon, dann doch eher den Shortcut, den "eigentlich" jeder Windows- (nicht Excel-) Nutzer kennen sollte:
Strg+h steht bereits in meiner ersten Antwort!
Mit SendKeys ist das Application.SendKeys "^h"
Anzeige
AW: Threadverlauf??
04.07.2025 18:52:47
Hans
Hallo und Danke für deine Lösung.

Mit Mit SendKeys ist das Application.SendKeys "^h" klappt es.

Viele Grüße

Hans

Mit dieser Lösung klappt es auch!

Sub OeffneSuchenUndErsetzen()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub
xlDialogFormulaReplace
04.07.2025 15:50:54
RPP63
Folglich: 
Application.Dialogs(xlDialogFormulaReplace).Show
Anzeige
AW: Suchen/Ersetzen-Fenster per Makro aufrufen
04.07.2025 17:36:44
Dieter(Drummer)
Hallo Ralf,

ich kannte deine Shortcuts noch nicht und fand das sehr interessant, auch wenn icht der Frager bin.

Gruß,
Dieter(Drummer)
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum