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

suchen und ersetzten

Forumthread: suchen und ersetzten

suchen und ersetzten
09.10.2018 20:28:35
Jens
Hallo zusammen,
ich suche nach einen Makro oder VBA um in einer Arbeitsmappe mit ca. 250 Tabellenblätter "alte" Nummern durch "neue" zu ersetzten.
Im Tabellenblatt "umwandeln" befindet sich in Spalte A, die zu suchende alte Nummer.
Im gleichen Tabellenblatt in Spalte B befindet sich die neue zu ersetztende Nummer.
Könnte mir jemand hier helfen?
Vielen Dank im vorraus.
Gruß Jens
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzten
09.10.2018 20:40:05
onur
Poste mal eine Beispieldatei mit "umwandeln" und 2-3 Tabellenblättern, damit man sieht, wie die anderen Blätter aufgebaut sind.
AW: suchen und ersetzten
09.10.2018 20:45:13
Sepp
Hallo Jens,
ungetestet.
Sub replaceNumbers()
  Dim varNumber As Variant
  Dim objWS As Worksheet
  Dim lngIndex As Long

  On Error GoTo ErrorHandler
  With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
  End With
  With Sheets("umwandeln")
    varNumber = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
  End With

  For Each objWS In ThisWorkbook.Worksheets
    If objWS.Name <> "umwandeln" Then
      For lngIndex = 1 To Ubound(varNumber, 1)
        If IsNumeric(varNumber(lngIndex, 1)) Then
          objWS.Cells.Replace What:=varNumber(lngIndex, 1), Replacement:=varNumber(lngIndex, 2), _
            LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
        End If
      Next
    End If
  Next

ErrorHandler:
  If Err.Number <> 0 Then MsgBox Err.Description
  With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
  End With
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: suchen und ersetzten
09.10.2018 21:05:12
Jens
Hallo Sepp,
vielen Dank für deine schnelle Antwort. Leider bekomme ich eine Fehlermeldung.
Ich habe ein Beispiel vom Aufbau der Arbeitsmappe hochgeladen...
Gruß Jens
AW: suchen und ersetzten
09.10.2018 21:28:42
Sepp
Hallo Jens,
wie lautet den die Fehlermeldung?
Bei mir läuft es ohne Probleme, habe nur einen kleinen Excel-Bug "umschifft".
Sub replaceNumbers()
  Dim varNumber As Variant
  Dim objWS As Worksheet, rng As Range
  Dim lngIndex As Long

  On Error GoTo ErrorHandler
  With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
  End With
  With Sheets("umwandeln")
    Set rng = .Cells.Find("*")
    varNumber = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
  End With

  For Each objWS In ThisWorkbook.Worksheets
    If objWS.Name <> "umwandeln" Then
      For lngIndex = 1 To Ubound(varNumber, 1)
        If IsNumeric(varNumber(lngIndex, 1)) Then
          objWS.Cells.Replace What:=varNumber(lngIndex, 1), Replacement:=varNumber(lngIndex, 2), _
            LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
        End If
      Next
    End If
  Next

ErrorHandler:
  If Err.Number <> 0 Then MsgBox Err.Description
  With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
  End With
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: suchen und ersetzten
09.10.2018 21:39:53
Sepp
Hallo Jens,
dann versuche es so.
Sub replaceNumbers()
  Dim varNumber As Variant
  Dim objWS As Worksheet, rng As Range
  Dim lngIndex As Long

  On Error GoTo ErrorHandler
  With Application
    .Calculation = xlCalculationManual
    .EnableEvents = False
  End With
  With Sheets("umwandeln")
    Set rng = .Cells.Find("*")
    varNumber = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
  End With

  For Each objWS In ThisWorkbook.Worksheets
    If objWS.Name <> "umwandeln" Then
      For lngIndex = 1 To Ubound(varNumber, 1)
        If IsNumeric(varNumber(lngIndex, 1)) Then
          objWS.Cells.Replace What:=varNumber(lngIndex, 1), Replacement:=varNumber(lngIndex, 2), _
            LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False
        End If
      Next
    End If
  Next

ErrorHandler:
  If Err.Number <> 0 Then MsgBox Err.Description
  With Application
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
  End With
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
Nein hast du nicht ..
09.10.2018 21:15:07
Werner
Hallo Jens,
... zumindest ist nichts in deinem Beitrag.
Du musst den Link, der von der Forensoftware erstellt wird kopieren und in deinen Beitrag einfügen.
Gruß Werner
AW: Nein hast du nicht ..
09.10.2018 21:18:50
Jens
Hallo Werner,
ist bereits geschehen... sorry
AW: suchen und ersetzten
10.10.2018 08:10:27
Jens
Hallo Sepp,
es funktioniert einwandfrei. Zuhause war mein Excel wohl zu alt. Sorry...
Vielen lieben Dank!
Eine Sache habe ich noch. In den alten und neuen Nr. können sich auch Buchstaben befinden.
Hier funktioniert die Ersetzung leider nicht. Vielleicht könntest du nochmal den Code ansehen?
Gruß Jens
Anzeige
AW: suchen und ersetzten
10.10.2018 17:19:57
onur
Sepp?
Mache einfach aus 
Dim AltNeu() As Long

das: 
Dim AltNeu()

AW: suchen und ersetzten
10.10.2018 15:11:07
Peter
Hallo Jens,
hier noche eine Lösung.
Private Sub CommandButton1_Click()
Dim Nrt As Integer, i As Integer, e As Object
For Nrt = 2 To Sheets("Umwandeln").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ThisWorkbook.Worksheets.Count
For Each e In Sheets(i).Range("A1:A" & Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row)
If e.Value = Sheets("Umwandeln").Cells(Nrt, 1).Value Then
e.Value = Sheets("Umwandeln").Cells(Nrt, 2).Value
End If
Next e
Next i
Next Nrt
End Sub
Code einem Button auf Tabelle"Umwandeln" eingeben.
Vieleicht kannst Du damit was anfangen.
Gruß
Peter (hpo)
Anzeige
AW: suchen und ersetzten
10.10.2018 16:34:45
Jens
Hallo Peter,
der Code funktioniert mit Zahlen, aber nicht mit Buchstaben.
Die in Spalte A (alte Nummer) können Buchstaben / Zahlenkombinationen enhalten.
Beispiel :
Spalte A (alt) = BK505050
Spalte B (Neu) = 1007070
Vielen Dank für deine Bemühungen.
Gruß Jens
AW: suchen und ersetzten
11.10.2018 12:04:13
Peter
Hallo Jens,
probier mal diesen Code:
Private Sub CommandButton1_Click()
Dim Nrt As Integer, i As Integer, e As Object
For Nrt = 2 To Sheets("Umwandeln").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ThisWorkbook.Worksheets.Count
For Each e In Sheets(i).Range("A1:A" & Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row)
If CStr(e.Value) = CStr(Sheets("Umwandeln").Cells(Nrt, 1).Value) Then
e.Value = Sheets("Umwandeln").Cells(Nrt, 2).Value
End If
Next e
Next i
Next Nrt
End Sub
Viele Grüße
Peter (hpo)
Anzeige
AW: suchen und ersetzten
11.10.2018 12:36:39
jens
Hallo Peter,
funktioniert leider nicht.
Der Code wandelt nur reine zahlen um. Nicht in verbindung mit Buchstaben.
Beispiel war: Alt = BK505050
Danke nochmals
Gruß Jens
AW: suchen und ersetzten
11.10.2018 12:42:51
Peter
Hallo Jens,
dann lade doch mal einen Teil deiner original Datei hoch.
Ich habe den Code mit Buchstaben und Zahlenkombinationen ausprobiert.
Der Code hat sowohl nur Zahlen als auch Zahlen-Buchstabenkombinationen einwandfrei geändert.
Um hier wieter helfen zu können wird dann doch ein Teil der Originaldatei benötigt.
Viele Grüße
Peter (hpo)
Anzeige
AW: suchen und ersetzten
11.10.2018 20:14:47
Jens
Hallo Peter,
die Originaldatei kann ich leider nicht zur Verfügung stellen. Aber hier findest du
eine gekürze Form: https://www.herber.de/bbs/user/124575.xls
Kann man den Code umschreiben, so das er nach ein Text sucht und nicht nach Zahl?
Im Blatt = "umwandeln" ist in Spalte A die alte Nr.
in Spalte B die dazugehörige neue Nr.
In Blatt Ford / BMW muss in Spalte A dieses geändert werden.
Danke nochmal.
Gruß Jens
Anzeige
AW: suchen und ersetzten
15.10.2018 12:44:23
Peter
Hallo Jens,
hier Deine Datei in dem ich nur meinen Code eingefügt habe.
Bei mir werden alle Nummern mit und ohne Buchstaben durch die neuen Nummer ersetzt.
https://www.herber.de/bbs/user/124627.xls
Viele Grüße
Peter (hpo)
Anzeige
AW: suchen und ersetzten
15.10.2018 19:13:16
Jens
Hallo Peter,
ich habs hin bekommen.
Vielen vielen Dank
Gruß Jens

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
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
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
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
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
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
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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