Automatisches suche und Ersetzen über großen Bereich

28/09/2007 - 08:43 von stefan huber | Report spam
Hallo,

ich suche nach einer Lösung für folgendes Problem. Excel 2007.

Auf Blatt 1 habe ich in A1:A500 die Zahlen von 1-500 stehen. In B1:B500
stehen Adressen (jeweils unterschiedliche, die zu der jeweiligen Zahl in
1 gehören. Also 1= Straße A, 2= Straße b, etc.. Jede Adresse und jede
Zahl kommen nur einmal vor.)

Auf Blatt 2 habe ich nun von A1:A30000 einen Datensatz mit Zahlen von 1-500.

Ich suche nun nach einer Lösung, die automatisch auf Blatt 2 in
A1:A30000 alle 1 durch B1, aller 2 durch B2, etc. ersetzt

Kann mir da jemand helfen?

danke stefan
 

Lesen sie die antworten

#1 Christopher
28/09/2007 - 09:28 | Warnen spam
On 28 Sep., 08:43, stefan huber wrote:
Hallo,

ich suche nach einer Lösung für folgendes Problem. Excel 2007.

Auf Blatt 1 habe ich in A1:A500 die Zahlen von 1-500 stehen. In B1:B500
stehen Adressen (jeweils unterschiedliche, die zu der jeweiligen Zahl in
1 gehören. Also 1= Straße A, 2= Straße b, etc.. Jede Adresse und jede
Zahl kommen nur einmal vor.)

Auf Blatt 2 habe ich nun von A1:A30000 einen Datensatz mit Zahlen von 1-500.

Ich suche nun nach einer Lösung, die automatisch auf Blatt 2 in
A1:A30000 alle 1 durch B1, aller 2 durch B2, etc. ersetzt

Kann mir da jemand helfen?

danke stefan



Hallo Stefan!

in VBA gibt es die funktion REPLACE() damit müsste es gehen.
Replace(expression, find, replace[, start[, count[, compare]]])



und halt For Schleifen, die deine Reihen abklappert, konkret müsste
das so àhnlich aussehen:

Dim n As Integer
Dim var As Variant
For n = 1 To 30000
For var = 1 To 500
Worksheets(2).Cells(n, 1).Value Replace(Worksheets(2).Cells(n, 1).Value, var, Worksheets(1).Cells(var,
2))
Next
Next

Habs jetzt nicht ausprobiert, ich hoffe, das funktioniert, vielleicht
musst du var als String definieren
Hoffe, ich konnte helfen,
Chris

Ähnliche fragen