Office: Vergleich von zwei Spalten und ergänzen mittels VBA

Dum üsstest an dieser Stelle

Code:

[TABLE="width: 88"]
<tbody>[TR]
[TD]Worksheets("Dispo").Cells(lngZiel, 1) = .Cells(lngZeile, 1)[/TD]
[/TR]
</tbody>[/TABLE]

einfach die weiteren Zellen ergänzen - nach diesem Prinzip:

Code:

Worksheets("Dispo").Cells(lngZiel, 1) = .Cells(lngZeile, 1)
Worksheets("Dispo").Cells(lngZiel, 2) = .Cells(lngZeile, 4)
Worksheets("Dispo").Cells(lngZiel, 3) = .Cells(lngZeile, 8)
Worksheets("Dispo").Cells(lngZiel, 4) = .Cells(lngZeile, 3)

Bis später,
Karin

 

Funktioniert Perfekt! Danke!

 

Guten Morgen Forum,

ich hole das Thema noch einmal aus der Versenkung, da ich ein ähnliches Problem habe, es aber nicht schaffe, das Beispiel entsprechend anzupassen.
In Worksheets(1) Zelle J3 abwärts stehen Dateinamen, die als Vergleich dienen sollen. Die zu vergleichenden Namen stehen in Worksheets(3)Zelle A1 abwärts.
Die Anzahl der belegten Zellen sowohl in Worksheets(1) als auch in Worksheets(3) ist variabel. Es soll nun verglichen werden, welche Namen aus Worksheets(3) noch nicht in Worksheets(1) Zelle J3:JXXX vorhanden sind.
Diese sollen dann entsprechend der Reihenfolge in Worksheets(3) an die Liste in Worksheets(1) angehängt werden. Ich hoffe, das ist verständlich und ihr könnt mir hier etwas unter die Arme greifen.

Vielen Dank im Voraus!
Grüße
fuyuni

 

Hi,

was genau meinst du mit diesem Satz: "Diese sollen dann entsprechend der Reihenfolge in Worksheets(3) an die Liste in Worksheets(1) angehängt werden" - unter der bereits vorhandenen Liste anfügen?
Ich habe deinen Beitrag wie folgt interpretiert:

Code:

Private Sub CommandButton1_Click()
   Dim lngZeile As Long
   Dim lngLetzteQuelle As Long
   Dim lngLetzteZiel As Long
   Dim wksQuelle As Worksheet
   Dim wksZiel As Worksheet
   Set wksQuelle = Worksheets("Tabelle3")   ' Quelltabelle, Spalte A
   Set wksZiel = Worksheets("Tabelle1")     ' Zieltabelle, Spalte J
   ' bezogen auf Tabelle1
   With wksQuelle
      ' letzte belegte Zeile in Spalte J
      lngLetzteQuelle = IIf(IsEmpty(.Cells(.Rows.Count, 10)), _
         .Cells(.Rows.Count, 10).End(xlUp).Row, .Rows.Count)
      ' Schleife von 3 bis zur letzten belegten Zeile
      For lngZeile = 3 To lngLetzteQuelle
         ' VERGLEICH laufende Zeile Spalte A Quelltabelle mit Spalte J Zieltabelle
         ' Eintrag nicht gefunden
         If IsError(Application.Match(.Cells(lngZeile, 1), _
            wksZiel.Columns(10), 0)) Then
            ' letzte belegte Zeile in Zieltabelle ermitteln
            lngLetzteZiel = IIf(IsEmpty(wksZiel.Cells(wksZiel.Rows.Count, 10)), _
               wksZiel.Cells(wksZiel.Rows.Count, 10).End(xlUp).Row, wksZiel.Rows.Count)
            ' in erste freie Zeile Spalte J Zieltabelle eintragen
            wksZiel.Cells(lngLetzteZiel + 1, 10) = .Cells(lngZeile, 1)
         End If
      Next lngZeile
   End With
   Set wksQuelle = Nothing
   Set wksZiel = Nothing
End Sub

Gruß
Karin

 

Hallo Karin,

vielen Dank für Deine Antwort. Wie du richtig vermutet hast, sollen die in Tabelle 3 "neuen" Werte an die Spalte J von Tabelle 1 angehängt werden.
Dein Beispiel habe ich importiert - leider passiert beim Ausführen nichts - weder eine Fehlermeldung, noch ein Ergebnis. In Tabelle 3 Spalte A sind aktuell 28 Werte, in Tabelle 1 Spalte J nur 16; es sollten also weitere 12 Werte hinzugefügt werden.
Hast du noch eine Idee, an was das liegen könnte?

Vielen Dank im Voraus!

 

Hi,

lade bitte deine Mappe hoch, damit ich die genauen Bedingungen sehen kann.

Bis später,
Karin

 

Habe es auf anderem Wege gelöst, vielen Dank für die Hilfe!

Beste Grüße

 

Und wie sieht deine Lösung aus? Vielleicht haben ja andere Forumsbenutzer ein ähnliches Problem und können davon profigieren.

Bis später,
Karin

 

Hallo,
ich habe ein ähnliches Problem und schon versucht, mit hilfe der vorherigen VBA Makros das ganze für mich zu lösen.
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.
Die Datei findet ihr hier:
https://www.dropbox.com/s/c69gsb3vcg7miaa/data collector Kopie.xlsm?dl=0

war ein bisschen groß um sie anzuhängen.


Viele Grüße
Jan

 

Hi Jan,

eröffne bitte in neues Thema, sonst wird es zu unübersichtlich. Reduziere außerdem deine Arbeitsmappe auf die für das Problem relevanten Dinge, sodass du sie hier im Forum hochladen kannst.

Bis später,
Karin