Autofilter über Makro funktioniert nicht - die 2te
27.04.2015 10:19:56
Thomas
Ende Februar habe ich hier sehr gute Hilfe zu einem Problem mit einem Autofilter bekommen.
Leider kann ich den Link nicht herstellen.
Nun hat mir ein Kollege eine Spalte eingefügt und versucht manuell das Makro anzupassen während ich einige Zeit krankheitsbedingt nicht vor Ort war.
Ich bekomme das Problem nicht behoben. Wer kann mir helfen?
Eingefügt wurde eine neue Spalte C, so dass sich die Spalte die gefiltert werden soll von C nach D verändert hat.
So sah das Makro vorher aus:
Sub Autofilter_Druck_nach_Debitor()
Dim lngRow As Long
On Error GoTo ErrExit
Dim LoLetzte As Long
Application.ScreenUpdating = False
With Sheets("Relevante Vorgänge")
LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
For lngRow = 16 To LoLetzte
If .Cells(lngRow, 3) "" Then
If Application.CountIf(.Range(.Cells(16, 3), .Cells(lngRow, 3)), .Cells(lngRow, _
_
_
3)) = 1 Then
.Range("A15").AutoFilter Field:=3, Criteria1:=.Cells(lngRow, 3)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
End If
Next lngRow
.ShowAllData
End With
ErrExit:
Application.ScreenUpdating = True
End Sub
Wie bekomme ich das Ding wieder ans laufen?
Beste Grüße
Thomas