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

Bestimmten Text einer Zelle ersetzen

Forumthread: Bestimmten Text einer Zelle ersetzen

Bestimmten Text einer Zelle ersetzen
29.10.2014 10:50:01
Muehli

Guten Morgen,
ich habe eine kurze Frage:
Form meiner Tabelle:
|SpalteA|
|Wort Wort Wort|
|Wort Wort Wort [beliebig viele Leerzeichen] F(#####)|
|Wort Wort [beliebig viele Leerzeichen]F(#####)|
|Wort|
|Wort Wort|
Wie kann ich es nun realisieren, wenn ich den Ausdruck "F(#####)" in der kompletten Spalte durch den Ausdruck "Test" ersetzt haben möchte?
Bsp:
|SpalteA|
|Wort Wort Wort|
|Wort Wort Wort [beliebig viele Leerzeichen] Test|
|Wort Wort [beliebig viele Leerzeichen] Test|
|Wort|
|Wort Wort|
Anmerkung:
Der Ausdruck "F(#####)" sieht immer so aus, ist also keine Variable.
Freundliche Grüße
Muehli

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Dann mit WECHSELN ! Gruß owT
29.10.2014 10:55:28
Luc:-?
:-?

AW: Dann mit WECHSELN ! Gruß owT
29.10.2014 11:24:29
Muehli
Hallo Luc,
danke für deine Antwort!
Ich habe es mal so versucht:
Private Sub CommandButton1_Click()
Dim i As Long
Dim TxtZelle As String
i = 1
For i = 1 To 1000
TxtZelle = Range("A" & i).Text
Range("A" & i).FormulaLocal = "=WECHSELN(TxtZelle;""F(#####)"";""Test"")"
Next i
End Sub
Aber es führt leider nicht zum gewünschten Ergebnis.
Ist mein Code totaler Murks oder ist es nur eine Kleinigkeit die fehlt?
Freundliche Grüße
Muehli

Anzeige
AW: Dann mit WECHSELN ! Gruß owT
29.10.2014 11:24:29
Muehli
Hallo Luc,
danke für deine Antwort!
Ich habe es mal so versucht:
Private Sub CommandButton1_Click()
Dim i As Long
Dim TxtZelle As String
i = 1
For i = 1 To 1000
TxtZelle = Range("A" & i).Text
Range("A" & i).FormulaLocal = "=WECHSELN(TxtZelle;""F(#####)"";""Test"")"
Next i
End Sub
Aber es führt leider nicht zum gewünschten Ergebnis.
Ist mein Code totaler Murks oder ist es nur eine Kleinigkeit die fehlt?
Freundliche Grüße
Muehli

Anzeige
AW: Makrorecorder
29.10.2014 11:43:31
hary
Moin
Fuer so'ne Faelle gibt es den Makrorecorder. Blattname anpassen. 
worksheets("Tabelle1").Columns("A:A").Replace What:="F(#####)", Replacement:="Test", LookAt:=xlPart, SearchOrder:=xlByRows

gruss hary

Suchen + Ersetzen
29.10.2014 11:46:45
Matthias L
Hallo
Das geht doch auch ohne VBA
mit Strg+H Dialog aufrufen
Userbild
alle ersetzen - das wars schon ...

so siehts dannach aus:
Tabelle1

Anzeige
Substitute
29.10.2014 11:51:19
Matthias L
Hallo
Noch eine Variante
Dim TxtZelle$, TauschTxt$, NewTxt$
TxtZelle = Range("A2").Value
TauschTxt = "F(#####)|"
NewTxt = "Test"
Range("A4").Formula = Application.WorksheetFunction.Substitute(TxtZelle, TauschTxt, NewTxt)

Ergebnis:
Das ist dann ja wohl auch von 'hinten durch ...
29.10.2014 11:52:15
Luc:-?
…die Brust geschossen', Muehli,
obwohl es auch fktionieren würde, wenn du beachtet hättest, dass TxtZelle jetzt einen Text enthält, den die Fml aber ohne entsprd Kennzeichnung als (fehlerhaften) Namen interpretieren würde. Außerdem hast du den VariablenNamen direkt in die Fml einbezogen (diesen Namen kennt deine XlMappe nicht!), nicht ihren Inhalt! Richtig wäre also:
"=WECHSELN(""" & TxtZelle & """;""F(#####)"";""Test"")"
Aber das kann man auch einfacher haben:
Range("A" & i) = Replace(TxtZelle, "F(#####)", "Test")
Gruß, Luc :-?

Anzeige
AW: Bestimmten Text einer Zelle ersetzen
29.10.2014 11:45:26
Uwe Küstner
Hallo,
Private Sub CommandButton1_Click()
ActiveCell.Activate
Me.Columns(1).Replace What:="F(#####)", Replacement:="Test", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End Sub
Gruß Uwe

AW: Bestimmten Text einer Zelle ersetzen
29.10.2014 13:02:16
Muehli
Hallo Uwe,
danke für die Antwort!
Funktioniert super!
Allen Anderen auch ein Dankeschön für die Mühe :)
Gruß
Muehli

Anzeige
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Anzeige
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Modul durch Makro löschen und ersetzen
Dietmar

Guten Morgen zusammen,
kann mir jemand einen Tipp geben?
Ich suche nach einer Möglichkeit, ein kompletes Makro-Modul per Makro zu löschen und durch ein neues Makro (mit exakt dem gleichen Namen) zu ersetzen.
Eine inhaltliche Änderung eines Makros per Makro erscheint mir zu schwierig...
26.03.2009 01:28:12
Thread-ID: 1064062
3 Beiträge
Anzeige
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen
Randolf

Hallo Excel-Gemeinde,
ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen...
14.05.2009 11:54:34
Thread-ID: 1075089
7 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige

Infobox / Tutorial

Bestimmten Text einer Zelle ersetzen in Excel

Schritt-für-Schritt-Anleitung

Um den Text "F(#####)" in einer Excel-Spalte durch "Test" zu ersetzen, kannst Du entweder eine einfache Formel verwenden oder ein VBA-Makro, das die Aufgabe automatisiert. Hier sind die Schritte für beide Methoden:

1. Mit WECHSELN-Funktion:

Du kannst die WECHSELN-Funktion nutzen, um den Text zu ersetzen. Gehe wie folgt vor:

  1. Klicke in die Zelle B1 (oder eine andere Zelle, wo das Ergebnis erscheinen soll).

  2. Gib die folgende Formel ein:

    =WECHSELN(A1;"F(#####)";"Test")

  3. Ziehe den kleinen Anfasser in der unteren rechten Ecke der Zelle nach unten, um die Formel auf die anderen Zellen in der Spalte anzuwenden.

2. Mit VBA-Makro:

Falls Du ein VBA-Makro verwenden möchtest, um den Text in der gesamten Spalte A zu ersetzen, mache Folgendes:

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf "Einfügen" > "Modul".

  3. Füge den folgenden Code ein:

    Sub ZelleninhaltErsetzen()
   Dim i As Long
   For i = 1 To 1000
       Cells(i, 1).Value = Replace(Cells(i, 1).Value, "F(#####)", "Test")
   Next i
End Sub

  4. Schließe den VBA-Editor und führe das Makro aus (ALT + F8 > Wähle ZelleninhaltErsetzen und klicke auf "Ausführen").

Häufige Fehler und Lösungen

  • Fehler: Die WECHSELN-Funktion gibt einen Fehler zurück.

    • Lösung: Stelle sicher, dass der Text "F(#####)" exakt in der Zelle vorhanden ist. Achte auf zusätzliche Leerzeichen.

  • Fehler: Das VBA-Makro funktioniert nicht.

    • Lösung: Überprüfe, ob die Zellen in Spalte A tatsächlich Text enthalten und dass das Makro auf die richtige Arbeitsmappe angewendet wird.

Alternative Methoden

  • Suchen und Ersetzen Dialog: Du kannst den Dialog für "Suchen und Ersetzen" verwenden, indem Du Strg + H drückst. Gib "F(#####)" in das Feld „Suchen nach“ und "Test" in das Feld „Ersetzen durch“ ein. Klicke auf „Alle ersetzen“.

  • VBA mit Worksheets.Replace: Eine andere VBA-Methode wäre:

    Worksheets("Tabelle1").Columns("A:A").Replace What:="F(#####)", Replacement:="Test", LookAt:=xlPart

Praktische Beispiele

  1. Beispiel mit WECHSELN:

    • Wenn in Zelle A1 steht: Wort Wort F(12345), wird nach Anwendung der Formel in B1: Wort Wort Test angezeigt.

  2. Beispiel mit VBA:

    • Wenn du das VBA-Makro ausführst, wird jede Zelle in Spalte A, die „F(#####)“ enthält, durch „Test“ ersetzt.

Tipps für Profis

  • Nutze die Replace-Funktion, um den Text effizienter in VBA zu ersetzen, da sie weniger Code benötigt und schneller ausgeführt wird.

  • Du kannst auch die Application.WorksheetFunction.Substitute-Methode verwenden, um Text in einer Zelle zu ersetzen, was besonders nützlich ist, wenn Du auf spezifische Zellen zugreifen möchtest.

FAQ: Häufige Fragen

1. Frage
Wie kann ich mehrere unterschiedliche Texte gleichzeitig ersetzen?
Antwort
Du kannst mehrere Replace-Befehle hintereinander im VBA-Makro nutzen oder die WECHSELN-Funktion mehrfach schachteln.

2. Frage
Funktioniert das auch in Excel Online?
Antwort
Die WECHSELN-Funktion funktioniert auch in Excel Online, jedoch sind VBA-Makros nicht verfügbar. Nutze stattdessen den Dialog für Suchen und Ersetzen.

Beliebteste Forumthreads (12 Monate)

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