Ersetzen

Forumthread: Ersetzen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ersetzen

Ersetzen

18.04.2016 17: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ersetzen

18.04.2016 17:56:04

JoWE
AW: VBA

18.04.2016 18:11:01

UweD

AW: Ersetzen

18.04.2016 17:56:04

JoWE

Hallo Emanuel,
vllt so: =ERSETZEN(A2;FINDEN("xyz";A2);3;"")&"xyz"
Gruß
Jochen

AW: VBA

18.04.2016 18: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