Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und ersetzen von bestimmten Zeichenfolgen

Forumthread: suchen und ersetzen von bestimmten Zeichenfolgen

suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 15:13:45
bestimmten
Hallo zusammen,
ich habe folgendes Problem:
In einer Tabelle soll nach der Zeichenfolge "BxxW;=G" gesucht werden und durch "BxxWG" ersetzt werden. Mein Problem besteht darin, dass die beiden Zeichen, die ich mit "xx" eingetragen habe unterschiedlche 2-stellige Zahlen sind. Verwende ich als Platzhalter "?" so werden beim ersetzen auch die beiden "?" eingesetzt. Das selbe passiert, wenn ich als Platzhalter "*" verwende. Auch hier wird nach dem Ersetzen "*" angezeigt.
Z.Zt. habe ich folgenden Befehl:
Cells.Replace What:="B*W;=G", Replacement:="B*WG", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Nochmal als Info: vor dem Ersetzen steht "B01W;=G" nachher sollte "B01WG" stehen.
Mit welchem Befehl würde das funktionieren?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 15:31:43
bestimmten
hi
hier ist mal ein Sub! weiß nich wie ich das mit ner function machen sollte

Sub replace()
Dim zelle As Range
For Each zelle In UsedRange
If Left(zelle.Value, 1) = "B" And Right(zelle.Value, 4) = "W;=G" Then
If IsNumeric(Mid(zelle.Value, 2, 2)) Then
zelle.Value = "B" & Mid(zelle.Value, 2, 2) & "WG"
Else
zelle.Value = "B" & Mid(zelle.Value, 2, 1) & "WG"
End If
End If
Next zelle
End Sub

benutze lieber "UsedRange" anstatt "Cells" weil dann nur die beschriebenen zellen überprüft werden => Wesentlich schneller
Viel spaß
Gruß a.gerken
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 15:33:01
bestimmten
hi versuchs mal hiermit

Sub replace()
Dim zelle As Range
For Each zelle In UsedRange
If Left(zelle.Value, 1) = "B" And Right(zelle.Value, 4) = "W;=G" Then
If IsNumeric(Mid(zelle.Value, 2, 2)) Then
zelle.Value = "B" & Mid(zelle.Value, 2, 2) & "WG"
Else
zelle.Value = "B" & Mid(zelle.Value, 2, 1) & "WG"
End If
End If
Next zelle
End Sub

Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 15:33:51
bestimmten
aaaah ich hasse es! srry wenn ich es jetzt ein wenig öfter gepostet hat liegt an meinem pc ^^
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 16:09:25
bestimmten
Hallo,
ich hab das Makro ausprobiert, aber leider bleibt es an der dritten Zeile hängen:
For Each zelle In UsedRange
Ich bekomme die Meldung "Code kann im Haltemodus nicht ausgeführt werden".
Was bedeutet das.
Gruß
Josef
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 15:36:00
bestimmten
Hallo,
dafür musst du jede Zelle einzeln untersuchen und entsprechend ersetzen.
Für folgendes Makro muss die Tabelle in A1 anfangen:

Sub ersetzen()
Dim iRows As Long, iCols As Integer, iRow As Long, iCol As Integer, vntArr, strTmp
iRows = ActiveSheet.UsedRange.Rows.Count
iCols = ActiveSheet.UsedRange.Columns.Count
vntArr = ActiveSheet.UsedRange
For iRow = 1 To iRows
For iCol = 1 To iCols
strTmp = vntArr(iRow, iCol)
If strTmp Like "B?W" Then vntArr(iRow, iCol) = "B" & Mid(strTmp, 2, 2) & "WG"
Next
Next
Range(Cells(1, 1), Cells(iRows, iCols)) = vntArr
End Sub

Gruß
Geist ist geil!
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 16:05:39
bestimmten
Hallo,
ich habs ausprobiert es funzt aber leider nicht. Beim Ausführen des Makro´s bleibt die Zeichenfolge leider so wie sie war. Es steht nachher auch immer noch "B01W;=G"
Gruß
Josef
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 16:12:11
bestimmten
Hallo,
steht etwa nicht nur B01W in der Zelle, sonder etwas wie blablaB01Wblabla?
Gruß
Geist ist geil!
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 16:18:26
bestimmten
Hallo,
die Zeichenfolge "B01W;=G" steht innerhalb einer längeren Zeichenfolge.
Ich will aber nur diese Zeichen auswählen in "B01WG" und das 01 kann auch 02,03,04 bzw. jede zweistellige Zahl sein.
Gruß
Josef
AW: suchen und ersetzen von bestimmten Zeichenfolgen
24.10.2005 16:25:54
bestimmten
Hallo,
jetzt hab ichs kapiert.

Sub ersetzen()
Dim iRows As Long, iCols As Byte, iRow As Long, iCol As Byte, vntArr, strTmp
Dim i As Integer
With ActiveSheet
With .UsedRange
iRows = .Rows.Count
iCols = .Columns.Count
End With
vntArr = .UsedRange
End With
For iRow = 1 To iRows
For iCol = 1 To iCols
strTmp = vntArr(iRow, iCol)
For i = 1 To Len(strTmp) - 6
If Mid(strTmp, i, 7) Like "B?W;=G" Then
vntArr(iRow, iCol) = Left(strTmp, i - 1) & "B" & Mid(strTmp, i + 1, 2) & "WG" & Mid(strTmp, i + 7, 255)
Exit For
End If
Next i
Next
Next
ActiveSheet.UsedRange = vntArr
End Sub

Gruß
Geist ist geil!
Anzeige
AW: suchen und ersetzen von bestimmten Zeichenfolgen
26.10.2005 06:48:48
bestimmten
Hallo,
danke für diese Info; jetzt funktioniert es!!
;

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
Anzeige
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
Anzeige
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
Anzeige
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
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
Anzeige
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
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
Mehrere Funde in string unterschiedlich ersetzen
guitarslinger

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in Text in Zellen, in dem an unterschiedlicher Position bis zu zwei Platzhalter eingefügt sind. Diese sehen so aus: {INSERTANS:77822X8X645}
Nun möchte ich den ersten Fund einer solchen Zeichenkette (Identifikation über die Klammer...
22.04.2009 14:20:08
Thread-ID: 1070362
4 Beiträge
Zeichenfolge im Dateinamen ersetzen
Dirk

Hallo Forumsmitglieder,
ich hoffe jemand hat (mal wieder) Lust mir zu helfen!!!!
Der unten teilweise aufgeführte Code benennt Bilddateien.
Der Code funzt soweit auch super. Leider gibt es Dateien, die haben im Namen Text, der noch mit "" ersetzt werden müsste.
Als Beispiel:
...
11.05.2009 15:54:39
Thread-ID: 1074392
6 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeichenfolgen in Excel suchen und ersetzen

Schritt-für-Schritt-Anleitung

Um in Excel eine bestimmte Zeichenfolge zu suchen und durch eine andere zu ersetzen, kannst du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Projektfenster mit der rechten Maustaste auf "VBAProject (deine Arbeitsmappe)" und wähle Einfügen -> Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub ersetzen()
   Dim iRows As Long, iCols As Byte, iRow As Long, iCol As Byte, vntArr, strTmp
   Dim i As Integer
   With ActiveSheet
       With .UsedRange
           iRows = .Rows.Count
           iCols = .Columns.Count
       End With
       vntArr = .UsedRange
   End With
   For iRow = 1 To iRows
       For iCol = 1 To iCols
           strTmp = vntArr(iRow, iCol)
           For i = 1 To Len(strTmp) - 6
               If Mid(strTmp, i, 7) Like "B?W;=G" Then
                   vntArr(iRow, iCol) = Left(strTmp, i - 1) & "B" & Mid(strTmp, i + 1, 2) & "WG" & Mid(strTmp, i + 7, 255)
                   Exit For
               End If
           Next i
       Next
   Next
   ActiveSheet.UsedRange = vntArr
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle ersetzen aus der Liste und klicke auf Ausführen.

Mit diesem Makro werden alle Vorkommen der Zeichenfolge „BxxW;=G“ durch „BxxWG“ ersetzt, wobei „xx“ für zweistellige Zahlen steht.

Häufige Fehler und Lösungen

  • Fehler: "Code kann im Haltemodus nicht ausgeführt werden"
    Lösung: Stelle sicher, dass keine Zelle im Bearbeitungsmodus ist. Beende alle Bearbeitungen und probiere es erneut.

  • Fehler: Die Zeichenfolge bleibt unverändert
    Lösung: Überprüfe, ob die gesuchte Zeichenfolge innerhalb anderer Texte steht. Das Makro sucht nur nach exakten Übereinstimmungen.

Alternative Methoden

  1. Excel-Funktion Suchen und Ersetzen: Du kannst auch die eingebaute Funktion Suchen & Ersetzen verwenden, indem du STRG + H drückst. Diese Methode ist jedoch weniger flexibel als das VBA-Makro, wenn es um Platzhalter geht.

  2. Formeln verwenden: Du kannst die Funktion WECHSELN verwenden, um bestimmte Textteile zu ersetzen, z.B.:

    =WECHSELN(A1, "B01W;=G", "B01WG")

Praktische Beispiele

  1. VBA-Makro zur Ersetzung mehrerer Werte: Wenn du mehrere Zeichenfolgen ersetzen möchtest, kannst du das Makro entsprechend erweitern, indem du zusätzliche If-Bedingungen hinzufügst.

    If strTmp Like "B?W;=G" Then
   vntArr(iRow, iCol) = Left(strTmp, i - 1) & "B" & Mid(strTmp, i + 1, 2) & "WG"
ElseIf strTmp Like "C?W;=G" Then
   vntArr(iRow, iCol) = Left(strTmp, i - 1) & "C" & Mid(strTmp, i + 1, 2) & "WG"
End If

  2. Ersetzen von Platzhaltern: Wenn du Platzhalter verwenden möchtest, um z.B. das erste Zeichen zu ersetzen, kannst du Like in Kombination mit Mid verwenden.

Tipps für Profis

  • Benutze UsedRange: Dies sorgt dafür, dass nur die tatsächlich verwendeten Zellen durchsucht werden, was die Ausführungsgeschwindigkeit erhöht.
  • Debugging: Setze Haltepunkte im VBA-Code, um den Ablauf zu überprüfen und Probleme zu identifizieren.
  • Wildcards: Nutze Wildcards wie ? und *, um flexiblere Suchen durchzuführen, jedoch mit Bedacht, um unerwünschte Ersetzungen zu vermeiden.

FAQ: Häufige Fragen

1. Was sind Wildcards in Excel?
Wildcards sind Platzhalter, die du in Funktionen wie Suchen & Ersetzen verwenden kannst. ? steht für ein beliebiges einzelnes Zeichen und * für eine beliebige Anzahl von Zeichen.

2. Kann ich das Makro anpassen, um andere Zeichenfolgen zu ersetzen?
Ja, du kannst die Bedingungen im VBA-Code anpassen, um andere Zeichenfolgen zu suchen und zu ersetzen.

3. Funktioniert das auch in Excel Online?
Leider ist VBA nicht in Excel Online verfügbar. Du musst die Desktop-Version verwenden, um VBA-Makros auszuführen.

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