ich habe einen Code geschrieben, welcher bei dem Schritt die gefilterten NV Einträge zu löschen nicht funktioniert. Das komische ist, dass er 2 oder 3 mal es gemacht hat und dann nicht mehr. Vielleicht wisst ihr ja was falsch ist.
LG
Sub anwenden()
Set ti = Worksheets("Eingabe")
Set tl = Worksheets("Datenbank")
APP_PASSWORD = "Test"
If MsgBox("Können die Daten gespeichert werden?", vbYesNo) = vbYes Then
If MsgBox("Sind Sie sich sicher?", vbYesNo) = vbYes Then
Sheets("Datenbank").Unprotect Password:=APP_PASSWORD
x = ti.Cells(ti.Rows.Count, 1).End(xlUp).Row
' Zeitstempel und Status in den neuen Daten einfügen
ti.Range("H1:I1").Copy
ti.Range("H2:I" & x).PasteSpecial xlPasteValues
' Daten in die Datenbank markieren und kopieren
ti.Range("A2:I" & x).Copy
' Daten in die Datenbank einfügen
y = tl.Cells(tl.Rows.Count, 1).End(xlUp).Row + 1
tl.Range("A" & y).PasteSpecial xlPasteValues
' Daten aus Eingabereiter löschen
ti.Range("A2:I" & x).ClearContents
' Tabelle erweitern zwecks Auswertung Potetial Verdichtung
l = tl.Cells(tl.Rows.Count, 1).End(xlUp).Row
tl.ListObjects("Tabelle1").Resize Range("$A$1:$G" & l)
' #NV Zeile(n) löschen
y = tl.Cells(tl.Rows.Count, 1).End(xlUp).Row
tl.Range("$A$2:$AI$" & y).End(xlUp).AutoFilter Field:=1, Criteria1:="#NV"
Application.DisplayAlerts = False
EndRow = tl.Cells(tl.Rows.Count, 9).End(xlUp).Row
tl.Range(Cells(2, 1), Cells(EndRow, 9)).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
tl.AutoFilterMode = False
tl.ShowAllData
' Blattschutz wieder aktivieren
Sheets("Datenbank").Protect Password:=APP_PASSWORD, userInterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Else
End If
Else
End If