bräuchte wiedereinmal eure hilfe
Code:
Sub Aendern()
Worksheets("Seite1").Select
Range("Tabelle").Select
Selection.AutoFilter Field:=4, Criteria1:="Maus", Operator:=xlAnd
For Each Cell In Range("Tabelle").CurrentRegion.SpecialCells(xlCellTypeConstants, 1)
If Cell.Column = 6 Then Cell.Value = 0
Next Cell
For Each Cell In Range("Tabelle").CurrentRegion.SpecialCells(xlCellTypeConstants, 1)
If Cell.Column = 7 Then Cell.Value = 0
Next Cell
Selection.AutoFilter
Range("A1").Select
End Sub
Also der Code soll folgendes machen. Den Range "Tabelle" nach " Maus" filtern.. und dann eigentlich die werte in den spalten 6 und 7, "0" reinsetzen.
Wenn das aber durchläuft, setzt er die Werte von Maus auch auf 0.
Habe gedacht das es mit CurrentRegion gut läuft (nachträglich eingefügt.. Mr. Google meinte ich sollte das hinzufügen)... aber geht trotzdem nicht.
Hat hier jemand ne Idee?
Danke