VBA Suchen und Ersetzen

addi · 2025-12-02T12:22:31+01:00

Hallo Zusammen, vorab - leider kann ich keine Datei hochladen - dies ist im Firmennetzwerk gesperrt, daher versuche ich mein Anliegen zu erklären. Ich habe eine umfangreiche Excel Datei die ich bereits via VBA bearbeite. Nun möchte ich noch ein Bearbeitungsschritt hinzufügen. In der Spalte H stehen Artikelnummern. Zu ca. 80% sind diese Nummern auch korrekt. 20% müsste ich durch andere Nummern tauschen. Hierbei ist es so das es eine 1:1 Zuordnung gibt.... d.h. z.B. die Nummer 2071 muss durch 207108 ersetzt werden. Dieses Mapping betrifft ca. 300 Artikelnummern. Hier können auch immer wieder welche hinzukommen. Wie kann ich das am besten abbilden und dann auch als Suchen und Ersetzen in das VBA Coding einbinden? Vielen Dank vorab für Eure Unterstützung. Viele Grüße addi

aus meiner Sicht - sicher nicht
(und auch der Peter schreibt das nicht)
Zitat:
Um auf eine Mappe zugreifen zu können, brauche ich ihren kompletten Pfad - in unserem Fall verweisen wir auf die gleiche Mappe.
In den nächsten zwei Schritten wird die Verbindung zu ADODB mit unserer Mappe hergestellt.
Ich kann im Code an vielen Ecken
den Begriff conn(ect) entdecken
connect, was hier verbinden heißt
auch wenn man sich in' Hintern beißt
das ist was anderes als open
es steht auch nicht im Reiter droben
connect tut hier den Zugriff binden
manch einer mag das anders finden
denn ihm gelingt das Öffnen nicht
weshalb er dann von "Offen" spricht

Spaß beiseite - es geht doch eigentlich nur um die Alternative zur Aussage "Beachte, dass du in VBA nur mit geöffneten Dateien arbeiten kannst. Dh die Mappingtabelle müsste geöffnet werden, aber das kann auch im Makro passieren (Workbooks.Open)"

Dabei müsste man schauen, worauf es bei der Aufgabe ankommt und wie man das löst. Man könnte die Mapping-Daten per ADO direkt in ein Array einlesen, die Quelldaten ebenso, den Abgleich dann zwischen den Arrays führen, und das geänderte Quelldaten-Array zurückschreiben.
Eventuell wäre Dein Ansatz mit Replace, aber auf Basis eines per ADO eingelesenen Mapping-Arrays, die schnellere Variante. Ob man da einen zeitlichen Unterschied bemerkt, hängt dann von der Anzahl der Daten ab.
Eventuell könnte man übrigens die Mappingtabelle auch als csv speichern und die Daten sowohl per Öffnen, Importieren oder ADO verfügbar machen ... :-)

du könntest das ganze auch ohne VBA lösen.

1. erstelle wieder die Liste mit alt/neu in den Spalten AA und AB (Spalte AA: alte Nummer, Spalte AB: neue nummer
2. füge nach der Spalte H eine zusätzliche Spalte ein und fülle sie mit dieser Formel ab Zeile 2 (zeile 1 ist überschrift)

=XVerweis(H2;AA:AA;AB:AB;H2;0;1)

Arbeite dann mit dieser Spalte. Sie enthält die korrgierte Numme, wenn die Nummer nicht in der Änderungsliste auftaucht, wird die ursprüngliche Nummer aus Spalte H eingesetzt.
die Liste in AA:AB kannst du dann bei bedarf erweitern.

sollte es Performanceprobleme geben (Datei reagiert auf jede Eingabe träge mit langen berechnungzeiten) dann:
- sortiere die Liste AA:AB nach der ersten Spalte aufsteigend
- ändere im XVerweis den letzten Parameter von 1 auf 2.
Damit wird dann die Suchen in sortieren Listen angewendet und die ist wesentlich schneller als die Suche in unsortierten Listen.

Gruß Daniel

Forumthread: VBA Suchen und Ersetzen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Suchen und Ersetzen

Forumthread: VBA Suchen und Ersetzen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread