Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Mir fehlt bei einem Doublettenabgleich ein Befehl

Betrifft: Mir fehlt bei einem Doublettenabgleich ein Befehl von: Jürgen
Geschrieben am: 27.08.2004 13:34:16

Hallo VBA-Forum,

möchte per Makro Adressdoubletten markieren. Habe bei der Recherche im Forum auch schon prima Hilfe bekommen. Folgendes Makro ist für meine Zwecke praktisch:

Sub Filter()
Dim Zeilen As Integer
Dim n As Integer
Dim x As Integer
'Zeilen Zählen
Zeilen = Sheets(1).Range("A:A").SpecialCells(xlCellTypeConstants).Count
'Kontrollschleife
For n = 3 To Zeilen
    'Suchschleife
    For x = n + 1 To Zeilen
        If Range("A" & n).Text = Range("A" & x).Text Then
            'Farbigmarkieren
            Range("A" & n).Interior.ColorIndex = 4
            Range("A" & x).Interior.ColorIndex = 3
            'Textmeldung
            MsgBox ("Ein doppeltes gefunden in Zeile " & n & " und in Zeile " & x)
        End If
    Next x
    'Suchleife Ende
Next n
'Kontrollschleife Ende
End Sub


Hier werden ja die Einträge in Spalte A miteinander verglichen. Wie bekommen ich es hin, dass er mir Spalte A und z.B. Spalte C vergleicht und, sollten diese Einträge gleich sein, mir dann erst die Markierung setzt?

Bin für jede Hilfe dankbar.
Gruß Jürgen
  


Betrifft: AW: Mir fehlt bei einem Doublettenabgleich ein Befehl von: Beni
Geschrieben am: 27.08.2004 14:20:04

Hallo Jürgen,
Gruss Beni

Sub Filter()
Dim Zeilen As Integer
Dim n As Integer
Dim x As Integer
'Zeilen Zählen
Zeilen = Sheets(1).Range("A:A").SpecialCells(xlCellTypeConstants).Count
'Kontrollschleife
For n = 3 To Zeilen
    'Suchschleife
    For x = n + 1 To Zeilen
        If Range("A" & n).Text = Range("A" & x).Text And _
          Range("A" & n).Text = Range("C" & n).Text And _
          Range("A" & x).Text = Range("C" & x).Text Then
            'Farbigmarkieren
            Range("A" & n).Interior.ColorIndex = 4
            Range("A" & x).Interior.ColorIndex = 3
            'Textmeldung
            MsgBox ("Ein doppeltes gefunden in Zeile " & n & " und in Zeile " & x)
        End If
    Next x
    'Suchleife Ende
Next n
'Kontrollschleife Ende
End Sub



  


Betrifft: AW: Mir fehlt bei einem Doublettenabgleich ein Befehl von: Jürgen
Geschrieben am: 27.08.2004 14:37:19

Herzlichen Dank Beni,

hast mir sehr weitergeholfen.

Schönes Wochenende
Gruß Jürgen


 

Beiträge aus den Excel-Beispielen zum Thema "Mir fehlt bei einem Doublettenabgleich ein Befehl"