Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige