|
Wenn Du in weiteren Foren unterwegs bist mit Deiner Anfrage, dann meine folgenden Zeilen einfach ignorieren.
Also:
Na, wenn sich keiner meldet mach ich mal den Anfang.
Geld will ich keins. Aber wenn Dich meine Hilfe weiterbringt, möchte Ich Dich von einer Spende an Stuttgart Helps nicht abhalten. Die helfen mit Deiner Spende wiederum anderen Menschen bei Ihren Problemen.
40k Datensätze schreit eigentlich nach dem Einsatz von SQL und einer Datenbank.
Wenn Du es aber in Excel mit dem Autofilter lösen möchtest, schlage Ich folgendes vor:
Einsatz eines Recordsets und Ergebnisarray durchschleifen:
Option Explicit
Sub main()
Dim v As Variant
Dim i As Long
'*** unique Autofilterelemente als Array
v = GetviaADODBRecordset
'*** Durchleifen und PDFs erstellen bzw Makros aufrufen
For i = LBound(v) To UBound(v)
Next i
End Sub
Function GetviaADODBRecordset() As Variant
'*** Spaltenname der Tabelle; sowie Excelfile anpassen
Dim vRet As Variant
With CreateObject("ADODB.Recordset")
.Open "SELECT DISTINCT [SpaltennameDerFilterelemente] FROM `Tabelle1$`", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
vRet = Application.Transpose(Application.Transpose(.GetRows))
.Close
End With
GetviaADODBRecordset = vRet
End Function
Hinweis:
Code ist an Deine Produktivumgebung, sowie Fehlerbehandlungroutiunen anzupassen.
|