Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sverweis mit mehreren Werten und VBA

Sverweis mit mehreren Werten und VBA
11.07.2008 16:17:00
Andreas
Hallo,
ich habe zwei tabellen.
Tabelle 1 Spalte A Ortsnamen Spalte B Postleitzahlen. Achtung Mehrer Ortsnamen zu einer Postleitzahl möglich.
Tabelle 2 Spalte A Auswahl bestimmter Postleitzahlen.
Nun würde ich gerne in Tabelle 3 die Komplette Zeile aus Tabelle 1 kopieren, wo jeweils die Postleitzahl passt.
BSP:
Tab1
A B C
Musterstadt 12345 text
Musterdorf 12345 text
Stadtmuster 54321 text
Dorfmuster 99999 text
Tab2
A
12345
99999
Tab3
Soll werden
A B C
Musterstadt 12345 text
Musterdorf 12345 text
Dorfmuster 99999 text
Hab es schon mit der Suchfunktion versucht, aber leider nix passendes gefunden.
Ich hoffe es kann mir jemand helfen.
Andreas Müller
PS: leider werden die Freizeichen gelöscht, hoffe ihr versteht es auch.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis mit mehreren Werten und VBA
11.07.2008 20:01:00
Backowe
Hi,
probiere es mal so!
Sub BereicheKopieren()
Dim i As Long, j As Long, z As Long
z = 2
For j = 2 To Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
    If Sheets("Tabelle2").Cells(j, 1).Value = Sheets("Tabelle1").Cells(i, 2).Value Then
      Sheets("Tabelle1").Cells(i, 1).EntireRow.Copy _
        Destination:=Sheets("Tabelle3").Cells(z, 1)
        z = z + 1
    End If
  Next
Next
End Sub
Gruss Jürgen
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige