Supportnet / Forum / WindowsNT
Abgleich zweier Spalten auf gleiche Namen (Nachname, Vorname)
Frage
Ich möchte zwei Spalten A und B jeweils mit Nachname, Vorname auf gleiche Kunden (Nachname, Vorname) abgleichen. Spalte A hat 40.000 Kunden, Spalte B hat 13.000 Kunden. Möchte also wissen, welche Kunden aus Spalte B in A
enthalten sind.
Kann ein Zelle überhaupt mit Nachname, Vorname aufgebaut sein?
Schon mal vielen Dank!
Antwort 1 von Saarbauer
Hallo,
das machst du bestimmt nicht mit Windows NT, sondern in einer Datenbank oder Tabellenkalkulation.
Womit soll der Datenabgleich laufen?
Gruß
Helmut
das machst du bestimmt nicht mit Windows NT, sondern in einer Datenbank oder Tabellenkalkulation.
Womit soll der Datenabgleich laufen?
Gruß
Helmut
Antwort 2 von goldfisch24
Hallo Helmut,
klar... das ganze sollte in Excel funktionieren...
...geht das überhaupt....
Gruß
goldfisch24
klar... das ganze sollte in Excel funktionieren...
...geht das überhaupt....
Gruß
goldfisch24
Antwort 3 von Saarbauer
Hallo,
habe so ein Problem für jemand mit Excel gelöst indem in einer Tabelle die doppelten gelöscht wurden. Muß ich raussuchen. Wäre das eine Lösung?
Gruß
Helmut
habe so ein Problem für jemand mit Excel gelöst indem in einer Tabelle die doppelten gelöscht wurden. Muß ich raussuchen. Wäre das eine Lösung?
Gruß
Helmut
Antwort 4 von Saarbauer
Hallo,
sieh mal den Thread
https://supportnet.de/threads/1093716
Antwort 5
Gruß
Helmut.
P.S. Falls es nicht passt bitte melden
sieh mal den Thread
https://supportnet.de/threads/1093716
Antwort 5
Gruß
Helmut.
P.S. Falls es nicht passt bitte melden
Antwort 5 von goldfisch24
Hallo Helmut,
hab mal nachgeschaut aber das passt nicht so ganz.
Hab hier mein Problem nochmal kurz dargestellt, die
doppelten Namen können gelöscht werden, so dass
in Spalte C nur die nicht doppelten ausgeweisen werden:
Spalte A:
Müller, Heinz
Lenz, Gottfried
Mayer, Karin
Hecker, Rolf
Spalte B:
Hecker, Rolf
Lenz, Gottfried
Müller, Heinz
Spalte C:
Mayer, Karin
Habe es mal mit so was ausprobiert:
=WENN(a1;$b$1:$b$40)dann löschen
Komme da aber irgendie nicht weiter. Was ist denn das Symbol für löschen?
Kannst Du mir da nochmal weiterhelefen?
Gruß
goldfisch24
hab mal nachgeschaut aber das passt nicht so ganz.
Hab hier mein Problem nochmal kurz dargestellt, die
doppelten Namen können gelöscht werden, so dass
in Spalte C nur die nicht doppelten ausgeweisen werden:
Spalte A:
Müller, Heinz
Lenz, Gottfried
Mayer, Karin
Hecker, Rolf
Spalte B:
Hecker, Rolf
Lenz, Gottfried
Müller, Heinz
Spalte C:
Mayer, Karin
Habe es mal mit so was ausprobiert:
=WENN(a1;$b$1:$b$40)dann löschen
Komme da aber irgendie nicht weiter. Was ist denn das Symbol für löschen?
Kannst Du mir da nochmal weiterhelefen?
Gruß
goldfisch24
Antwort 6 von Saarbauer
Hallo,
das ganze ist für mich auf den ersten Blick nur mit VBA zu machen.
Werde mir Heuet abend zu Hause ein paar Gedanken machen.
Gruß
Helmut
das ganze ist für mich auf den ersten Blick nur mit VBA zu machen.
Werde mir Heuet abend zu Hause ein paar Gedanken machen.
Gruß
Helmut
Antwort 7 von goldfisch24
Hallo Helmut,
komme da echt nicht weiter, hast Du nocheine Idee
das zu lösen?
Hoffe auf Deine Hilfe,
Gruß
goldfisch
komme da echt nicht weiter, hast Du nocheine Idee
das zu lösen?
Hoffe auf Deine Hilfe,
Gruß
goldfisch
Antwort 8 von Saarbauer
Hallo,
leider hat ich nicht so die Zeit, aber jetz haben wir´s
Sub Prüfen()
´ Prüfen Makro
´ Makro am 05.08.05 von Bauer
´ Prüft alle 3 Spalten durch auf gleichen inhalt und löscht Zellen mit doppeltem Eintrag
ZeileA = Range("A65536").End(xlUp).Row
For i = 1 To ZeileA
Range("A" & i).Select
ZelleA = ActiveCell.Value
ZeileB = Range("B65536").End(xlUp).Row
For j = 1 To ZeileB
Range("B" & j).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileB = ZeileB - 1
End If
Next j
ZeileC = Range("C65536").End(xlUp).Row
For j = 1 To ZeileC
Range("C" & i).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileC = ZeileC - 1
End If
Next j
Next i
ZeileB = Worksheets("Tabelle1").Range("B65536").End(xlUp).Address
For i = 1 To ZeileBA
Range("B" & i).Select
ZelleB = ActiveCell.Value
ZeileC = Worksheets("Tabelle1").Range("C65536").End(xlUp).Address
For j = 1 To ZeileC
Range("c" & i).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileC = ZeileC - 1
End If
Next j
Next i
End Sub
Als Makro einbauen und vor Test Datei sichen.
Gruß
Helmut
leider hat ich nicht so die Zeit, aber jetz haben wir´s
Sub Prüfen()
´ Prüfen Makro
´ Makro am 05.08.05 von Bauer
´ Prüft alle 3 Spalten durch auf gleichen inhalt und löscht Zellen mit doppeltem Eintrag
ZeileA = Range("A65536").End(xlUp).Row
For i = 1 To ZeileA
Range("A" & i).Select
ZelleA = ActiveCell.Value
ZeileB = Range("B65536").End(xlUp).Row
For j = 1 To ZeileB
Range("B" & j).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileB = ZeileB - 1
End If
Next j
ZeileC = Range("C65536").End(xlUp).Row
For j = 1 To ZeileC
Range("C" & i).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileC = ZeileC - 1
End If
Next j
Next i
ZeileB = Worksheets("Tabelle1").Range("B65536").End(xlUp).Address
For i = 1 To ZeileBA
Range("B" & i).Select
ZelleB = ActiveCell.Value
ZeileC = Worksheets("Tabelle1").Range("C65536").End(xlUp).Address
For j = 1 To ZeileC
Range("c" & i).Select
If ActiveCell.Value = ZelleA Then
´ActiveCell.Select
ActiveCell.Delete
j = j - 1
ZeileC = ZeileC - 1
End If
Next j
Next i
End Sub
Als Makro einbauen und vor Test Datei sichen.
Gruß
Helmut
Antwort 9 von goldfisch24
Hallo Helmut,
herzlichen Dank für Deine Hilfe. Werde es gleich
mal probieren. Hoffe das klappt mit dem Makro.
Gruß
Goldfisch24
herzlichen Dank für Deine Hilfe. Werde es gleich
mal probieren. Hoffe das klappt mit dem Makro.
Gruß
Goldfisch24