Office: (Office 2016) Vergleich von zwei Spalten und fehlende ergänzen mittels VBA

Hallo,

In meiner Tabelle (siehe Anhang) möchte ich die Bezeichnungen aus dem Sheet "Data" Spalte B mit der Liste auf dem Sheet "Source" ab A:25 vergleichen und fehlende Einträge automatisch anhängen.

Da ich noch VBA Anfänger bin und es mir versuche durch "learning by doing" beizubringen, es aber manchmal nicht so klappt würde ich mich über eure Hilfe riesig freuen.

Ich habe das ganze schon mit den Lösungsansätzen aus einem anderen Thread versucht, aber diees hat nicht so geklappt wie ich es mir vorgestellt habe.
Daher im Anhang nur die leere Tabelle


Viele Grüße
Jan

 

Moin!
Kopiere beide Listen untereinander,
markiere den Bereich
und wende Daten, Duplikate entfernen an.
Optional kannst Du danach sortieren.
Das Ganze geht auch mit drei bis vier Zeilen Code.

Gruß Ralf

 

Hi Jan,

meinst du so:

Code:

Sub Ergaenzen()
    Dim lngZeile As Long
    Dim lngZiel As Long
    lngZiel = 28
    With Worksheets("data")
        For lngZeile = 2 To 17
            If IsError(Application.Match(.Cells(lngZeile, 2), Columns(1), 0)) Then
                Cells(lngZiel, 1) = .Cells(lngZeile, 2)
                lngZiel = lngZiel + 1
            End If
        Next lngZeile
    End With
End Sub

Bis später,
Karin

 

Hallo Karin,
danke dir erstmal :)
So ist es schon fast richtig. Vielleicht habe ich mich da nicht so 100% richtig ausgedrückt.
Die Daten im Blatt Data Spalte B werden automatisch alle 15min aktualisiert. Und enthalten im Schnitt um die 30000 Einträge ;D.
Diese sollten dann mit denen, die sich im Blatt "Source" ab A25-Axx befinden abgeglichen werden und wenn welche fehlen angehängt werden.
Bestehende in Source A25-Axx dürfen nicht überschrieben werden, die Reihenfolge darf sich ebenfalls nicht verändern.

Viele Grüße und Vielen Dank
Jan

 

Hi Jan,

überschrieben werden die Daten mit dem Code nicht und ihre Reihenfolge wird ebenfalls nicht verändert...
Wenn allerdings neue Daten hinzukomen, werden diese logischerweise in der Reihenfolge angehängt, in der sie in Tabelle "data" eintreffen.

Wenn du damit ausdrücken willst, dass die Anzahl an Daten flexibel ist, dann so:

Code:

Sub Ergaenzen()
    Dim lngZeile As Long
    Dim lngZiel As Long
    Dim lngLetzte As Long
    Dim lngLetzteQuelle As Long
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    If lngLetzte > 24 Then
        lngZiel = lngLetzte + 1
    Else
        lngZiel = 25
    End If
    With Worksheets("data")
        lngLetzteQuelle = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
        For lngZeile = 2 To 17
            If IsError(Application.Match(.Cells(lngZeile, 2), Columns(1), 0)) Then
                Cells(lngZiel, 1) = .Cells(lngZeile, 2)
                lngZiel = lngZiel + 1
            End If
        Next lngZeile
    End With
End Sub

Bis später,
Karin

 

Hallo Karin,
danke dir :) so funktioniert es perfekt :)

Viele Grüße
Jan

 

Moin!
Ich bleibe bei meiner Meinung, dass die Schleife hier Quatsch ist.
Für so etwas nutze ich eingebaute Excel-Funktionalitäten, auch aus Geschwindigkeitsgründen.
In einem lag ich aber falsch:
Es ist nur ein Zweizeiler, die optionale Sortierung macht einen Dreizeiler daraus (ausführende Codezeilen):

Code:

Sub RPP()
With Worksheets("data")
  .Range(.Range("B2"), .Range("B2").End(xlDown)).Copy _
    Worksheets("source").Range("A25").End(xlDown).Offset(1, 0)
End With
With Worksheets("source")
  With .Range(.Range("A25"), .Range("A25").End(xlDown))
    .RemoveDuplicates 1
    'optional sortieren
    .Sort .Cells(1)
  End With
End With
End Sub

Gruß Ralf