Hallo

ich möchte in der Tabelle in Spalte A nach einem Wert suchen =Eingabe MIP "A2" und beim Treffer durch "*" ersetzen / Für mich sieht es total logisch aus aber der VBA versteht (mich mal wieder nicht) Bitte um Hilfe;

Dim Suchwert As String
Dim Zielwert As String

Suchwert = Sheets("Eingabe MIP").Range("a2")
Zielwert = "*"

Sheets("D_MIP").Select
Range("A:A").Select

For Each rngZelle In Selection
rngZelle.Value = Replace(rngZelle.Value, "Suchwert", "Zielwert")
Next rngZelle