ich habe folgendes Problem und zwar habe ich mich mal an Excel versucht und ein Programm geschrieben (auch mit eurer Hilfe :)), dass Zwei Tabellen vergleicht. Die eine Tabelle in Sheets(2) ist gegeben und hat ungefähr 28000 Datensätze. Die zweite Tabelle Sheets("Schrott TT.MM") ist eine aus SAP gegebene Liste die Täglich Variiert.
Nun möchte ich jeden Datensatz der SAP Liste mit der gegebenen Liste vergleichen und bei einem Treffer soll er mir etwas Kopieren.
Der Code sieht wie folgt aus.
Sub Endprodukt_Nummer_finden()
Dim ZeileSchrott As Integer
Dim ZeileStück As Integer
Dim LetzteZeileSchrott As Integer
Dim letztezeileStück As Integer
LetzteZeileSchrott = Sheets("Schrott TT.MM").Cells(Rows.Count, 1).End(xlUp).Row
letztezeileStück = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
ZeileSchrott = 2
ZeileStück = 2
For i = 2 To LetzteZeileSchrott
For j = 2 To letztezeileStück
If Sheets("Schrott TT.MM").Cells(ZeileSchrott, 2) = "" Then
Exit For
Else
If Sheets("Schrott TT.MM").Cells(ZeileSchrott, 2) = Sheets(2).Cells(ZeileStück, _
_
_
4) Then
Sheets(2).Cells(ZeileStück, 9).Copy _
Destination:=Sheets("Schrott TT.MM").Cells(ZeileSchrott, 6)
ZeileSchrott = ZeileSchrott + 1
ZeileStück = 2
Else
ZeileStück = ZeileStück + 1
End If
End If
Next
Next
End Sub
Mein Problem ist nun, dass ds Programm Ewigkeiten braucht, je nachdem wie groß die Liste ist, die ich aus SAP erhalte. Hab schon mal fast 10 Min gewartet!
Ist das normal bei so einer großen Menge an Daten (28000) oder hab ich irgendwelche Anfangsfehler gemacht, die das Programm unnötig langsam machen?
Vielen Dank schonmal und für Rückfragen stehe ich jederzeit zur Verfügung :)
Gruß,
Franky