Suchen/Ersetzen Makro, rel. Bezug
02.02.2021 15:46:01
Bralwand
Ich habe eine Tabell in der jeweils nach dem Wert aus Zelle B4 gesucht werden soll und anschliessend mit dem Wert in Zelle C4 ersetzt werden soll. Es soll jeweils im gesamten Tabellenblatt gesucht werden und auch alle alten Werte im Tabellenblatt ersetzt werden (siehe Beispieltabelle im Anhang, https://www.herber.de/bbs/user/143527.xlsm).
Für die erste Zeile (in der Beispieldatei ist das B4) klappt das eigentlich schon mal. Dort wird der Wert der in B4 steht in der gesamten Tabelle durch den Wert den in C4 steht ersetzt. Jetzt will ich aber dass dies auch auf den nachfolgenden Zeilen funktioniert wenn ich z.B. auf B5 klicke, dass dann der alte Wert aus B5 durch den neuen in C5 ersetzt wird (bzw. in der gesamten Tabelle). Irgendwie schaffe ich es nicht einen relativen Bezug herzustellen (bin leider auch sehr unerfahren). Bisher habe ich das:
Sub Makro2()
' Makro2 Makro
With Worksheets("Tabelle1")
.UsedRange.Replace What:=.Range("B4"), Replacement:=.Range("C4"), LookAt:=xlWhole
End With
End Sub
Vielen herzlichen Dank für eure Hilfe im Voraus!