Suchen in einer Tabelle, finden in der zweiten und Wert von dort auslesen

06/04/2009 - 13:23 von Kay | Report spam
Hallo zusammen,

ich habe zwei Tabellen in zwei Tabs:
T1
Nachname Vorname Ort Strasse

T2
Nachname Kinder Job Schuhgroesse

Ich möchte jetzt folgendes:
Ich will in jeder Zeile aus T1 den Nachnamen nehmen, schauen ob der in
T2 vorhanden ist.
Wenn ja, soll er die Schuhgrösse in T3 schreiben, mit dem Nachnamen.
Geht das nur mit VBA oder auch mit built-in Funktionen?

Danke im Voraus.
Kay
 

Lesen sie die antworten

#1 Eberhard Funke
06/04/2009 - 15:51 | Warnen spam
Am Mon, 6 Apr 2009 04:23:04 -0700 (PDT) schrieb Kay:

ich habe zwei Tabellen in zwei Tabs:
T1
Nachname Vorname Ort Strasse

T2
Nachname Kinder Job Schuhgroesse

Ich möchte jetzt folgendes:
Ich will in jeder Zeile aus T1 den Nachnamen nehmen, schauen ob der in
T2 vorhanden ist.
Wenn ja, soll er die Schuhgrösse in T3 schreiben, mit dem Nachnamen.
Geht das nur mit VBA oder auch mit built-in Funktionen?




Hallo Kay,

mit Tabellenfunktionen und etwas Geduld geht es vermutlich auch.

Mit VBA:

Sub Kay()
Dim lngI As Long, lngK As Long, lngM As Long
Dim rng1 As Range, rng2 As Range, rngZelle As Range
Dim rngFund As Range

Set rng1 = Sheets("Tabelle1").Range("A2:A" & _
Sheets("Tabelle1").UsedRange.Rows.Count)
Set rng2 = Sheets("Tabelle2").Range("A2:A" & _
Sheets("Tabelle2").UsedRange.Rows.Count)

lngI = 1

For Each rngZelle In rng1
Set rngFund = rng2.Find(what:=rngZelle.Value, lookat:=xlWhole)
If Not rngFund Is Nothing Then
lngI = lngI + 1
With Sheets("Tabelle3")
.Range("A" & lngI).Value = rngZelle.Value
.Range("B" & lngI).Value = rngFund.Offset(0, 3).Value
End With
End If
Next
End Sub


Annahme: in allen drei Tabellen stehen in Zeile 1 Überschriften.

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen