.Range(.Range(.Cells(lngFilterRow + 1, lngFilterColumn), _
.Cells(lngFilterRow + 1, _
lngFilterColumn + .AutoFilter.Filters.Count - 1)), _
.Cells(lngFilterRow, lngFilter).End(xlDown)).Copy
Kopiert den Bereich $A$9:$F$1048576
Einfach zu überprüfen mit
Debug.print .Range(.Range(.Cells(lngFilterRow + 1, lngFilterColumn), _
.Cells(lngFilterRow + 1, _
lngFilterColumn + .AutoFilter.Filters.Count - 1)), _
.Cells(lngFilterRow, lngFilter).End(xlDown)).Address
Dadurch vergrößert sich die Datei so enorm
Range("d1:g70").Select 'Definiert den Druckbereich
Selection.PrintOut copies:=1, collate:=True 'Druckoptionen
Range("3:1048576").Delete
Dim objWorksheet As Worksheet ' Hebt das Filter im TB "Materialbedarf" wieder auf
Sub Drucken()
Dim lngFilterRow As Long, lngFilterColumn As Long
Dim lngFilter As Long
Dim lastRow As Long
With Worksheets("Materialbedarf")
If .AutoFilterMode Then
If .FilterMode Then
With .AutoFilter
lngFilterRow = .Range.Row
lngFilterColumn = .Range.Column
With .Filters
For lngFilter = 1 To .Count
If .Item(lngFilter).On Then Exit For
Next
End With
End With
lastRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Range("A9:F" & lastRow).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Drucken").Range("a3")
Else
MsgBox "Der Autofilter ist nicht gesetzt.", 48, "Hinweis"
End If
Else
MsgBox "Kein Autofilter in der Tabelle.", 48, "Hinweis"
End If
End With
Call Druck 'mdl Druck
Sheets("Materialbedarf").Select 'Setzt den Cursor nach erfolgreichem Druck in die Zelle A1 in "Mängelliste"
Range("d9").Select 'geht zu letzter beschriebener Zelle in Spalte "C"
Selection.End(xlDown).Select
End Sub