Makro Fehler

Question

Hallo,

habe zum Ausdrucken bestimmter Daten forlgenden Makro erstellt:


Sub Drucktest()
On Error GoTo Fehler
Dim lnglast As Long 'Unterste belegte Zelle in Spalte C Sheet 1
Dim lngZ As Long
Dim strFK As String

lnglast = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Blattname eventuell anpassen
With Worksheets("Budget Eingabe") 'Blattname eventuell anpassen
For lngZ = 2 To lnglast
.Range("A1").Select
strFK = Worksheets("Tabelle1").Cells(lngZ, 1).Value
Selection.AutoFilter Field:=3, Criteria1:=strFK
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End With
Selection.AutoFilter Field:=1
Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten. Der Vorgang wird beendet!" & vbCr _
& Err.Description & vbCr & Err.Number
End Sub


Bekomme aber beim Ausführen folgenden Fehler:

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden. 1004

Kann mir jemand bitte helfen?

Danke

Answer 1

Sub ohne()
With Worksheets("Budget Eingabe") 'Blattname eventuell anpassen
For lngZ = 2 To lnglast
With .Range("A1")
strFK = Worksheets("Tabelle1").Cells(lngZ, 1).Value
.AutoFilter Field:=3, Criteria1:=strFK
.PrintOut Copies:=1, Collate:=True
End With
Next
.AutoFilter Field:=1
End With
Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten. Der Vorgang wird beendet!" & vbCr _
& Err.Description & vbCr & Err.Number
End Sub

Gruß Hajo