Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Spalten vergleichen und daten uebertragen

2 Spalten vergleichen und daten uebertragen
26.04.2007 16:16:00
Maty
hallo Ihr,
ich habe folgendes Problem:
ich moechte 2 spalten in 2 verschiedenen sheets vergleichen, und die nicht matchenden zeilen in ein extra sheet schreiben.
jedoch sollen die zeilen aus sheet A, die nicht vorhanden sind in Sheet A2 geschrieben werden und die zeilen aus sheet B in B2.
dies wuerde ich gern ueber ein makro laufen lassen.
ich poste euch mal ein ausschnitt aus meiner datei.
https://www.herber.de/bbs/user/42045.xls
hoffe einer von euch kann mir helfen
vielen Dank
Gruss
Maty

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten vergleichen und daten uebertragen
ransi
Hallo Maty
Schubs mal diesen Code an:
Option Explicit


Public Sub test()
Dim zelle As Range
Dim wohin As Long
Dim bereich As Range
Dim L As Long
L = Sheets("LCAG").Range("g65536").End(xlUp).Row
wohin = 2
Set bereich = Sheets("LCAG").Range("g2:G" & L)
For Each zelle In Tabelle1.Range("D4:D1000")
    If WorksheetFunction.CountIf(bereich, zelle) = 0 Then
        Sheets("JFK Rolf").Rows(zelle.Row).Copy Tabelle3.Rows(wohin)
        wohin = wohin + 1
    End If
Next
L = Sheets("JFK Rolf").Range("d65536").End(xlUp).Row
wohin = 2
L = Sheets("JFK Rolf").Range("d65536").End(xlUp).Row
Set bereich = Sheets("JFK Rolf").Range("D4:D" & L)
For Each zelle In Sheets("LCAG").Range("G2:G1000")
    If WorksheetFunction.CountIf(bereich, zelle) = 0 Then
        Sheets("LCAG").Rows(zelle.Row).Copy Tabelle4.Rows(wohin)
        wohin = wohin + 1
    End If
Next
End Sub


ransi

Anzeige
AW: 2 Spalten vergleichen und daten uebertragen
27.04.2007 17:51:00
Maty
hi ransi,
danke aber der code funktioniert nicht.
mein excel zeigt mir andauern fehler an.
kannst du mir da evtl weiter helfen.
habe ein englisches excel 2003 falls es relevant ist.
gruss
Maty

Hm..
ransi
HAllo
Ich hab den Code mal in deine Beispieldatei reingebaut.
https://www.herber.de/bbs/user/42090.zip
Musste leider Zippen, weil die Datei zu groß für den direkten Upload ist.
ransi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige