Tabelle mit Werte füllen

[ich73]

Hallo Zusammen 

ich verzweifle gerade an Excel.

Ich habe folgenden 2 Tabellen.

Tabelle 1 :

A                   B
 

492013333    Müller
4940888        Meier

Tabelle 2:

A                   B
49201            Essen
4940              Hamburg


Jetzt benötige ich ich Tabelle 1 als Ergebnis den Ort.


Tabelle 1:

A                   B              C
 
492013333    Müller         Essen
4940888        Meier         Hamburg


Ich benötige also eine Abfrage die schaut ob der wert "49201" aus Tabelle 2  - in tabelle 1 in der Spalte A enthalten ist , wenn ja dann schreibe in Tabelle 1 Essen


Hat einer eine Idee ?

Danke

[schauan]

Hallöchen,


im Prinzip so. Du musst Dir nur was einfallen lassen, nach welcher Regel Du die Angabe kürzt und wie man das dann in einer Formel umsetzen kann.
Im Moment sieht es so aus, als ob Du die mehrfach vorhandenen Zahlen am Ende entfernst, aber das kann sicher keine allgemeine Regel sein ...

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F
1	1234	Anton	schnell		123	schnell
2	23456	Berta	langsam		234	langsam

Zelle	Formel
C1	=SVERWEIS(--LINKS(A1;3);$E$1:$F$2;2;FALSCH)
C2	=SVERWEIS(--LINKS(A2;3);$E$1:$F$2;2;FALSCH)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[Gast 123]

Hallo

ich habe noch eine Makro Version im Angebot. Gesucht wird von Tabelle2 (=kürze Nummer) in Tabelle1. Jeder gefundenen Nummer wird der Ort und zur Kontrolle die Nummer zugeordnet.  Ob das immer zum Namen passt weiss ich nicht??

mfg Gast 123

Code:

Option Explicit
Dim AC As Range, lz2 As Long
Dim rFind As Range, Adr1 As String

Sub Tabellen_durchsuchen()
Dim Tb1 As Worksheet, lz1 As Long
Set Tb1 = Worksheets("Tabelle1")

With Worksheets("Tabelle2")
     'LastZell in Tabelle 1+2 ermitteln
     lz2 = .Cells(Rows.Count, 1).End(xlUp).Row
     lz2 = Tb1.Cells(Rows.Count, 1).End(xlUp).Row
     'Tabelle1 Spalte C+D immer löschen
     Tb1.Range("C2:D" & lz1).ClearContents
    
     'Schleife in Tabelle2 (kürzere Nummer)
     For Each AC In .Range("A2:A" & lz2)
        Set rFind = Tb1.Columns(1).Find(What:=AC, After:=[a1], LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchDirection:=xlNext, MatchCase:=False)

        If Not rFind Is Nothing Then
           Adr1 = rFind.Address:  c = Len(AC)
           Do
              If CLng(Left(rFind, c)) = CLng(AC) Then
                 rFind.Offset(0, 2) = AC.Cells(1, 2)
                 rFind.Offset(0, 3) = AC.Value
              End If
              Set rFind = Tb1.Columns(1).FindNext(rFind)
           Loop Until rFind.Address = Adr1
        End If
     Next AC
End With
End Sub