VBA: Finden Ersetzen
13.02.2020 08:33:29
Axel
ich benötige bitte eure Hilfe:
Ich möchte per VBA in einer Tabelle nach zwei Kriterien suchen und bei Treffer zwei Werte in der selben Zeile ersetzen. Die Tabelle kann unterschiedlich viele Zeilen haben, die gesuchten Werte stehen aber immer in der selben Spalte.
Suche nach "52035" in Spalte D UND "IWM" in Spalte E,
bei Treffer beider Kriterien:
Ersetze in der selben Zeile in Spalte B die "50100" durch "52035" und in Spalte E "FND" durch "IWM".
Ich weiß, dass der Code nicht funktioniert, aber vielleicht macht es deutlich, wohin die Reise gehen soll:
Sub Ersetzen()
Dim finden As Range
Set finden = Range("D:D").Find(What:="50235")
'UND
Set finden = Range("E:E").Find(What:="IWM")
'Then
ActiveWorksheet.Columns("B:B").Replace _
What:="50100", Replacement:="50235", _
'UND
ActiveWorksheet.Columns("C:C").Replace _
What:="FND", Replacement:="IWM", _
End Sub
Beste Grüße
Axel