Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm als Daten Filter

UserForm als Daten Filter
09.05.2004 01:26:31
Gregor
Hallo,
ich habe ein UF gebaut das den Autofilter steuert.
Nun meine Frage ob ich einen Tipp bekomme
wie dieses noch kleiner(einfacheren code) werden kann.
Anlage: https://www.herber.de/bbs/user/6152.xls
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm als Daten Filter
09.05.2004 07:27:28
andre
Hallo Gregor,
das hat in den letzten 3 Makros sinn:


Private Sub CommandButton1_Click()
Dim CBo%
    Application.ScreenUpdating = False
    For CBo = 1 To 9
        Controls("Checkbox" & CBo) = False
    Next
    Selection.AutoFilter Field:=1
End Sub
Private Sub CommandButton2_Click()
Dim CBo%
    For CBo = 1 To 9
        Sheets("Tabelle").Cells(CBo + 10, 7) = Controls("Checkbox" & CBo)
    Next
    Unload UserFormFilter
End Sub
Private Sub UserForm_Activate()
Dim CBo%
    Application.ScreenUpdating = False
    For CBo = 1 To 9
        Controls("Checkbox" & CBo) = Sheets("Tabelle").Cells(CBo + 10, 7)
    Next
    Label3 = Sheets("Tabelle").Range("G20")
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5


Grüße, André ( andre)



Anzeige
Danke
09.05.2004 23:13:23
Gregor
Sauber das passt
ich habe deinen code in meine Arbeit eingebaut, geht ohne probleme
muß ich nicht alles verstehen, versuche es aber trozdem
warum CBo% was hat das % zu tun
Gregor

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige