Liebe Excelspezialisten!
Schon des längeren arbeite ich an einem Excel-File und komme nur sehr zögerlich voran. Einige Sachen ganz gut, jedoch beiße ich mir bei folgenden Problem etwas die Zähne aus.
Ich möchte nämlich alle Zeilen (Prüfung ab Zeile 7) löschen, die in Spalte C nicht den identen Zelleninhalt wie aus Zelle F4 aufweisen.
Zum Beispiel: Wenn in Zelle F4 xxxzzzuuu steht, möchte ich, dass alle Zeile gelöscht werden, wo in Spalte C (Ab Zeile 7) nicht xxxzzzuuu steht. Der Zelleninhalt der Zelle F4 verändert sich, da diese Zelle mit einer Dropdow-Liste verbunden ist.
folgenden Code habe ich mir zusammengeabstelt, funktioniert aber noch nicht.
Private Sub AktivitätEingrenzen_Click()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Set ws = ActiveWorkbook.Sheets("Auswertung")
lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
Set rng = ws.Range("C7:C" & lastRow)
' filter and delete all but header row
With rng
.AutoFilter Field:=1, Criteria1:="<>.Range(F4)"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
' turn off the filters
ws.AutoFilterMode = False
End Sub
Weißt jemand wo das Problem begraben liegt?
Gruß rotkiv
|