Hallo liebe Gemeinde,
folgende Situation:
In dem Sheet Projektverfolgung befinden sich 30.000 Einträge, welche aus einer Access-Datenbank gezogen werden.
In einem vorherigen Schritt wird die Datenbank nach Mitarbeiter aufgeteilt. Bsp. zu Mitarbeiter X gehören Y Datensätze. Im unten aufgeführten Schritt werden die nach Mitarbeiter gefilterten Daten in das "Projectscreening" gezogen. Ein Sheet welches die Datensäte auswertet.
Mit dem aufgeführten Makro kommt der Kopiervorgang jedoch nicht zu einem Ende, ich denke es liegt an der größe der Datenbank. Er kopiert wahrscheinlich alle Zeilen, und nicht nur die, die über den Autofilter ausgegeben wurden. Daher also meine Frage:
Was muss ich in dem aufgeführten Makro einbauen, damit nur die gefilterten Einträge kopiert werden, und nicht alle Einträge?
Mit freundlichen Grüßen,
Christian
x = Workbooks("Prototyp11.xlsm").Sheets("Projektverfolgung").Range("A2").Row
y = Workbooks("Prototyp11.xlsm").Sheets("Projektverfolgung").Range("A2").Column
Z = 0
Do While Workbooks("Prototyp11.xlsm").Sheets("Projektverfolgung").Cells(x, y).Value ""
Z = Z + 1
Workbooks("Prototyp11.xlsm").Sheets("Projectscreening").Range("A3").Value = _
Workbooks("Prototyp11.xlsm").Sheets("Projektverfolgung").Cells(x, y).Value
Loop
MsgBox "Es wurden " & Z & " Vorgänge aktualisiert"