Tabellen/Spalten vergleichen (VBA)

Martin Asal @, Dienstag, 21.06.2016, 15:00 (vor 1244 Tagen) @ Rabia

Sub vergleiche()
Dim BereichA As Range, ZelleA As Range
Dim BereichB As Range, ZelleB As Range
Dim Wert, AlleWerte
Dim Vergleich As Boolean
 
Set BereichA = ActiveWorkbook.Worksheets("Tabelle1").Range("A6:A20")
Set BereichB = ActiveWorkbook.Worksheets("Tabelle2").Range("B6:B20")
 
For Each ZelleA In BereichA
    Wert = ZelleA.Value
    For Each ZelleB In BereichB
        Vergleich = False
        If ZelleB.Value = Wert Then
            Vergleich = True
            Exit For
        End If
    Next
    If Not Vergleich Then
        MsgBox Wert & " fehlt"
        AlleWerte = AlleWerte & Wert
    End If
Next
MsgBox AlleWerte
End Sub
 
 

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum