Worksheets("Test").Select
Range("DatenBank").Select
Selection.AutoFilter Field:=4, Criteria1:="<>HANDY", Operator:=xlAnd
For Each Cell In Range("DatenBank").Offset(1, 0).SpecialCells(xlVisible)
        If Cell.Column = 6 Then Cell.Value = 0
    Next Cell
For Each Cell In Range("DatenBank").Offset(1, 0).SpecialCells(xlVisible)
        If Cell.Column = 7 Then Cell.Value = 0
    Next Cell
Selection.AutoFilter
Range("A1").Select

Flag = False
Worksheets("Test").Select
 
For Each Cell In Range("DatenBank").SpecialCells(xlCellTypeConstants, 1)
    If Cell.Column = 4 And Cell.Value <> "HANDY" Then Flag = True
        If Flag = True And Cell.Column = 6 Then Cell.Value = 0
        If Flag = True And Cell.Column = 7 Then Cell.Value = 0
Next Cell