Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suchen & Ersetzen durch Zelleneingaben

Suchen & Ersetzen durch Zelleneingaben
24.03.2021 10:33:18
Musa
Hallo zusammen,
ich möchte die Suchen & Ersetzen Funktion etwas anders nutzen:
Suchen = Wert aus Zelle A1
Ersetzen = Wert aus Zelle B1
Gibt es eine Formel oder VBA hierfür?
Habe leider keine passende Formel gefunden.
Danke vorab für alle Antworten
Gruß, MY

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 11:23:23
UweD
Hallo
in Welchen Bereich denn?
Hier mal ein Beispiel für den markieren Bereich

Sub Tauschen()
Selection.Replace What:=Range("A1"), Replacement:=Range("B1"), LookAt:=xlPart, _
SearchOrder:=xlByRows, FormulaVersion:=xlReplaceFormula2
End Sub

LG UweD

Anzeige
AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 11:56:30
Musa
Hey danke für die Antwort.
z.B. im Bereich B1:E30
Gruß, MY

AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 11:58:02
Musa
muss mich korrigieren:
C1:E30

AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 12:53:07
UweD
Hallo
dann so

Sub Tauschen()
Dim RNG As Range
Set RNG = Range("C1:E30")
RNG.Replace What:=Range("A1"), Replacement:=Range("B1"), LookAt:=xlPart, _
SearchOrder:=xlByRows, FormulaVersion:=xlReplaceFormula2
End Sub
LG UweD

Anzeige
AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 13:54:31
Musa
Hi Uwe,
ich habe die jetzt so wie es ist kopiert und eingefügt.
Irgendwie tut sich gar nichts
LG MY

AW: Suchen & Ersetzen durch Zelleneingaben
24.03.2021 15:00:36
Charly
Hi MY
Was steht denn bei dir in A1 und B1?
sh.
https://www.herber.de/bbs/user/145076.xlsm
Gruß Charly
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige