Artikelnummern austauschen

Forumthread: Artikelnummern austauschen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Artikelnummern austauschen

13.10.2006 11:31:11

Andreas

Hallo zusammen,
ich möchte in einem großen Tabellenblatt Artikelnummern austauschen, die sich an verschiedenen Stellen befinden. Dazu hab ich eine Liste mit 2 Spalten "alte Nummer" und "neue Nummer". Der Austausch mit "suchen-ersetzen" wäre zu mühsam.
Im Archiv hab ich nichts brauchbares gefunden. Hat jemand eine Tipp für micht?
Danke
Andreas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Artikelnummern austauschen

13.10.2006 11:42:43

UweD
AW: Artikelnummern austauschen

13.10.2006 11:59:02

Andreas

AW: Artikelnummern austauschen

13.10.2006 11:42:43

UweD

Hallo
suchen /ersetzen schon, aber per Macro


Sub MachNeu()
Dim TB1, TB2, LR&, Neu$, Alt$, i&
Set TB1 = Sheets("Tabelle1") 'Blatt mit AltNeu
Set TB2 = Sheets("Tabelle2") 'Blatt in dem die Daten getauscht werden sollen
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For i = 2 To LR
Alt = TB1.Cells(i, 1) 'alte Artikelnummer aus Spalte A
Neu = TB1.Cells(i, 2) 'neue Artikelnummer aus Spalte B
TB2.UsedRange.Replace What:=Alt, Replacement:=Neu, LookAt:=xlWhole, _
SearchOrder:=xlByRows
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)

AW: Artikelnummern austauschen

13.10.2006 11:59:02

Andreas

Hallo UweD,
Danke für den Tipp, hat super funktioniert.
Gruß
Andreas