Datensätze filtern und automatisch drucken

Hallo zusammen,
kann mir jemand helfen?
Ich habe, wie in der unteren Tabelle in einem kleinen Auschnitt dargestellt, das Thema, dass ich immer nach der Spalte "ZEZee" auf die ersten 5 Ziffern filtre (benutzerdefiniert: beginnt mit .... z.B. 86150 und dann wieder 86152 usw.) und dann die aktuelle Seite jeweils mit Überschrift ausdrucke usw. Das ist sehr mühsam... und ich suche nach einer Möglichkeit, den Vorgang per Makro zu automatisieren , zumindest vielleicht teilweise. Ich habe etwa 50.000 Datensätze in der Art....!!
Hat vielleicht jemand eine Idee?
Danke schon mal und Grüße
Elmar
PLZ Strasse Ort Ortsteil HNR H_BegPl Anz_An Zezee
86150 ABCDE Augsburg Innenstadt 2 4 3 86150-01
86150 GZTRFH Augsburg Innenstadt 11 3 3 86150-03
86150 Hinterererer Augsburg Innenstadt 4 3 2 86150-08
86150 Hintererfdsfdf Augsburg Innenstadt 11 4 3 86150-08
86150 HSHSTZ Augsburg Innenstadt 20 3 3 86150-08
86152 Oberer ggg Augsburg Innenstadt 43 10 9 86152-24
86152 Am GAR Augsburg Innenstadt 6 1 1 86152-27
86152 BGRADF Augsburg Innenstadt 12 1 1 86152-28
86152 KDRTZ Augsburg Innenstadt 6 5 4 86152-31

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Pivot_Filter_Druck() Range("A1").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Tabelle1!R1C1:R10C8").CreatePivotTable TableDestination:="", TableName:= _ "PivotTable2", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select With ActiveSheet.PivotTables("PivotTable2").PivotFields("PLZ") .Orientation = xlRowField .Position = 1 End With Pivotblatt = ActiveSheet.Name LetzteZeile = [A65536].End(xlUp).Row - 1 For i = 5 To LetzteZeile Auswahl = Cells(i, 1).Value & "*" Sheets("Tabelle1").Select Selection.AutoFilter Field:=8, Criteria1:=Auswahl, Operator:=xlAnd LetzteZeile2 = [A65536].End(xlUp).Row Range("A1:H" & LetzteZeile2).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("D16").Select Sheets(Pivotblatt).Select Next i End Sub

Hallo Elmar,
mein Makro beschränkt sich auf 10 Zeilen.
Hier eine Version die variabel händelbar ist.
Gruß,
Ptonka
Public Pivotblatt As String

Sub Pivot_Filter_Druck()
LetzteZeileTab = [A65536].End(xlUp).Row
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R" & LetzteZeileTab & "C8").CreatePivotTable TableDestination:="",  _
TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("PLZ")
.Orientation = xlRowField
.Position = 1
End With
Pivotblatt = ActiveSheet.Name
LetzteZeile = [A65536].End(xlUp).Row - 1
For i = 5 To LetzteZeile
Auswahl = Cells(i, 1).Value & "*"
Sheets("Tabelle1").Select
Selection.AutoFilter Field:=8, Criteria1:=Auswahl, Operator:=xlAnd
LetzteZeile2 = [A65536].End(xlUp).Row
Range("A1:H" & LetzteZeile2).Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("D16").Select
Sheets(Pivotblatt).Select
Next i
Sheets(Pivotblatt).Delete
Sheets("Tabelle1").Select
Selection.AutoFilter
End Sub

Beliebteste Forumthreads (12 Monate)

Datensätze filtern und automatisch drucken

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread