Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

case

case
29.12.2005 08:53:09
Ernst
Guten Tag Forum
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: case
29.12.2005 11:16:34
OttoH
Hallo Ernst,
nicht viel schöner, aber kürzer:

Private Sub CommandButton1_Click()
ActiveSheet.Range("c4").AutoFilter field:=1, visibledropdown:=False
ActiveSheet.Range("c4").AutoFilter field:=4, visibledropdown:=False
ActiveSheet.Range("c4").AutoFilter field:=5, visibledropdown:=False
End Sub

Gruß Otto
AW: case
29.12.2005 11:27:43
Ingo
vielleicht so?

Private Sub CommandButton1_Click()
With ActiveSheet.Range("c4")
.AutoFilter field:=Array(1, 4, 5), visibledropdown:=False
End With
End Sub

mfG
Ingo Christiansen
Anzeige
Danke
29.12.2005 13:14:27
Ernst
Hallo Otto / Ingo
Vielen Dank für Eure Hilfe. Es funktioniert!
Wünsche Euche ein gutes Neues Jahr
Ernst Dunkel

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige