Werte Prüfen und übertragen

Guten Mittag liebe Excel Community.
Ich habe eine sehr lange Liste in dem Tabellenblatt "Import" und brauche nun ein Makro, dass Spalte A und Spalte H durchsucht.
Immer wenn in Spalte A und in Spalte G eine Kombination von Werten vorkommt die es zuvor noch nicht gab, soll dann die Zeile von A-H in das Tabellen Blatt "Ergebnis" übernommen werden.
"
Dim lngRow As Long
Dim c As Range
Dim Suche
Dim Suche1
With Worksheets("Import")
For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Suche = .Cells(lngRow, 1)
Set c = Worksheets("Ergebnis").Range("1:1").Find(Suche, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
.Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Copy
Worksheets("Ergebnis").Cells(1, 1).End(xlToRight).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
If Not c Is Nothing Then
Suche1 = .Cells(lngRow, 8)
Set i = Worksheets("Ergebnis").Cells(8, c.Column).Find(Suche1, LookIn:=xlValues, LookAt:=xlWhole)
If i Is Nothing Then
.Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Copy
Worksheets("Ergebnis").Cells(1, 1).End(xlToRight).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
End If
Next lngRow
End With
"
Ich habe hier ganz kompliziert versucht es selber zu lösen. aber bin leider am Ziel vorbei geschossen und habe nicht wirklich den Zweck damit erfüllt, denn ich haben wollte.
Vielen Dank die Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim rngC As Range Application.ScreenUpdating = False With Tabelle1 For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)) If WorksheetFunction.CountIfs(Tabelle2.Rows(1), rngC, Tabelle2.Rows(8), rngC.Offset(, 7)) = 0 Then rngC.Resize(, 8).Copy Tabelle2.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial _ Paste:=xlPasteValues, Transpose:=True End If Next rngC End With Application.CutCopyMode = False End Sub

Guten Morgen.
Sorry für die späte Rückmeldung.
Danke für die Hilfe, aber das Makro erfüllt leider nicht ganz den Zweck, denn ich haben wollte.
Ich habe mich gestern wohl in der Eile nicht genau genug ausgedrückt, bzw. nicht genau beschrieben wo das Problem liegt.
Und zwar brauche ich ein Makro dass in der Tabelle "Import" die Werte aus der Spalte A mit den Werten aus dem Tabellenblatt "Ergebnis" in der Zeile 1 vergleicht.
(ich gehe mal davon aus, dass eine Zählschleife hier optimal wäre, die jeden Wert von der Spalte A aus "Import" einmal durch geht)
sollte es keine Übereinstimmung geben, dann soll die 1. bis 8. Zelle aus dem Import Tabellenblatt kopiert werden und in das Ergebnis tabbellenblatt eingefügt werden (hatte das so gemacht):
".Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Copy
Worksheets("Ergebnis").Cells(1, 1).End(xlToRight).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True"
sollte es eine Übereinstimmung geben zwischen der spalte A aus dem Import Tabellenblatt und der Zeile 1 aus dem Ergebnis Tabellenblatt,
dann soll die Spalte H der gleichen Zeile aus Import mit der Zeile 8 aus Ergebnis mit der gleichen spalte der Übereinstimmung verglichen werden.
Sollte dies nicht gleich sein, soll wieder Zelle 1-8 nach ergebnis kopiert werden:
".Range(.Cells(lngRow, 1), .Cells(lngRow, 8)).Copy
Worksheets("Ergebnis").Cells(1, 1).End(xlToRight).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True"
so das also nur die Zeilen übernommen werden, die sich in spalte A und H unterscheiden.
Vielen dank!

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread