Autofilter und drucken ist Fehlerhaft
07.09.2004 13:55:02
Kai
ich habe folgendes Problem. Mein Makro sollte eigentlich filtern und die gefilterten Daten drucken. Beim drucken der Daten wird mir auf einem Blatt
die Überschrift aus Zeile 1 gedruckt und auf ein zweites Blatt die Daten ab
Zeile 2. Wo liegt mein Fehler das nicht alles auf ein Blatt gedruckt wird,
also so wie es mir im Sheet gezeigt wird. Beim filtern habe ich auch das Problem das mir Daten doppelt gefiltert werden, z.B. steht in Spalte A 50 mal HALLO so wird mir einmal 30 mal Daten mit HALLO gedruckt und dann noch einmal seperat 20 mal mit HALLO.
Am wichtigsten ist mir das Überschrief und Daten auf ein Blatt gedruckt werden.
Danke
Sub AutoFilterUndDrucken()
On Error Resume Next
Dim rng As Range, rngCur As Range
Dim lngRow As Long
Application.ScreenUpdating = False
Set rngCur = Range("A1").CurrentRegion
lngRow = 2
Do Until IsEmpty(rngCur.Cells(lngRow, 1))
If rngCur.Cells(lngRow, 1) <> rngCur.Cells(lngRow - 1, 1) Then
rngCur.AutoFilter _
field:=1, _
Criteria1:=rngCur.Cells(lngRow, 1)
Set rng = rngCur.SpecialCells(xlCellTypeVisible).PrintOut
End If
lngRow = lngRow + 1
Loop
Worksheets(1).Select
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
End Sub