Supportnet / Forum / Tabellenkalkulation
Tabellenvergleich
Frage
Hallo, folgendes Problem!
Habe ein Excelblatt "Handynummer" mit Spalte A und Spalte B befüllt.
Habe weiters ein Excelblatt"Namen" mit Spalte A und Spalte B.
So, nun will ich die 2 Excelblätter auf die Kombination Spalte A + B auf Gleichheit prüfen!
Das heißt wenn in beiden Excelblättern das gleiche in den Spalten A +B stehen ist dies dann ein Treffer und soll dann im Excelblatt "Treffer" aufscheienen.
Wie mach ich das am Besten?
Hab es bereits mit SVERWEIS probiert, bekomme es aber nicht so hin. Muss ich einen VBA Code erstellen?
Falls Ja, kann mir da jemand ein wenig behilflich sein, da ich programmiermässig nicht so gut drauf bin!
DANKE IM VORAUS FÜR EUER BEMÜHEN!
Antwort 1 von coros
Moin ,
von mir kommt, wer mich hier im SN kennt weiß dass sicherlich schon, eine VBA Lösung. Kopiere nachfolgendes Makro in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Bei obigem Makro werden die Spalten A und B in den Blättern "Handydaten" und "Namen" verglichen. Bei Übereinstimmung werden die entsprechenden Daten in das Blatt "Treffer" jeweils in die erste freie Zeile kopiert.
Ich hoffe, Du kommst klar. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
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.
von mir kommt, wer mich hier im SN kennt weiß dass sicherlich schon, eine VBA Lösung. Kopiere nachfolgendes Makro in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Sub Auf_Duplikate_prüfen_und_kopieren()
Dim Wiederholungen_Tab1 As Long, Wiederholungen_Tab2 As Long, Zeile_Tab3 As Long
For Wiederholungen_Tab1 = 1 To Sheets("Handynummer").Range("A65536").End(xlUp).Row
For Wiederholungen_Tab2 = 1 To Sheets("Namen").Range("A65536").End(xlUp).Row
If Sheets("Handynummer").Cells(Wiederholungen_Tab1, 1) = _
Sheets("Namen").Cells(Wiederholungen_Tab2, 1) _
And _
Sheets("Handynummer").Cells(Wiederholungen_Tab1, 2) = _
Sheets("Namen").Cells(Wiederholungen_Tab2, 2) Then
Zeile_Tab3 = Sheets("Treffer").Range("A65536").End(xlUp).Offset(1, 0).Row
Rows(Wiederholungen_Tab1).Copy Sheets("Treffer").Cells(Zeile_Tab3, 1)
End If
Next
Next
End Sub
Bei obigem Makro werden die Spalten A und B in den Blättern "Handydaten" und "Namen" verglichen. Bei Übereinstimmung werden die entsprechenden Daten in das Blatt "Treffer" jeweils in die erste freie Zeile kopiert.
Ich hoffe, Du kommst klar. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
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.
Antwort 2 von donelonzo
SUPER!
Hat funktioniert!
VIELEN DANK NOCHMALS!
LG
Don
Hat funktioniert!
VIELEN DANK NOCHMALS!
LG
Don
Antwort 3 von coros
Hi Don,
freut mich, dass Du mit der Lösung etwas anfangen konntest. Danke Dir auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
freut mich, dass Du mit der Lösung etwas anfangen konntest. Danke Dir auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.

