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

Hallo Allerseits :),

Und zwar habe ich folgendes Problem: Ich erstelle ein neues Sheet, erstelle eine ComboBox und möchte sie mit einem vordefinierten Array befüllen (Alles in VBA).
Im Moment schaut mein Code so aus:

Code:

Sub Qgate_invalid_global()
'
' Qgate_invalid_global Macro
'

    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Output"
    
    Sheets("Output").OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
                   Left:=60, Top:=30, Width:=150.25, Height:=20.75).Select
    
    Dim Markets As Variant
    ReDim Markets(20)
    Markets = Array("Austria & Switzerland", "Central & Eastern Europe", _
            "CIS", "Czechy & Slovakia", "Middle East & Africa", "Poland", _
            "Turkey", "SEA & Australia (SEA)", "China", "France", "GB & Ireland", _
            "Germany", "Iberica", "India", "Italy", "Japan", "Korea", "Nordiska", _
            "North America", "South America")
    
    
    Sheets("Output").ComboBox1.List = Markets
End Sub

Neues Sheet wird erstellt, ComboBox wird erstellt, Array wird definiert, nur dann kann es die Werte nicht in das Array laden.
Wüsste da jemand eine andere Möglichkeit?


Danke im Voraus für jede Antwort :)
MfG,
Dominik

 

Ok habe es jetzt geschafft die ComboBox zu befüllen :) mir fehlt leider noch die Value von der ComboBox in einen String zu laden
Wäre super wenn mir da jemand helfen könnte!

 

Welche Value soll in welchen String geladen werden und wann?

Bis später,
Karin

 

Hallo Karin,

Auf jeden Fall einmal danke für deine Antwort!
Das Auslesen aus der ComboBox funktioniert, jedoch muss ich das Programm manuell unterbrechen und erst nach Auswahl wieder starten.
Das Problem ist, dass der Code nur im Personal Workbook gespeichert sein kann, deshalb habe ich versucht, mit Application.Wait in einem Loop bis der Wert geändert wird zu warten, aber in der Zeit ist kein User Input verügbar.
Also sobald das Programm fertig ist und ich auf die fortführung mithilfe des CommandButtons warte, funktioniert es nicht mehr.

Habe versucht mithilfe des Codes einen Code im VBAProjekt zu erstellen, das funktioniert aber leider nicht wegen den Basiseinstellungen von Excel.. das Makro wird weitergschickt also muss es jederzeit auf jedem Rechner verwendbar sein. Die Datei wird auch jeden Tag neu generiert.

Hoffe mir kann jemand helfen!

Danke & LG,
Dominik

 

Hi Dominik,

den Makroablauf kann man nicht unterbrechen um währenddessen von Hand irgendetwas anderes auszuführen - es muss bis zum Ende durchlaufen. Erst dann kannst du entweder etwas ausführen oder ein neues Makro starten.
Wenn das Makro in der Mappe vorhanden sein muss - weshalb erstellst du dann keine Vorlage (xlt, xltm), um die Datei daraus neu zu erstellen?

Bis später,
Karin

 

Hallo Karin,

Danke nochmal für die schnelle Antwort, hilft mir wirklich viel!
Habe das meiste jetzt hinbekommen, aber bei mir funktioniert das kopieren in die Vorlage noch nicht..
Hier mal der Code:


ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Workbooks("QGates Makro.xlsm").Sheets("New_List").Range("A1")


Ich bekomme einen Run-time error '1004': Application-defined or object-defined error

habe das Programm dort gestoppt, es ist nur die eine Zeile die nicht funktioniert..
Kann es sein dass es an den verbundenen Zellen liegt?


LG,
Dominik

 

Hi Dominik,

kann es sein, dass alle Zeilen/Spalten ausgeblendet sind, sodass es im benutzten Bereich keine sichtbaren Zellen gibt?

Bis später,
Karin

 

Hallo Karin,

Das File besteht aus vielen verbundenen Spalten, in der ersten zeile ist die überschrift und darauf liegt ein Autofilter.
Ich möchte nur die gefilterten Werte (die ich vor mir habe) kopieren und in das andere File verschieben.

Gruß,
Dominik

 

Hi Dominik,

wenn du verbundene Zellen verwendest, dann würde ich darauf tippen, dass der Fehler genau dort liegt, denn verbundene Zellen lassen sich nicht so ohne weiteres kopieren. Der Code an sich löst nämlich keinen Fehler aus, wenn sich im benutzten Bereich weder verbundene Zellen befinden noch mindesten 1 Zeile/Spalte sichtbar ist.

Bis später,
Karin

 

Hallo Karin,

Danke für Alles, du bist mir immer eine super Hilfe!
Eine klene Bitte hätteich noch.. und zwar Folgenes:

Ich möchte noch einen Autofiler einfügen, der mithilfe eines Arrays eine Spalte filtert, leider nimmt es mir aber immer nur den 1. Wert, hier der Code:

Selection.Copy Destination:=Sheets("Output").Columns("AX")
Dim Arr() As Variant
Arr = Sheets("Output").Range("AX1:AX50").Value

Sheets("New_List").Activate
ActiveSheet.rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Columns(6).AutoFilter Field:=6, Criteria1:=Arr, Operator:=xlFilterValues

Die Werte habe ich jetzt zwischengespeichert auf das Feld AX, und es sind Alle Werte vorhanden.

Bitte wenn möglich noch einmal um Hilfe :)

Danke & LG,
Dominik

 

Hi Dominik,

verstehe ich das richtig: in Tabelle "New_List" soll ein Autofilter gesetzt und Spalte F mithilfe des Arrays gefiltert werden? Versuche es mal so (ungetestet):

Code:

    With Sheets("New_List")
        .Range("A1").CurrentRegion.AutoFilter field:=6, Criteria1:=Arr, Operator:=xlFilterValues
    End With

Bis später,
Karin

 

Hallo Karin,

Funktiniert leider auch nicht.. vielleicht liegt es an der definition vom Array von vorher?

Selection.Copy Destination:=Sheets("Output").Columns("AX")
Dim Arr() As Variant
Arr = Sheets("Output").Range("AX1:AX50").Value

Lg,
Dominik

 

Hi Dominik,

dann lade doch mal deine Mappe hoch - Ferndiagnosen sind immer schwierig.

Bis später,
Karin

 

Hallo Karin,

Hier das File, ich kann es im Forum nicht hochladen.

http://www.file-upload.net/download-11650856/QGatesMakro.xlsm.html


Danke & LG,
Dominik

 

Hi Dominik,

das ist eine Exce-Datei, die mir dort zum Download angeboten wird - du wirst verstehen, dass ich diese aus Sicherheitsgründen nicht auf meinen Rechner herunterladen werde.
Du kannst doch eine Kopie deiner Mappe erstellen und nur die absolut für das Problem relevanten Daten darin belassen. Es müssen ja auch nicht 1000e Zeilen sein - ein paar Beispieldaten, an denen man das Problem nachvollziehen kann, sind völlig ausreichend. Diese verkleinerte Mappe kannst du dann hier im Forum hochladen.

Bis später,
Karin