Tabellen vergleichen

Forumthread: Tabellen vergleichen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellen vergleichen

21.07.2007 13:24:00

horch20v

Hallo an alle,
habe folgendes Problem:
Ich habe in der Tabelle 1 Postleitzahlenbereiche in Spalte 1 (vonPLZ)und 2(bisPLZ) und in der Spalte 3(NAME) den dazugehörigen Ortsteil.
In der Tabelle 2 habe ich in Spalte 1(PLZ) nur Postleitzahlen und möchte, daß in Spalte 2 (Ortsteil)die dazugehörigen Ortsteile aus der Tabelle 1 eingetragen werden.
Wie bekomme ich das hin?
Vielen Dank vorab
Tabelle 1
vonPLZ bisPLZ Name
30000 30050 Hannover City
30061 30100 Hannover Nord
30101 30300 Hannover Süd
ERGEBNIS
Tabelle2
PLZ Ortsteil
30001 Hannover City
30010 Hannover City
30150 Hannover Süd
30067 Hannover Nord
30152 Hannover Süd
30010 Hannover City

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellen vergleichen

21.07.2007 13:49:38

Chaos
AW: Tabellen vergleichen

21.07.2007 15:16:00

horch20v
AW: Tabellen vergleichen

21.07.2007 15:23:50

Chaos

AW: Tabellen vergleichen

21.07.2007 13:49:38

Chaos

Servus,
so geht's:


Sub Postleitzahl()
Dim r As Integer, z As Integer, r1 As Integer, z1 As Integer
r = Sheets(2).Range("A65536").End(xlUp).Offset(0, 0).Row
r1 = Sheets(1).Range("A65536").End(xlUp).Offset(0, 0).Row
For z = 2 To r Step 1
For z1 = 2 To r1 Step 1
If Sheets(2).Cells(z, 1).Value >= Sheets(1).Cells(z1, 1).Value And Sheets(2).Cells(z, 1) _
.Value

Gruß
Chaos