Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Autofilter in VBA

Frage Entwicklung VB for Applications

Mitglied: Cartonero

Cartonero (Level 1) - Jetzt verbinden

09.01.2007, aktualisiert 15.01.2007, 4860 Aufrufe, 1 Kommentar

Autofilter mit verschiedenen Checkboxen

Hallo zusammen, das ist mein erster Beitrag und schon habe ich eine schwierige frage

Mein Problem ist, ich habe eine Excel Datei als Checkliste für eine Produktion.

Ich gebe die Felder die eingefügt werden mit einer IF Abfrage ein. Das Ganze wird über eine Checkbox angewählt.

BSP:

If CheckBox2.Value = True Then
Selection.AutoFilter Field:=14, Criteria1:="=X", Operator:=xlOr, _
Criteria2:="=LEI"
Selection.AutoFilter Field:=15
Selection.AutoFilter Field:=16, Criteria1:="X"
Selection.AutoFilter Field:=17, Criteria1:="X"
Selection.AutoFilter Field:=18, Criteria1:="X"
Selection.AutoFilter Field:=19, Criteria1:="X"
Selection.AutoFilter Field:=20, Criteria1:="X"
Selection.AutoFilter Field:=21, Criteria1:="X"
Selection.AutoFilter Field:=22, Criteria1:="X"
Selection.AutoFilter Field:=23, Criteria1:="X"
Selection.AutoFilter Field:=24, Criteria1:="X"
Selection.AutoFilter Field:=25, Criteria1:="X"
Selection.AutoFilter Field:=26, Criteria1:="X"
End If

Jetzt aber habe ich das Problem wenn mehrer Checkboxen angewählt sind zeigt es mir nur die letzte IF Abfrage an die anderen werden alle überschrieben. Die Notlösung die ich dazue gebastelt habe ist wieder eine IF Abfrage

BSP:
If CheckBox2.Value = True And CheckBox3.Value = True Then
Selection.AutoFilter Field:=14, Criteria1:="=X", Operator:=xlOr, _
Criteria2:="=LEI"
Selection.AutoFilter Field:=15
Selection.AutoFilter Field:=16
Selection.AutoFilter Field:=17, Criteria1:="X"
Selection.AutoFilter Field:=18, Criteria1:="X"
Selection.AutoFilter Field:=19, Criteria1:="X"
Selection.AutoFilter Field:=20, Criteria1:="X"
Selection.AutoFilter Field:=21, Criteria1:="X"
Selection.AutoFilter Field:=22, Criteria1:="X"
Selection.AutoFilter Field:=23, Criteria1:="X"
Selection.AutoFilter Field:=24, Criteria1:="X"
Selection.AutoFilter Field:=25, Criteria1:="X"
Selection.AutoFilter Field:=26, Criteria1:="X"

End If

Leider habe ich jetzt 12 Checkboxen und dan müsste ich für jedes zenario eine IF abfrage erstellen. Aber ich denke es gibt sicher eine andere Lösung nur kenne ich die nicht. Bin leider nicht so der Programmierhengst.

Danke schon mal im Voraus.
Mitglied: Desperado
15.01.2007 um 19:18 Uhr
hmm... du kannst checksummen bilden. chkbox 1 = 1, chbox 2 = 2 chbox 3 = 4 chbox 3 = 8 chbox 4 = 16 usw.

dann fragst du am anfang die checkboxen ab und bekommst dein checksumme aus der summe der definierten werden, z.b. bei chbox 1 + chbox 4 = 17. die zahl ist immer eindeutig. dann machst du ein select case auf deine checksumme. aber wenig tipparbeit ist das auch nicht
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(4)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

LAN, WAN, Wireless
gelöst Statische Routen mit ISC-DHCP Server für Android Devices (22)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Exchange Server
gelöst Migration Exchange 2007 zu 2013 - Public Folder teilweise weg (16)

Frage von Andy1987 zum Thema Exchange Server ...