Bedingung in ändern
26.02.2007 15:12:04
Anwender-2001
habe ein funktionierendes Macro:
Das wollte ich wie das darunterliegende ändern:
Sub Suchliste()
' Suchliste Makro
' Makro am 06.10.2004 von aufgezeichnet
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=1, Criteria1:="="
End Sub
Sub Suchliste()
' Suchliste Makro
' Makro am 06.10.2004 von aufgezeichnet
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=1, Criteria1:="D", _Operator:=xlOr, _
Criteria2:="C", Operator:=xlOr, _
Criteria3:="L", Operator:=xlOr, _
Criteria4:="M", Operator:=xlOr, _
Criteria5:="S", Operator:=xlOr, _
Criteria6:="E", Operator:=xlOr, _
Criteria7:="V"
End Sub
Habe danach gespeichert.
Das Macro hat sich aber beim Ausführen nicht geändert.
Es zeigt weiterhin alle Zeilen mit einer leeren ersten Spalte statt mit den Spalten in denen die Kriterien 1 oder 2, ...oder 7 zutreffen.
Besten Dank