|
Hallo King,
ich habe 5 Checkboxen. Für Checkbox A habe ich nun:
Private Sub idFirmaAAusblenden_Click()
'Ein oder Ausblenden von FirmaA-Aufträgen
If idFirmaAAusblenden = True Then
Tabelle6.Range("$B$3:$V$200").AutoFilter Field:=5, Criteria1:=Array("UnternehmenB" _
, "UnternehmenB2", "UnternehmenC", "UnternehmenC2", "UnternehmenD", "UnternehmenD2", "UnternehmenE", "UnternehmenE2", "UnternehmenE3", "="), _
Operator:=xlFilterValues
Else
Tabelle6.Range("$B$3:$V$200").AutoFilter
End If
Call Modul1.guiFormatieren
End Sub
Das Problem dabei ist, aber wenn ich nun Checkbox A angeklickt habe und dann Checkbox B anklicke, um die Unternehmen die zu Firma B gehören auch auszublenden, überschreibe ich quasi damit das idFirmaAAusblenden und die Firma A wird angezeigt.
Was ich also benötige ist, dass ich in irgendeiner Form eine Array erstelle und ich durch das anklicken der Checkboxen A bis E die Filter hinufüge oder rausnehme. Bis jetzt konnte ich nichts dazu finden.
|