Office: Mehrere Checkboxes ankreuzen, dann danach Spalte filtern. Möglich?

Hallo zusammen,

ich habe mal wieder ein kleines VBA-Anliegen.
Ich möchte in Abhängigkeit von angekreuzten Checkboxes eine Spalte filtern.
D.h. die Abfrage nach welchen Suchkriterien ich filtern möchte (per Checkboxes) wird nach drücken des VBA-Buttons eingeblendet.
Wenn ich dort bspw. B und D ankreze, dann soll in Spalte A nach B und C gefiltert werden.

Hat dieses Problem auch schonmal jemand gehabt oder schon eine Lösung evtl. *Smilie

Würde mich sehr freuen.

Viele Grüße,
HilfeProblem

*Smilie *Smilie *Smilie *Smilie *Smilie

:)

 

Habe jetz doch einen Code gefunden.
Leider kommt bei:

If OLEObjects("CheckBox" & CStr(sngIndex)).Object.Value Then

die Fehlermeldung:
Fehler beim Kompilieren:
Sub oder Function nicht definiert

Kann mir jemand helfen:

PHP:

         Private Sub CheckBox1_Click()
Call DatenFiltern1
End Sub

Private Sub CheckBox2_Click()
Call DatenFiltern1
End Sub

Private Sub CheckBox3_Click()
Call DatenFiltern1
End Sub

Private Sub CheckBox4_Click()
Call DatenFiltern1
End Sub

Private Sub CheckBox5_Click()
Call DatenFiltern1
End Sub

Public Sub DatenFiltern1()

Dim sngIndex As Single
Dim ialngCount As Long
Dim astrFilterArray() As String

For sngIndex = 1 To 5

If OLEObjects("CheckBox" & CStr(sngIndex)).Object.Value Then

ReDim Preserve astrFilterArray(ialngCount)
astrFilterArray(ialngCount) = Choose(sngIndex, "A", "B", "C", "D", "E")
ialngCount = ialngCount + 1

End If
Next

With Worksheets("Tabelle1").Range("$A$4:$A$35")

If ialngCount > 0 Then

Call .AutoFilter(Field:=1, Criteria1:=astrFilterArray, Operator:=xlFilterValues)

Else

Call .AutoFilter(Field:=1)

End If
End With
End Sub


 

Hallo HilfeProblem,

du solltes schon die CheckBoxen mit den richtigen Namen versehen

schau dir bitte die änderungen auch im Code an.

Code:

Gruß Peter9

 

hallo Peter9,

vielen dank für deine Hilfe *Smilie
Das hat schonmal super funktioniert, habe es auch soweit in meine Datei eingebunden *Smilie
Jetzt ist mir noch eins auf gefallen.
Ich habe mehrere verbundene Zellen, ich weiss verbundene Zellen sind Gift in Excel aber ich habe sie trotzdem *wink.gif*
Wenn ich das Makro, bzw. den Autofilter anwende, dann wird mir nur eine Zeile angezeigt.
Kann ich das irgendwie umgehen?
Habe hierzu nochmal ein kleine Beispieldatei erstellt.

Würde mich sehr freuen, wenn du mir nochmal evtl. helfen könntest *Smilie

Vielen Dank nochmal *Smilie

 

Hallo HilfeProblem,

hier mal zum probieren

Schau mal ob es so geht

Gruß Peter9

 

Super, danke *Smilie
Habe es umgebaut und es funktioniert immer noch *Smilie

Danke*Smilie