VBA Abgleich von Daten

[Nordlicht_86]

Hallo,

ich habe leider ein VBA-Problem.

Ich möchte gerne zwei Tabellen miteinander vergleichen.

Es gibt drei Spalten mit jeweils 5 Zeilen (als Beispiel). Tabelle1 als "Historie" und Tabelle2 als "neue Daten".

Zunächst soll Spalte A der "neuen Daten" auf einen Wert geprüft werden, auf eine bestimmte "art". Wenn diese ungleich der gesuchten "art", dann soll die nächste Zeile geprüft werden.

Wenn die Zeile der gewünschten "art" entspricht: dann soll die nun angesprochene Zeile (nun aber Spalte 3) mit der Tabelle1 "Historie" (Spalte 3) vergleichen werden und dort beginnend von oben an bis Spalte 3 Tabelle "neue Daten" mit Spalte 3 Tabelle "Historie" übereinstimmt. Wenn der Wert ungleich der gesuchten "Prüfnummer", dann soll die nächste Zeile (Spalte 3) der Tabelle "Historie" geprüft werden.
Wenn eine Übereinstimmung gefunden wurde, dann soll die Spalte 1 der Tabelle "neue Daten" gelöscht werden.

Dieser ganze Vorgang soll so lange geschehen bis in Spalte 3 Tabelle "neue Daten" kein Wert mehr vorhanden ist.


Ich habe eine Beispielmappe mitangehangen.
Ich hoffe ihr könnt mir helfen

Vielen Dank schonmal.

Beste Grüße Torsten


Mein bisheriger Code:

Private Sub CommandButton1_Click()

Dim Zeile_Suche As String
Dim Zeile As String

Worksheets("neue Daten").Activate

Zeile_Suche = 5
Zeile_Historie = 5

Do
   
    If Worksheets("neue Daten").Cells(Zeile_Suche, 1) <> "0101" Then      'WENN NICHT: 0101 als Prüfart, dann weiter zählen
   
        Zeile_Suche = Zeile_Suche + 1
   
    Else
                       
        If Worksheets("neue Daten").Cells(Zeile_Suche, 3).Value = Worksheets("Historie").Cells(Zeile_Historie, 3).Value Then
                      
            Worksheets("neue Daten").Cells(Zeile_Suche, 1).Clear             'HIER muss der zuvor gefundene Bereich gelöscht werden (Spalte A)
            Zeile_Suche = Zeile_Suche + 1
            Zeile_Historie = 5
       
        End If
           
        Zeile_Historie = Zeile_Historie + 1
                      
    End If
   
Loop Until Worksheets("neue Daten").Cells(Zeile_Suche, 3).Value = ""     'So lange suchen bis keine Werte mehr bei den neuen Prüfwerten

End Sub

[schauan]

Hallöchen,

in Deinem Code setzt Du die Zeile_Historie bei einem Treffer auf 5 zurück. Dadurch vergleichst Du lediglich beim ersten Treffer die gleichen Zeilen. Wenn Du die gleichen Zeilen vergleichen willst, nimm nur eine Variable.