Thema Datum  Von Nutzer Rating
Antwort
Rot Variables array und Autofiltern
 05.05.2017 12:05:03 Joscha
NotSolved
06.05.2017 10:52:09 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Joscha		 Datum:
05.05.2017 12:05:03		 Views:
1123		 Rating:
     
Antwort:
  Ja
Thema:
Variables array und Autofiltern

Hallo liebes VBAForum,

ich bin gerade dabei eine Datenbank zu erstellen, welche über ein UserForm gesteuert und gefiltert wird. Dabei bin ich auf ein Problem gestoßen, was ich alleine und mit Hilfe von diversen Foren nicht lösen kann.

In einer Spalte "AF" (32), habe ich ein DropDown Button in dem mehrere Auswahlmöglichkeiten gleichzeitig wählbar sind. Getrennt werden diese Möglichkeiten durch ein Komma ",".

Ich habe 9 Checkboxen die ausgewählt werden können (W1 - W9). Wenn diese ausgewählt werden, soll ein bestimmer Wert in ein Array übertragen werden, so dass ich im Anschluss nach allen Werten bei den die Checkbox = True ist gleichzeitig Filtern kann. Für einen ähnlichen Fall habe ich das bereits gemacht, aber hier scheint es nicht zu funktionieren. Ich bekomme immer einen Laufzeitfehler 1004 "Die Autofilter-Methode des Range-Objekts konnte nicht ausgeführt werden". Ich habe schon diverse Sachen probiert, komme jedoch nicht auf die Lösung und wäre über jede Hilfe dankbar. Anbei mein aktueller Code. Da ich mir VBA selber beigebracht habe, kann es durchaus sein, dass der Code extrem stümperhaft ist, bitte davon absehen :)

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 Dim aryW(9) As String
            Dim ZWerk As Integer
            For ZWerk = 1 To 9
                     If Me.Controls("W" & ZWerk) = True And ZWerk = 1 Then
                        aryW(ZWerk) = ("*Werk" & " " & "A*")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 2 Then
                        aryW(ZWerk) = ("*Werk" & " " & "B*")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 3 Then
                        aryW(ZWerk) = ("Werk" & " " & "C")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 4 Then
                        aryW(ZWerk) = ("Werk" & " " & "D")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 5 Then
                        aryW(ZWerk) = ("Werk" & " " & "E")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 6 Then
                        aryW(ZWerk) = ("Werk" & " " & "F")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 7 Then
                        aryW(ZWerk) = ("Werk" & " " & "X")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 8 Then
                        aryW(ZWerk) = ("Werk" & " " & "Y")
                     ElseIf Me.Controls("W" & ZWerk) = True And ZWerk = 9 Then
                        aryW(ZWerk) = ("Werk" & " " & "Z")
                End If
            Next ZWerk
    
       
    With WKMeta
        .AutoFilter
        .AutoFilter Field:=32, Criteria1:=(aryW), Operator:=xlFilterValues
    End With

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Variables array und Autofiltern
 05.05.2017 12:05:03 Joscha
NotSolved
06.05.2017 10:52:09 BigBen
NotSolved