Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: Cartonero

Cartonero (Level 1) - Jetzt verbinden

09.01.2007, aktualisiert 15.01.2007, 4885 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
VB for Applications

AutoFilter via VBA in Excel mit einem Array

gelöst Frage von 94451VB for Applications8 Kommentare

Hallo, ich habe folgendes Problem: ich befülle ein Array aus einer Tabelle selbstverstänlich filter ich leere Zellen raus, jetzt ...

VB for Applications

Excel 2010 VBA: Autofilter auf anderem Tabellenblatt

gelöst Frage von YotYotVB for Applications7 Kommentare

Moin! Gibt es eine Möglichkeit, z.B. in Tabelle1!B18 einen Autofilter für Tabelle2!A:A zu erstellen? Hintergrund: mit dem Autofilter finden ...

Microsoft Office

Excel Autofilter

gelöst Frage von Florian86Microsoft Office6 Kommentare

Hallo, kann man irgendwie 2 Autofilter in Excel einbauen. Ich habe mir folgendes kleines Makro erstellt Sub Autofilter() Range("A:A").Autofilter ...

Microsoft Office

Excel 2010 - Autofilter - Zeilen ausschließen

gelöst Frage von JuckieMicrosoft Office2 Kommentare

Hallo an alle, ich habe eine Tabelle in Excel 2010 bei der die Auto Filter bei allen 9 vorhandenen ...

Neue Wissensbeiträge
Windows Server
DP mit Benutzerdatenträger und VDS-SAN-policy
Tipp von lcer00 vor 8 StundenWindows Server

Hallo zusammen, ich habe gerade einen halben Tag mit Recherche zu dem Thema hinter mir und endlich ein Ergebnis. ...

Internet

Europa baut Zensurinfrastruktur auf: EU-Parlament stimmt für Upload-Filter, Leistungsschutzrecht und gegen KI-Forschung

Information von Frank vor 3 TagenInternet9 Kommentare

Eine sehr schlechte Entscheidungen für die Zukunft Europas ist gefallen: Der Rechtsausschuss im EU-Parlament stimmte heute morgen in einer ...

Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 5 TagenWindows 102 Kommentare

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 6 TagenVideo & Streaming10 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Sophos UTM 110 120 in Betrieb nehmen und IP Adresse am Cisco Switch herausfinden
Frage von KabuntelLAN, WAN, Wireless11 Kommentare

Hallo, ich mache in Rahmen meiner Umschulung zum Fachinformatiker - Systemintegration ein Praktikum. Gestern hat mir mein Chef gleich ...

Switche und Hubs
VPN Router empfehlung
Frage von mstSwitche und Hubs9 Kommentare

Moin Leute ich hab mal eine Frage an die VPN und Netzwerkprofis unter euch. Folgendes Szenario, ich habe einen ...

Hardware
Neue Hardware für meine pfSense - APU2 apu4b4?
Frage von jokru1Hardware8 Kommentare

Hallo zusammen, ich betreibe aktuell meine pfSense auf einer APU2-Hardware (3 NICs, 4GB RAM) ohne AES-NI-Unterstützung. Diese möchte ich ...

Firewall
Firewall Vorteil und Nachteil
gelöst Frage von vegeta500Firewall7 Kommentare

Hallo , ich habe eine Fragen (Theoretische), Welches Sicherheitsproblem kann eine gewöhnliche Firewall nicht lösen