Excel VBA Suchen und Ersetzen

Haben Sie jemals darüber nachgedacht, die Suchen- und Ersetzen-Funktion in Excel zu automatisieren? In VBA können Sie ein Makro erstellen, mit dem Sie alle in Excel üblichen Aktionen finden und ersetzen können, indem Sie die Tastenkombination Strg + H drücken. Mit Hilfe von VBA Find and Replace können wir die Suche nach einem beliebigen Wort automatisieren und dieses durch ein anderes ersetzen. Dies ist hilfreich, wenn wir dieselbe Aktivität mehrmals ausführen müssen.

Suchen und Ersetzen von Wörtern in Excel VBA

Im Folgenden finden Sie verschiedene Beispiele zum Suchen und Ersetzen der Wörter in Excel mithilfe von VBA-Code.

Sie können diese VBA-Excel-Vorlage zum Suchen und Ersetzen hier herunterladen - VBA-Excel-Vorlage zum Suchen und Ersetzen

VBA Find and Replace - Beispiel # 1

In einem sehr einfachen Beispiel haben wir einen Datensatz, der aus einem Namen besteht. Und einige der Namen werden wiederholt, wie unten gezeigt.

Jetzt werden wir einen Code erstellen, mit dem wir alle Namen finden, die wiederholt werden, und durch etwas anderes ersetzen. Führen Sie dazu die folgenden Schritte aus.

Schritt 1: Gehen Sie zum Menü Einfügen in VBA und wählen Sie die Option Modul wie unten gezeigt.

Schritt 2: Sobald wir das tun, werden wir ein neues Modul öffnen. Schreiben Sie in diesem Modul die Unterkategorie in den Namen VBA Find and Replace, oder wählen Sie einen beliebigen Namen dieser Unterkategorie aus.

Code:

 Sub Find_Replace1 () End Sub

Schritt 3: Da wir die Daten in Spalte B von Zelle B2 bis B10 haben, werden wir diesen Bereich zuerst von B2: B10 auswählen.

Code:

 Sub Find_Replace1 () Range ("B2: B10"). End Sub ersetzen

Schritt 4: Um nun etwas zu ersetzen, müssen wir nach diesem Wort suchen. Auch hier wählen wir zuerst die Funktion Ersetzen, um zu sehen, was wir ersetzen müssen.

Code:

 Sub Find_Replace1 () Range ("B2: B10"). End Sub ersetzen

Gemäß der Syntax der Replace- Funktion finden wir, was wir ersetzen müssen.

Schritt 5: Wählen Sie als zu ersetzendes Element den Vornamen der Liste „ Ben “ aus.

Code:

 Sub Find_Replace1 () Range ("B2: B10"). Ersetzen What: = "Ben" End Sub

Schritt 6: Wählen Sie nun das Ersatzwort aus, durch das das ausgewählte Wort ersetzt werden soll. Hier haben wir uns entschieden, den Namen Ben durch Sam zu ersetzen, der wie unten gezeigt als Ersatz erwähnt wird.

Code:

 Sub Find_Replace1 () Range ("B2: B10"). Ersetzen What: = "Ben", Replacement: = "Sam" End Sub

Schritt 7: Kompilieren Sie nun den Code und führen Sie ihn aus, indem Sie auf die Wiedergabetaste klicken oder die Taste F5 drücken, wie unten gezeigt.

Wir werden sehen, dass jetzt alle Zellen, die den Namen Ben enthalten, durch den Namen Sam ersetzt werden . Und das ist auch in gelber Farbe hervorgehoben.

VBA Find and Replace - Beispiel # 2

Möglicherweise hatten wir alle mit einer Situation zu kämpfen, in der wir versucht haben, einige Wörter durch Groß- und Kleinschreibung zu ersetzen. Nehmen wir in einer Liste an, wir möchten nur das Wort ersetzen, das einige Klein- oder Großbuchstaben enthält. Und wenn wir den Prozess verwenden, den wir in Beispiel 1 gesehen haben, werden wir am Ende alle ähnlichen Wörter in dieser Liste zusammen mit dem erforderlichen ersetzen. Dieser Vorgang kann nicht mit der Funktion zum Suchen und Ersetzen (Strg + H) von Excel durchgeführt werden. Dafür haben wir eine Rückstellung in VBA.

Betrachten wir dazu die folgenden Daten. Wie wir sehen können, haben wir in Zelle B2 absichtlich ein Wort BEN in Großbuchstaben eingefügt.

Führen Sie die folgenden Schritte aus, um das Wort BEN zu finden und zu ersetzen .

Schritt 1: Starten Sie dort die Unterkategorie von VBA Find and Replace (siehe unten).

Code:

 Sub Find_Replace2 () End Sub

Schritt 2: Wählen Sie die Liste als Bereich von B2 bis B10.

Code:

 Sub Find_Replace2 () Range ("B2: B10") End Sub

Schritt 3: Wählen Sie nun genau das Wort aus, das Sie ersetzen möchten. Hier haben wir BEN ausgewählt, das sich in Zelle B2 befindet.

Code:

 Sub Find_Replace2 () Range ("B2: B10"). Ersetzen What: = "BEN" End Sub

Schritt 4: Wieder haben wir das gleiche Wort ausgewählt, das wir in Beispiel 1 als Ersatz für BEN als Sam gesehen haben .

Code:

 Sub Find_Replace2 () Range ("B2: B10"). Ersetzen What: = "BEN", Replacement: = "Sam" End Sub

Schritt 5: Um nun das genaue Wort BEN zu ersetzen, müssen wir MatchCase verwenden, wenn das TRUE wird, wie unten gezeigt.

Code:

 Sub Find_Replace2 () Range ("B2: B10"). Ersetzen What: = "BEN", Replacement: = "Sam", MatchCase: = True End Sub

Die MatchCase hilft uns dabei, das Wort zu identifizieren, das wir durch eine genaue Übereinstimmung ersetzen möchten. Hier hat das Wort, das wir ausgewählt haben, in Großbuchstaben BEN und in der Liste andere ähnliche Wörter, aber in der richtigen Schreibweise.

Schritt 6: Führen Sie nun den Code aus, indem Sie auf die Wiedergabetaste klicken oder die Taste F5 drücken.

Wir werden sehen, dass das Wort BEN, das sich in Zelle B2 befand, jetzt durch das Wort „ Sam “ ersetzt wird, das in gelber Farbe hervorgehoben ist. Und die ähnlichen Wörter Ben, die sich in den Zellen B5 bzw. B8 befinden, sind noch unverändert.

So funktioniert das Ersetzen von exakten Übereinstimmungen.

Schritt 7: Nun werden wir die hinzugefügte MatchCase aus dem obigen Code entfernen und sehen, wie dies funktionieren würde.

Code:

 Sub Find_Replace2 () Range ("B2: B10"). Ersetzen What: = "BEN", Replacement: = "Sam", MatchCase: = True End Sub

Schritt 8: Kompilieren Sie den Code erneut und führen Sie ihn aus.

Wir werden sehen, dass der Code alle Zellen ersetzt hat, die das Wort Ben enthalten, wie oben gezeigt. Das bedeutet, dass der Code nach dem Entfernen von MatchCase wie in Beispiel 1 funktioniert.

Vorteile von Excel VBA Suchen und Ersetzen

  • Das wichtigste Lernen ist, dass wir case sensitive Wörter und Zellinhalte mit der Hilfe von VBA Find and Replace ersetzen können, wie in Beispiel 2 gezeigt.
  • Wenn die Aktivität manuell ausgeführt wird und mehrmals wiederholt wird, ist die Automatisierung ein Vorteil, um Zeit und Mühe zu sparen.
  • Selbst wenn wir eine große Datenmenge haben, in der wir bestimmte Wörter ersetzen möchten, kann dies durchgeführt werden, ohne das Excel in umfangreichen Dateien zum Absturz zu bringen.

Dinge, an die man sich erinnern sollte

  • Mithilfe der Option "Makro aufzeichnen" auf der Registerkarte "Entwickler" können Sie ein Makro mit der Funktion "Suchen und Ersetzen" erstellen. Dies ist der einfachste Weg, um ein Makro zu erstellen, wenn Sie mit dem Codieren noch nicht vertraut sind.
  • Wenn Sie die Datei im Macro Enable Excel-Format speichern, kann der Code in Zukunft verwendet werden.
  • Wir können jede Art von Text, Wort, Zahl oder Zeichen durch VBA Find and Replace ersetzen.

Empfohlene Artikel

Dies ist eine Anleitung zum Suchen und Ersetzen in VBA. Hier erfahren Sie, wie Sie mithilfe von VBA Wörter in Excel finden und ersetzen können, sowie praktische Beispiele und eine herunterladbare Excel-Vorlage. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA-Unterbrechung für Schleife
  2. REPLACE Formula in Excel
  3. Eine vollständige Anleitung VBA Find
  4. FIND-Funktion in Excel

Kategorie:

VBA