Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten Vergleichen und doppelte Werte zeigen

Spalten Vergleichen und doppelte Werte zeigen
09.05.2005 15:42:20
Lee
Hallo Liebe Excelfreunde,
ich habe zwei Spalten (A und B) mit z.T. identischen Werten. Nun soll Excel mir die Spalten vergleichen und in Spalte C die doppelten Werte aufzeigen.
Das geht glaube ich einfach..oder?
Danke &
Gruss
Lee

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten Vergleichen und doppelte Werte zeigen
10.05.2005 01:35:48
Uwe
Hallo Lee,
probier mal das:

Sub DoppelteInC()
Dim rngA As Range
Dim rngB As Range
Dim rngF As Range
Dim rngZ As Range
Set rngA = Range("A1", Cells(Rows.Count, 1).End(xlUp))
Set rngB = Range("B1", Cells(Rows.Count, 2).End(xlUp))
For Each rngZ In rngA
Set rngF = rngB.Find(rngZ.Value, , xlValue, xlWhole)
If Not rngF Is Nothing Then
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = rngZ.Value
Set rngF = Nothing
End If
Next rngZ
End Sub
Gruß Uwe
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige