VBA Programmierung - Makro soll Adressen von Zellen mit gleichem Inhalt finden

Hallo Leute,

habe ein VBA-Problem. Auf meinem Excel-Tabellenblatt existieren jede Menge Informationen. Ich bräuchte den VBA Code für ein Makro, dass mir eine Liste der Adressen von Zellen ausgibt, die den gleichen Inhalt besitzen.

Answer 1

[Iamiam]

Wenn Du einen Zellinhalt oder Teile davon kopierst, kannst Du mit suchen und Ersetzen (Strg+h) alle Zellen finden, die das enthalten.
Mit "Alle anzeigen" bekommst Du eine Liste, und Du kannst inzwischen sogar einzelne Zellen bearbeiten, ohne dass die Liste verschwindet.

Answer 2

[Oubyi, UserMod Light]

Wenn ich Deine Anforderungen genau so umsetze, sollte das hier reichen:

Sub Doppelte()
Dim Zelle As Range
Dim i As Long
i = 1

For Each Zelle In UsedRange
    If WorksheetFunction.CountIf(UsedRange, Zelle) > 1 Then
        Sheets("Tabelle2").Cells(i, 1).Value = Zelle.Address
        i = i + 1
    End If
Next Zelle
End Sub

Allerdings wäre es vlt. sinnvoller, einfach eine Bedingte Formatierung zu nutzen, um die doppelten direkt zu markieren.
(BF/ Neue Regel/ "Nur eindeutige oder doppelte Werte formatieren").
Kommt darauf an, was Du weiter machen willst.

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)