Liebe Excelkollegen :)
Ich schraube derzeit an einem VBA Code, der seinen Zweck noch nicht ganz erfüllt.
Es geht darum, alle Zeile zu löschen, die in Spalte C nicht das Kriterium aus Zelle F4 erfüllen.
Der Code schaut folgendermaßen aus.
Dim wksData As Worksheet
Dim lngLastRow As Long
Dim rngData As Range
Set wksData = ThisWorkbook.Worksheets("Auswertung")
With wksData
lngLastRow = .Range("C" & .Rows.Count).End(xlUp).Row
Set rngData = .Range("C6:C" & lngLastRow)
End With
Application.DisplayAlerts = False
With rngData
.AutoFilter Field:=1, _
Criteria1:=Range("F4")
.Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows.Delete
End With
Application.DisplayAlerts = True
With wksData
.AutoFilterMode = False
If .FilterMode = True Then
.ShowAllData
End If
End With
Leider löscht dieser Code mit genaue jene Zeile die in Spalte C das Kriterium aus Zelle F4 erfüllen.
Weiß jemadn wie ich das umcodieren muss?
DAnke leute :)))
|