Hallo zusammen!
Ich habe Folgendes Problem :
Ich habe mehrere Laschen mit Daten drin... jeder dieser laschen soll durchlaufen werden und geschaut werden ob etwas neues eingetragen ist und das dann in meine "Overview" Tabelle anzeigen.
In der Overview Tabelle soll aber nur das reinkommen wo ein "Matstamm" und eine "Positionsnr" eingetragen ist und nicht alle Daten.
Mein Code bis jetzt:
Sub test()
Dim WS_Count As Integer
Dim I As Integer
Dim LetzteZeile_kopieren As Integer
Dim LetzteZeile_einfügen As Integer
Dim Name As Integer
Dim Spalte As Range
Range("B3:F1500").Clear
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 3 To WS_Count
LetzteZeile_einfügen = Worksheets("OVERVIEW").Cells(Rows.Count, 4).End(xlUp).Row
ActiveWorkbook.Worksheets(I).Activate
LetzteZeile_kopieren = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
ActiveWorkbook.Worksheets(I).Range("B4:E" & LetzteZeile_kopieren).Copy Destination:=Worksheets("OVERVIEW").Range(Cells(LetzteZeile_einfügen + 1, 2), Cells(LetzteZeile_einfügen + LetzteZeile_kopieren - 3, 5))
Worksheets("OVERVIEW").Range(Cells(LetzteZeile_einfügen + 1, 6), Cells(LetzteZeile_einfügen + LetzteZeile_kopieren - 3, 6)) = ActiveWorkbook.Worksheets(I).Name
ActiveWorkbook.Worksheets(1).Activate
Ich weiß echt nicht weiter und hoffe mir kann einer helfen