ich habe mich heute an der folgenden Problemstellung versucht,
Es gibt 2 Worksheets in einer Excel Datei,
in Sheet1 erscheinen in Spalte C - in den Zellen C1:C1000+ in abwechselnder Reihenfolge jeweils immer die gleichen 10 "Anbieter"
Von Zeit zur Zeit kommen aber neue Produkte auf dem Markt und damit in den neuen Zeilen (und in Spalte B) neue Anbieter.
Sheet2 enthält eine Auswertungsdatei, wo die Daten von Sheet1 aggregiert/ zusammengefasst werden.
Dort sind in den Zeilen A5 bis A15 die verfügbaren 10 Anbieter mit dem Namen bereits gelistet. (Zeile A16 enthält eine Summenzeile)
Die Aufgabe besteht also darin zu schauen ob in Sheet1 neue Anbieter in Spalte C hinzugekommen sind, die nicht schon in Sheet2 gelistet sind.
Sind neue Anbieter dabei, so sollen diese mit dem Namen aus Sheet1 Spalte C automatisch in Sheet2 in Zelle A16, ...A17, ... A18 usw. (.Insert Shift:=xlShiftDown) übertragen werden.
Besten Dank für Anregungen und Ideen!
Hier mein Versuch (Code), der noch nicht läuft und nicht wirklich sehr gelungen ist. Es muss anders einfacher gehen...
LastRowWs1 = wb1.Worksheets(("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
LastRowsWs2 =wb1.Worksheets(("Sheet2").(1, Columns.Count).End(xlToLeft).Column
wb1.Worksheets("Sheet2").Activate
For j=2 To LastRowWs1
If wb1.Worksheets("Sheet1").Cells(j,3).Value _
wb1.Worksheets("Sheet2").Range(Cells(5,1), Cells(LastRowWs2 -1,1) Then
k=wb1.Worksheets("Sheet1").Cells(j,3).Value
ActiveSheet.Rows(LastRowsWs2).Insert Shift:=xlShiftDown, CopyOrigin:= xlFormatFromLeftOrAbove
Cells(LastRowWs2,1).Value = k
End If
Next j
Grüße Heiko