Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1496to1500
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
Inhaltsverzeichnis

Doppelte Daten finden

Doppelte Daten finden
31.05.2016 19:22:43
Andreas
Hallo, Ich würde gerne mit einer VBA-Lösung Tabelle1 und Tabelle2 mit einander vergleichen und in beiden Tabellenblättern doppelte Einträge Farblich markiert haben. Könnt Ihr mir da weiterhelfen? Vielen Dank für Eure Mühe, Gruß Andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Daten finden
31.05.2016 19:58:25
Hajo_Zi

Option Explicit
Public Sub Find_Methode()
'* H. Ziplies                                     *
'* 31.05.16                                       *
'* erstellt von HajoZiplies@WEB.de                *
'* http://Hajo-Excel.de
Dim WkSh_1        As Worksheet
Dim WkSh_2        As Worksheet
Dim lZeile        As Long
Dim rZelle        As Range
Dim sFundst       As String
Dim LoI As Long
Dim Loletzte As Long
' erste Tabelle ist aktiv
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
With Worksheets("Tabelle2").Columns(1)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Cells(LoI, 1)  "" Then
Set rZelle = .Find(Cells(LoI, 1), Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Cells(LoI, 1).Interior.Color = 255
rZelle.Interior.Color = 255
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address  sFundst
End If
End If
End With
Application.EnableEvents = True
Application.CutCopyMode = False         'Zwischenspeicher löschen
Application.ScreenUpdating = True
Set rZelle = Nothing
Next LoI
End Sub


Anzeige

55 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige