VBA Suchen/Ersetzen laut Liste
15.11.2012 20:31:53
WalterK
mit dem folgenden Code aus dem Internet kann ich per Knopfdruck gleich mehrere Zellinhalte einer Spalte ersetzen.
Option Explicit
Sub SuchenErsetzen()
Dim arName1 As Variant
Dim arName2 As Variant
Dim i As Long
arName1 = Array("Apfel", "Banane", "Gurke")
arName2 = Array("Roter Apfel", "Gelbe Banane", "Grüne Gurke")
For i = LBound(arName1) To UBound(arName1)
Columns(3).Replace arName1(i), arName2(i), xlWhole
Next
End Sub
1. Frage: Anstatt die Wörter in arName1 und arName2 einzeln einzugeben möchte ich 2 Spalten (in meinem Beispiel die Spalten N und O)zur Verfügung stellen. Was müsste ich dazu ändern?2. Frage: Ist es auch möglich, dass beim Start des Codes ein Fenster erscheint und ich dort die relevanten Spaltenbuchstaben eingebe: z.B.
Bearbeitungsspalte: C
Wort ALT: N
Wort NEU: O
Hier noch die Beispielmappe.
https://www.herber.de/bbs/user/82647.xls
Besten Dank für die Hilfe und Servus, Walter