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
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 |
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