Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzen

Forumthread: Ersetzen

Ersetzen
18.04.2016 15:20:08
Emanuel
Hallo zusammen,
ich möchte in einer Datei nach xyz suchen und in allen Zellen die xyz enthalten (z.B. xyz123) das xyz ans Ende (also 123xyz). Ist das über "ersetzen" möglich? Und wenn nicht, ist es irgendwie anders machbar?
LG
Emanuel

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen
18.04.2016 15:56:04
JoWE
Hallo Emanuel,
vllt so: =ERSETZEN(A2;FINDEN("xyz";A2);3;"")&"xyz"
Gruß
Jochen

AW: VBA
18.04.2016 16:11:01
UweD
Hallo

Sub Makro4()
Dim SP As Integer, CC As Integer, LR As Double
Dim Tausch As String
SP = 1 'SPalte mit Suchwert
Tausch = InputBox("Text?", "Tauschen", "xyz")
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
CC = .Cells.SpecialCells(xlCellTypeLastCell).Column + 1
.Columns(SP).AutoFilter
.Columns(SP).AutoFilter Field:=1, Criteria1:=Tausch & "*"
.Range(Cells(2, CC), Cells(LR, CC)).FormulaR1C1 = _
"=REPLACE(RC" & SP & ",1," & Len(Tausch) & ","""")&""" & Tausch & """"
.Range(Cells(2, SP), Cells(LR, SP)).Value = .Range(Cells(2, CC), Cells(LR, CC)).Value
.AutoFilterMode = False
.Columns(CC).Clear
End With
End Sub

Gruß UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige