Werte vergleichen und austauschen

Hallo Leute!
Ich habe folgendes Problem:
Ich habe ein Feld id und ein Feld Material (also jedes Material hat seine id)
Nun hab ich aber in meiner Datenbank eine ganz andere id für jedes Material... Mein Problem besteht darin, dass ich jetzt in den Datensätzen (ca 7000) die ursprüngliche id durch die id meiner Datenbank ersetzen muss...
Es geht zwar mit suchen&ersetzen per Hand aber mir gehts ja um Zeitersparnis....
Ich dachte mir dass das per VBA geht, aber meine Kenntnisse reichen dazu nicht wirklich aus oder ich steh auf der Leitung ;)
Meine Excel-Tabelle sieht jetzt wie folgt aus:
id_alt
1
2
3
4
id_neu
10002
39
48
27
material
beton
PVC
PE
GG
id_datensatz
4
4
2
3
natürlich nebeneinander... :-/
Ich hoffe ihr könnt mir folgen....
Wäre echt glücklich wenn mir jemand helfen könnte....
LG Lisa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Tauschen() On Error GoTo Fehler Dim TB1, i% Dim SP1%, SP2%, ZE&, LR& Dim IdAlt$, IdNeu$ Application.ScreenUpdating = False Set TB1 = Sheets("material") 'Tabelle mit den Austauschdaten SP1 = 1 'Spalte A' aus Tabelle1 SP2 = 9 'Spalte I ZE = 2 'Übrschrift beachten LR = TB1.Cells(Rows.Count, SP1).End(xlUp).Row 'letzte Zeile der Spalte For i = ZE To LR IdAlt = TB1.Cells(i, SP1) IdNeu = TB1.Cells(i, SP1 + 1) TB1.Columns(SP2).Replace What:=IdAlt, Replacement:=IdNeu, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hallo nochmal
OK, das geht dann so nicht.
- die 2 wird im 2.Durchlauf durch die 12 getauscht.
- in einem späteren Durchlauf wird dann die neu gesetzte 12 durch die 93 getauscht.
so gehts dann aber

Sub Tauschen()
On Error GoTo Fehler
Dim TB1, i%
Dim SP1%, SP2%, ZE&, LR&
Dim IdAlt$, IdNeu$
Application.ScreenUpdating = False
Set TB1 = Sheets("material") 'Tabelle mit den Austauschdaten
SP1 = 1 'Spalte A' aus Tabelle1
SP2 = 9 'Spalte I
ZE = 2 'Übrschrift beachten
LR = TB1.Cells(Rows.Count, SP1).End(xlUp).Row 'letzte Zeile der Spalte
For i = ZE To LR
IdAlt = TB1.Cells(i, SP1)
IdNeu = "N#" & TB1.Cells(i, SP1 + 1)
TB1.Columns(SP2).Replace What:=IdAlt, Replacement:=IdNeu, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
TB1.Columns(SP2).Replace What:="N#", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Sub Tauschen() On Error GoTo Fehler Dim TB1, TB2, i% Dim SP1%, SP2%, ZE&, LR& Dim IdAlt$, IdNeu$ Application.ScreenUpdating = False Set TB1 = Sheets("Tabelle1") 'Tabelle mit den Austauschdaten Set TB2 = Sheets("Tabelle2") 'Tabelle mit der Datenbank SP1 = 1 'Spalte A' aus Tabelle1 SP2 = 1 'Spalte A' aus Tabelle2 ZE = 2 'Übrschrift beachten LR = TB1.Cells(Rows.Count, SP1).End(xlUp).Row 'letzte Zeile der Spalte For i = ZE To LR IdAlt = TB1.Cells(i, SP1) IdNeu = TB1.Cells(i, SP1 + 1) TB2.Columns(SP2).Replace What:=IdAlt, Replacement:=IdNeu, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J
1	mat_id alt	mat_id	material						mat_id	mat_neu
2	1	10002	STZ						3	51
3	2	12	B						3	51
4	3	51	PVC						3	51
5	4	79	GG						3	51
6	5	5	AZ						3	51
7	6	80	GGG						3	51
8	7	10005	BFR						3	51
9	8	78	GFK						3	51
10	9	88	PEHD						3	51
11	11	91	PP						3	51
12	12	93	PVCU						2	12
13	13	113	SB						2	12

verwendete Formeln
Zelle	Formel	Bereich
J2	=SVERWEIS(I2;A:B;2;0)

Werte vergleichen und austauschen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte vergleichen und austauschen

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

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread