Office: (Office 2013) ComboBox mit Array befüllen

Den Anhang Book1.xlsx betrachten

Entschuldigung ich habe nicht gewusst dass das auch so geht.. hier die Beispieldateien, der codeauszug ist der gleiche wie oben.

Danke & LG,
Dominik

 

Das sheet muss noch New_list heißen, dann sollte es passen

 

Hi Dominik,

in deiner Mappe gibt es weder eine Tabelle Outpuut noch eine Tabelle New_List - wie soll man denn dann etwas testen? Und was ist bei dir Selection - man sieht ja nicht, was markiert ist und kopiert werden soll. Und eine xlsx-Mappe ohne Code...? Bitte etwas mitdenken, junger Mann :D

Bis später,
Karin

 

Bei mir funktioniert das leider nicht mit code / mehreren sheets.. tut mir wirklich leid

 

so habs doch geschafft :)


A9 - A15 sollen markiert werden und dann per buttonklick wird der filter gelegt

 

Hi Dominik,

damit kann man schon mal etwas anfangen :)

Das Problem besteht darin, dass das Array durch die Übernahme aus dem Tabellenblatt kein einspaltiges Array ist.

Code:

Private Sub CommandButton21_Click()
    Dim Arr() As Variant
    Application.ScreenUpdating = False
    Columns("AX").ClearContents
    Selection.Copy Destination:=Range("AX1")
    Arr = Application.Transpose(Range(Cells(1, 50), Cells(Selection.Rows.Count, 50)).Value)
    With Sheets("New_List")
        If .AutoFilterMode = False Then
            .Range("A1").CurrentRegion.AutoFilter Field:=6, Criteria1:=Arr, Operator:=xlFilterValues
        Else
            .Range("A1").AutoFilter Field:=6, Criteria1:=Arr, Operator:=xlFilterValues
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Die Daten müssen gar nicht erst kopiert werden, sondenr können sofort aus dem markierten Bereich ins Array geschrieben werden:

Code:

Private Sub CommandButton21_Click()
    Dim Arr() As Variant
    Application.ScreenUpdating = False
    Arr = Application.Transpose(Selection.Value)
    With Sheets("New_List")
        If .AutoFilterMode = False Then
            .Range("A1").CurrentRegion.AutoFilter Field:=6, Criteria1:=Arr, Operator:=xlFilterValues
        Else
            .Range("A1").AutoFilter Field:=6, Criteria1:=Arr, Operator:=xlFilterValues
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Da der Code ausgeführt wird, während du dich im Tabellenblatt Output befindest, muss der Tabellename in diesem Fall nicht vor die Zellbezüge geschrieben werden - das ist nur erforderlich beim Bezug auf das Tabellenblatt New_List.

Es stellt sich die Frage, willst du tatsächlich den Zellbereich in Spalte A vorher markieren? Oder sollen alle belegten Zellen der Spalte A ab Zeile 9 ins Array übernommen werden?

Du musst auch bedenken, dass es keine Leerzellen in Spalte A geben darf, denn sonst wird wieder der Fehler ausgelöst. Sollten auch Lerrzellen vorhanden sein, muss man das anders lösen, und die Zellinhalte in einer Schleife ins Array einlesen und nicht direkt aus dem Tabellenblatt übernehmen.

Bis später,
Karin

 

Dake vielmals! Funktioniert alles super!