zerbreche mir seit Stunden den Kopf wie ich eine Lösung finde ohne Erfolg.
Ich hoffe ihr könnt mir helfen, wie so oft. Bereits hier an alle besten Dank.
Ich erhalte bei nachstehendem Code folgende Meldung:
Laufzeitfehler 1004 - keine Zellen gefunden
Der Fehler tritt auf nach der Zeile
'löscht den gefilterten Bereich
mit der Zeile:
Range(Cells(2, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 11)).SpecialCells( _
xlCellTypeVisible).EntireRow.Delete
Sub Diff_Lehrerliste_vorherige_mit_Lehrerliste_aktuell_vergleichen_filtern_löschen()
Dim lngI As Long, intWert As Integer
Application.ScreenUpdating = False
Worksheets("Lehrerliste_aktuell").Activate
For lngI = 2 To Cells(Rows.Count, 1).End(xlUp).Row
intWert = Application.WorksheetFunction. _
CountIf(Worksheets("Diff_Lehrerliste_vorherige").Range("A:A"), Cells(lngI, 1).Value)
If intWert > 0 Then
Cells(lngI, 1).Interior.ColorIndex = 3
End If
Next lngI
Application.ScreenUpdating = True
'Filtert den farbigen Bereich
Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 11)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$201").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
'löscht den gefilterten Bereich
Range(Cells(2, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 11)).SpecialCells( _
xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End Sub
Was muss bitte eingefügt werden, damit es ohne Fehlermeldung mit
Selection.Autofilter weiter geht.
Besten Dank für eure Hilfe.
Gruss
Peter