.findformat Funktion auf Arbeitsblatt beschränken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du kannst generell SUCHEN und ERSETZEN sowohl auf dem aktuellen Tabellenblatt also auch in der ganzen Datei ausführen lassen.
Dies stellst du im SUCHEN-Dialog in der oberen linken Auswahlbox ein.
bei Suchen und Ersetzen per VBA ist es so, dass immer die Einstellungen der letzten Suche/Ersetzen wiederverwendet werden, wenn du für diese Einstellung im Code keine Angaben machst.
Dummerweise ist es so, dass genau diese Einstellung (Suchen im Blatt oder Arbeitsmappe) nicht per VBA geändert werden kann (zumindest zeichnet der Recorder nichts auf und in der Hilfe ist auch kein entpsrechender Parameter beschrieben).
prüfe also mal von Hand wie die Einstellung im Suchmenü ist und setze ggf die Einstellung "Durchsuchen" auf "Blatt".
wenn du per VBA sicherstellen willst, dass "Blatt" eingestellt ist, dann geht das nicht direkt, weil es hierfür keinen Parameter in VBA gibt (hat MS wohl vergessen).
Der Workaround wäre, per SENDKEYS die manuelle Änderung über die Tastatureingabe zu simulieren:

Application.SendKeys "^f%h{UP}{UP}%{F4}"

wenn du diesen Code testen willst, beachte dass du ihn nicht im Einzelstepmodus testen kannst.
Dann ist nämlich der VBA-Editor aktiv und du rufst dessen Such-Funktion auf und nicht die des Tabellenblatts.
Gruß Daniel

Hallo Daniel,
was es so alles gibt (oder nicht gibt)....;-)
Die Ursache scheint tatsächlich zu sein, dass immer die letzte Einstellung genutzt wird. Das ist für meine Zwecke fatal, weil die späteren Anwender das Formular auf Knopfdruck leeren sollen und ich somit keine Einfluss auf vorherige Aktionen/Einstellungen der User habe).
Grundsätzlich habe ich Deinen Vorschlag - nach etwas Lektüre bei MSDN - verstanden. Wenn ich die Tastatureingabe selbst in der Reihenfolge des SENDKEYS-Statements per Hand mache, klappt es auch (STRG-F, ALT-H, 2x Pfeil hoch, ALT-F4).
Habe Deine Code-Zeile vor meine gesetzt. Sehe beim Ausführen auch kurz das Fenster aufflackern. Dennoch tauscht er in allen Blättern aus.
Hast Du noch jemand eine Idee, woran es liegen kann (oder vielleicht sogar eine alternativen Work-around?).
Beste Grüße,
NicNac75

Application.SendKeys "^f%h{UP}{UP}%{F4}" DoEvents Worksheets("Tabelle1").Application.FindFormat.Locked = False Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False

Beliebteste Forumthreads (12 Monate)

.findformat Funktion auf Arbeitsblatt beschränken

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread