Suchen und Ersetzen anhand einer Liste
19.02.2020 08:42:31
TH
ich brauche eine Möglichkeit um eine Excel Datenbank anhand einer gegebenen Liste zu überprüfen und die falschen Wörter zu ersetzen.
Gegeben ist eine Liste mit Spalte "Falsch" und "Richtig" in der die zu verbessernden Wörter drin stehen. Zusätzlich gibt es eine weitere Liste mit vielen Datensätzen die regelmäßig (auch nach Hinzufügen neuer Datensätze) überprüft werden muss und entsprechende Wörter ersetzt werden.
Ich habe leider nur grundlegende VBA Kenntnisse und bin noch auf kein Ergebnis gekommen.
Mein aktueller Ansatz sieht folgendermaßen aus:
Sub beispiel()
Dim z As Integer 'zu bearbeitendes Blatt
Dim x As Integer 'lexikon
Dim falsch As String
Dim richtig As String
For z = 1 To 15 Step 1
For x = 2 To 15 Step 1
falsch = Workbooks("Mappe2.xlsm").Worksheets("Tabelle1").Cells(x, 1)
richtig = Workbooks("Mappe2.xlsm").Worksheets("Tabelle1").Cells(x, 2)
If InStr(1, Cells(z, 1), falsch, vbTextCompare) > 0 Then
Cells(z, 2) = Replace(Cells(z, 1), falsch, richtig)
End If
Next
Next
End Sub
Vielen Dank im Vorraus,
MfG TH