suchen und ersetzen
05.11.2022 20:37:24
Lapos
kann mir jemand helfen diese kleine VBA so umzustellen das für die Tabelle 1 auch eine Range festgelegt ist und nicht für die komplette Tabelle gilt?
Das Script soll Werte suchen und ersetzen.
Tabelle1 hat eine lange Liste von Namen in Spalte (H) ca 400 Werte, die ich durch standardisierte Namen ersetzen muss, die auf der Tabelle2 basieren.
In Tabelle2 steht in Spalte A der zu suchenden Werte und Spalte B der Wert mit welchem in Tabelle1 (H) ersetzt werden soll.
Option Explicit
Public Sub searchAndReplaceFromList()
Dim cel As Range
With Tabelle2
For Each cel In Tabelle2.Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Tabelle1.UsedRange.Replace cel.Value2, cel.Offset(0, 1).Value2
Next
End With
End Sub
Anzeige
