Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein kleines Excel-Problem und komme gerade gar nicht weiter. Ich möchte gerne 2 Tabellen miteinander vergleichen und immer dann, wenn Name & Geburtsdatum - also beide Zellen - in beiden identisch sind, soll die Identifikationsnummer aus der einen Tabelle in die andere übernommen werden. Und ich sitzt grade völlig auf der Leitung und hoffe, ich konnte wenigstens mein Problem einigermaßen erklären... Wär super, wenn ihr Ideen für mich habt. Danke, Faith

HAllo Faith,

benutze bitte mal die Forumssuche oben rechts. Gebe dort z.B. das Wort "vergleichen" ein. Da zu dieser Art der Auswertung, so wie Du sie haben möchtest, hier manchmal mehrfach am Tag eine Frage gestellt und beantwortet wird, sollte in den Suchergebnissen auch eine Lösung für Dirch dabei sein.

Bei Fragen zu einer der Lösungen melde Dich wieder.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,
ich hatte mir die Antworten zu dem Thema schon durchgelesen, bin aber nicht richtig weitergekommen, weil ich nichts dazu gefunden habe, wie ich dann die Zuordnung der Identifikationsnummern hinbekomme. Ich werd aber nochmal weitersuchen & freue mich weiter über Tipps!
Danke,
Faith

hi Faith :-)

ich geb coros auf jedenfall recht ,doch hab was neues gebastelt :-))

auf jedenfall schnell :-)))

gruss nighty

Option Explicit
Sub Vergleich()
Call EventsOff
Dim tab1y As Long
Dim tab2y As Long
Dim tab3y As Long
Dim zaehler0 As Long
Dim zaehler1 As Long
Dim tab3x As Integer
tab1y = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
tab2y = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If tab1y > tab2y Then
tab3y = tab1y
Else
tab3y = tab2y
End If
Rem hier deine spalte der Identifikationsnummer ,entsprechend anzupassen,zur zeit 3
tab3x = 3
ReDim arr1(tab3y, tab3x) As Variant
ReDim arr2(tab3y, tab3x) As Variant
Sheets(2).Select
arr2() = Range(Cells(1, 1), Cells(tab3y, tab3x))
Sheets(1).Select
arr1() = Range(Cells(1, 1), Cells(tab3y, tab3x))
For zaehler0 = 2 To tab3y
For zaehler1 = 2 To tab3y
If arr1(zaehler0, 1) = arr2(zaehler1, 1) And arr1(zaehler0, 2) = arr2(zaehler1, 2) Then
arr1(zaehler0, tab3x) = arr2(zaehler1, tab3x)
End If
Next zaehler1
Next zaehler0
Range(Cells(1, 1), Cells(tab3y, tab3x)) = arr1()
Call EventsOn
End Sub
Public Sub EventsOff()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With
End Sub
Public Sub EventsOn()
With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

hi Faith :-)

verbundene zellen sind nicht erlaubt,tabellenschutz waere zu ergaenzen.

gruss nighty

DANKE!!!!
Viele Grüße
Faith

hi all :-)

gerade einen probelauf bei 36 000 000 000 zu vergleichenden zellen und 60 000 treffern nachgebaut :-)

hängt sich excel 2000 leider auf (keine rückmeldung)

da fragt man sich wozu es 65536 zeilen hat grrr

gruss nighty

• Neueste Inhalte aus mehreren Tabellen auslesen
• Suche in mehreren Tabellen
• 2 Tabellen vergleichen + Übereinstimmung auswerfen
• Tabellenvergleich
• SVerweis