Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige