Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.11.2023 14:02:49
Hallo Piet Finde keine Lösung zu meinem Problem
30.11.2023 13:45:40
Zahlenfolgen gruppieren
30.11.2023 13:10:14
SVERWEIS verschachteln
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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

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!
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!!

300 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
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
Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige