Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Kopieren von Daten unter Autofilter

Betrifft: Kopieren von Daten unter Autofilter von: Christian
Geschrieben am: 18.09.2014 14:24:10

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"

  

Betrifft: Doppelt von: Hajo_Zi
Geschrieben am: 18.09.2014 14:25:13

https://www.herber.de/forum/messages/1382315.html


 

Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Daten unter Autofilter"