hatte die gleiche Frage gestern schon, bin aber nicht so richtig weitergekommen oder habe mich falsch ausgedrückt.
(Trotzdem nochmal Dank an Reinhard und Hoffi.)
Problem:
Möchte per Makro die Funktion "Ersetzen" nutzen. Der zu ersetzende Wert soll aus Zelle "P2" (Text) ausgelesen werden. Der neue Wert wird über eine InputBox festgelegt. Dannach sollen alle Werte der Spalte "P" mit dem neuen Wert ersetzt werden. Das mit der InputBox ist kein Problem:
Dim Meldung1
Dim Titel1
Dim Voreinstellung1
Dim Wert1 As Integer
Dim Wert2 As Integer
Meldung1 = "Bitte geben Sie hier den neuen Text ein:"
Titel1 = "Ersetzen"
Voreinstellung1 = ""
Wert1 = InputBox(Meldung1, Titel1, Voreinstellung1)
Columns("P:P").Select
Selection.Replace What:=Wert2, Replacement:=Wert1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Wie schaffe ich es nun das Wert2 den Eintrag aus "P2" erhällt und durch Wert1 ersetzt wird.
Bin für jede Hilfe dankbar.
Gruß Jürgen