Spalte A filtern und neue Datein erstellen VBA

Hallo zusammen,
Wie sieht meine Ursprungstabelle aus:
ich habe ein Tabellenblatt mit dem Namen "Consolidated" mit zahlreichen Informationen zu Kundennummern. Die Kundennummern sind in der Spalte A gelistet mit den entsprechenden Informationen in den Zeilen. In der Spalte A kommen gleiche Kundennummern oefter vor. Die Kundennummern warden in Spalte A gefiltert. Leider kann ich aus Datenschutzgruenden die Tabelle nicht hochladen, aber ich denke meine Beschreibung zeigt die Grundzuege solide auf.
Was ich haben moechte:
Fuer jede Kundennummer soll eine neue PDF-Datei erstellt warden. Diese PDF-Datei soll alle Kundennummerneintraege enthalten. Den Ablauf kann ich mir so vorstellen:
1. Waehlt 1. Kundennummer aus. Setzt Filter mit dieser Nummer.
2. Erstellt mit der neuen gefilterten Tabelle eine neue PDF-Datei. (Am besten mit dem Namen der Kundennumer)
3. Waelt naechste Kundennummer... usw.
Ich habe hier in dem Forum schon einen aehnlichen Beitrag gefunden, konnte ihn aber nicht anpassen, da ich kaum VBA Kenntnisse besitze. Vielleicht hilft der Beitrag:
https://www.herber.de/forum/archiv/1316to1320/1317504_Excel_Datei_filtern_und_pro_Eintrag_Datei_erstelle.html
Schonmal vielen Dank fuer Eure Muehen!
VG Janik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,
danke fuer deine Hilfe. Das ist das was ich wollte jedoch treten Fehler auf. Wenn ich die Liste von A-Z sortiere sind die letzten 9 Dateien ohne Inhalt bzw. es wird nur die Spaltenbeschriftung angezeigt.
Wenn ich von Z-A sortiere tritt das gleiche Problem mit den letzten 8 Dateien auf. Ich vermute einen Fehler im Code oder eien Unstimmigkeit. Hast du eine Idee an was das liegen koennte? Meiner Meinung nach liegt es nicht an der Tabelle, da der Fehler immer am Ende auftaucht egal wie die Tabelle sotiert ist.
Hier noch mal der VBA Code:
Option Explicit
Sub FilterAndPDF()
Dim ItemList As Variant
Dim i As Long
ActiveSheet.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Name = "DataList" 'anpassen
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
FindUniqueItems ItemList, "DataList"
ActiveSheet.Range("DataList").AutoFilter
For i = 1 To UBound(ItemList)
ActiveSheet.Range("DataList").AutoFilter 1, ItemList(i)
Application.StatusBar = "PDF " & ItemList(i)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & Application.PathSeparator & ItemList(i) & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
Application.StatusBar = False
ActiveSheet.ShowAllData
End Sub

Private Sub FindUniqueItems(UniqueItems As Variant, FilterRange As String)
Dim TempList() As String, UniqueCount As Integer, cl As Range, i As Integer
Range(FilterRange).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
UniqueCount = Range(FilterRange).SpecialCells(xlCellTypeVisible).Count
ReDim TempList(1 To UniqueCount - 1)
i = 0
For Each cl In Range(FilterRange).SpecialCells(xlCellTypeVisible)
i = i + 1
If i > 1 Then TempList(i - 1) = cl.Formula
Next cl
Set cl = Nothing
UniqueItems = TempList
End Sub

VG Janik

Beliebteste Forumthreads (12 Monate)

Spalte A filtern und neue Datein erstellen VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte A filtern und neue Datein erstellen VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread