case
29.12.2005 08:53:09
Ernst
Das untenstehende Makro funktioniert. Wie kann es vereinfacht werden?
Für eine Antwort bin ich dankbar.
mfg
Ernst Dunkel
Private Sub CommandButton1_Click()
With ActiveSheet.Range("c4")
.AutoFilter _
field:=1, _
visibledropdown:=False
End With
With ActiveSheet.Range("c4")
.AutoFilter _
field:=4, _
visibledropdown:=False
End With
With ActiveSheet.Range("c4")
.AutoFilter _
field:=5, _
visibledropdown:=False
End With
End Sub