VBA - Filter und CheckBoxen | HERBERS Excel Forum

Hi Allerseits,
ich bin nicht wirklich erfahren in VBA Programmieren, nur so vorne weg.
Ich habe folgendes Problem bzw. Probleme:
1. Ich habe auf einer Arbeitsmappe eine Liste mit Wörtern und einer dazugehörigen Checkbox. Auf einer anderen Arbeitsmappe habe ich eine Liste, in der in einer Spalte die Wörter als Filter ausgewählt werden können. Ich würde jetzt gerne beim Klick auf einen Button abfragen, welche Checkboxen einen Haken haben und darauf hin den Filter auf der anderen Arbeitsmappe anpassen. Wie mache ich das?
Außer:
ActiveSheet.Range("$B$1:$I$664").AutoFilter Field:=3, Criteria1:=Array( "Wort_1")
habe ich nicht wirklich was gefunden, um Filter anzupassen.
2. Wie kann ich Filter, die schon ausgewählt sind beibehalten und neue Filter dazufügen, ohne die alten zu Überschreiben?
Wenn ich mir "Wort_1", Wort_3" und "Wort_4" gerade anzeigen lasse und "Wort_5" hinzufügen will, muss ich immer wieder die anderen Filter mit in den Befehl setzen. Das muss doch eleganter gehen, als immer wieder alle Filter zu setzen, die ich haben will.
3. Ich habe eine Liste, die aus 100 Zeilen besteht. Ich habe ein paar Filter aktiv und blende dann manuell einige Zeilen aus. Wenn ich aber nun die Filter ändere, werden die von mir manuell ausgeblendeten Zeilen wieder eingeblendet. Kann ich das irgendwie verhindern?
Ich bedanke mich bereits jetzt für eure Lösungsvorschläge.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
M.E. kann man das alles machen. Kannst es ja mal selbst probieren.
Zu 1.
Da müsste man die Mappe sehen. Hast du zu jedem Wort eine Checkbox oder nur für mehrere? Und wie, was soll übertragen werden? Im Zweifel mit einer Schleife durchgehen.
zu2.
Dazu musst du dir die alten Filter auslesen und dann neu setzen. Dabei musst du aber unterscheiden ob es bis 2 Werte waren oder nur 1 oder 2. Mehr als 2 werdfen als Array in der Filterspalte gespeichert, die anderen als einzelne Kriterien. Daws Auslesen und setzen würde so gehen (Beispiel):

Sub filter_auslesen()
With ActiveSheet.AutoFilter
With .Filters
For spalte = 1 To .Count
With .Item(spalte)
If .On Then
mykrit = .Criteria1
If IsArray(mykrit) Then
Debug.Print Join(mykrit, ",")
Else
Debug.Print mykrit
If .Operator Then
myop = .Operator
Debug.Print myop
mykrit2 = .Criteria2
Debug.Print mykrit2
End If
End If
End If
End With
Next spalte
End With
End With
End Sub
Sub filtern()
ActiveSeheet.Range("A1").AutoFilter Field:=1, Criteria1:=Array("a", "dsds", "h"), Operator:= _
xlFilterValues
End Sub

Die Kriterien sind dann in der Direktansicht. Bei einem Array musst du das = vor jedem Wert noch entfernen. Falls es kein Array ist, machst du eins draus und fügst den Wert an. Wenn nicht, erweitertst du das Array (redim preserve) und fügst deinen Wert an. Dann setzt du den Filter wieder.
zu 3. Da würde ich durch alle Zeilen gehen und schauen, ob sie ausgeblendet seind. Das speicherst du dir. Dann erweiterst du deinen Filter und gehst wieder durch, und blendest die Spalten die wieder sichtbar sind aber eigentlich ausgeblendet gehören aus. Das geht aber nur wenn du den Filte erweiterst. Wenn du ein Kriterium rausnimmst, geht es nicht, da man nicht weiß, ob du es selber ausgeblendet hast. Da wäre es besser, du machst eine zusätzlich Spalte, in der du ein x einträgst, wenn die raus soll. Die kann der Filter ja mit ausblenden.
Falls es nicht geht, bitte eine Beispieldatei posten - Daten aber anonymisieren.
VG

Beliebteste Forumthreads (12 Monate)

VBA - Filter und CheckBoxen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Filter und CheckBoxen

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread