VBA Abgleich von Zellen/einfügen falls anders

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Max,
ich würd es so machen. Durch die Verwendung von Formel + Hilfsspalte ist es auch bei riesigen Datenmengen noch rasend schnell.

Sub HoleNeue()
On Error GoTo hell   'Error, falls keine neuen gefunden wurden!
'BLattnamen variabel
Const BlattQuelle As String = "Übersicht"
Const BlattNeu As String = "NV Neu 2010-2011"
Dim lRow As Long
With Sheets(BlattQuelle)
'letzte Zeile
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
With .Range("F2:F" & lRow)
'Trick 17: Diese Formel verursacht #DIV/0 !
.FormulaR1C1 = "=1/COUNTIF('" & BlattNeu & "'!C1,RC1)"
'Alle Zeilen mit #DIV/0 abgreifen (das erspart die langsame Schleife!)
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Copy
End With
End With
With Sheets(BlattNeu)
'letzte Zeile
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'einfügen
.Range("A" & lRow).PasteSpecial xlPasteValues
'Hilfsspalten löschen
.Columns(6).ClearContents
Sheets(BlattQuelle).Columns(6).ClearContents
End With
hell:
End Sub

Bezüglich deiner Einschätzung deines VBA-Levels kann ich nur sagen:
Damen aufgepasst, auf einer Skala vom Elefantenmensch bis hin zu Brad Pitt betrachtet, bin ich näher an Brad Pitt!
Grüße,
Klaus M.vdT.

Sub HoleNeue() On Error GoTo hell 'Error, falls keine neuen gefunden wurden! 'BLattnamen variabel Const BlattQuelle As String = "Übersicht" Const BlattNeu As String = "NV Neu 2010-2011" Dim lRow As Long With Sheets(BlattQuelle) 'letzte Zeile lRow = .Cells(.Rows.Count, 1).End(xlUp).Row With .Range("F2:F" & lRow) 'Trick 17: Diese Formel verursacht #DIV/0 ! .FormulaR1C1 = "=1/COUNTIF('" & BlattNeu & "'!C1,RC1)" 'Alle Zeilen mit #DIV/0 abgreifen (das erspart die langsame Schleife!) .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Copy End With End With With Sheets(BlattNeu) 'letzte Zeile lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'einfügen .Range("A" & lRow).PasteSpecial xlPasteValues 'Hilfsspalten löschen End With GoTo heaven: hell: MsgBox ("Keine neuen Einträge gefunden!") heaven: Sheets(BlattNeu).Columns(6).ClearContents Sheets(BlattQuelle).Columns(6).ClearContents End Sub

Hallo Max und Archiv,
die Hilfsspalte zählt mit "ZÄHLENWENN" die Anzahl der Einträge, und teilt danach eins durch diesen.
Ist ein Eintrag einmal vorhanden, ergibt die Hilfsspalte =1/1 (also 1). Ist ein Beitrag jedoch noch nicht vorhanden, ergibt die Hilfsspalte =1/0 und das ist ein Fehler!
Schreib mal in ein leeres Blatt in die Zellen A1, A3 und A5 die Formel =1/0 und in A2 un A4 "Hallo Welt". Jetzt markiere Spalte A, drücke STRG+G, dann "Spezial", dann wähle "Formeln" und dort nur "Fehler" und drücke OK. Du siehst, es sind nur noch die Zellen A1 A3 A5 markiert!
Diesen Kniff nutze ich, um aus einer Spalte alle relevanten Einträge auf einmal zu greifen. Jeder relevante Eintrag wird mit "DIV!0" markiert und dadurch gegriffen.
Die traditionelle Lösung wäre, die Spalte A per Schleife durchzulaufen. Etwa so:

for i = 2 to LastRow
if worksheetfunction.countif(AndereTabelle, range("A"&i).value) = 0 then
Kopiervorgang
end if
next i

Aber grad bei langen Listen wird das kriechend Langsam, da für jede Zeile ein eigener Kopiervorgang gestartet wird (und auch jede Zeile einmal "angefasst" und geprüft werden muss).
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

VBA Abgleich von Zellen/einfügen falls anders

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Abgleich von Zellen/einfügen falls anders

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

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread