Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.10.2025 13:48:12
Outlook-Fenster in Vordergrund bringen
01.10.2025 13:28:07
.csv-Datei importieren / Daten abrufen
01.10.2025 13:23:46
Gesamtdiagramm - tricky
30.09.2025 21:34:46
VBA - Sharepoint den Pfad der lokalen Synchronisation ermitt
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige