Vergleich zweier Sheets
15.01.2018 13:11:52
Philipp
Ich habe folgende Problemstellung:
Ich habe ein Average Sheet und ein Import Sheet und es kann passieren, dass das Import Sheet mehr Zeilen hat als das Average Sheet, wobei einige Zeilen die gleichen Werte haben.
Nun will ich eben die fehlenden Zeilen in das Average Sheet ergänzen.
Ich habe das ganze mit einer Doppelschleife versucht, bin aber daran gescheitert. Nun habe ich nach ein paar Websuchen herausgefunden das hier wohl die "Find Methode" weiterhelfen würde. Aber ich habe diese noch nie angewendet kann mir jemand weiterhelfen?
Mein "Versuch" mit der Doppelschleife:
If iRowIMP > iRowAVG Then
For i = 2 To iRowIMP
VGL_IMP = .Worksheets(Sheetname).Cells(i, 1)
For j = 2 To iRowAVG
VGL_AVG = .Worksheets("AVG").Cells(j, 1)
If VGL_AVG VGL_IMP Then
'Das Problem ist hier das die meisten Zeilen unterschiedlich sind und
dieser Vergleich im Endeffekt Schwachsinn ist.
.Worksheets("AVG").Cells(nextEmptyCell,2)=VGL_IMP
'Hier will ich dann eigentlich die ganze Spalte des Importsheets
einfügen also von A bis G
End If
Next j
Next i
End If
Grüße Philipp
Anzeige