Hallo Zusammen,

ich verwende Excel 2013 und habe für einen Zellenbereich (z.b. A1:B10) eine Namensbezeichnungdefiniert (z.b. [MeinFeld1])

nun möchte ich den Inhalt dieses Feldes in ein Combobox schreiben. Das Ganze realisiere ich wie folgt:

Dim strArray
Dim lngS As Long, lngZ As Long

strArray = [sTMP_idTYPSET]

' comboboxbezeichnung: cb_IDTYP
With .cb_IDTYP
            .Clear
            .ColumnCount = 2
            .ColumnWidths = "1,7cm;4,5cm"

            For lngZ = 1 To UBound(strArray)
                For lngS = 1 To UBound(Application.Transpose(strArray))
                        .AddItem
                        .List() = strArray
                Next lngS
            Next lngZ
End With

Mein Problem ist lediglich, folgendes: Es werde auch leere Zeilen (logischerweiese) mit in die Combobox übergeben. Wie kann ich dies verhindern?

Ich habe schon mittels

If strArray(lngZ, lngS) <> "" Then
versucht leere Zeilen abzufangen - aber so recht will das nicht funktionieren

Anm. Die Combobox ist zwei spaltig und zeigt die Ergebnisse der ExcelSpalte A in der Combobox Spalte 1 und entsprechend ExcelSpalte B in der Combobox Spalte 2 an

Vielleicht kann mir hier jemand kurz weiterhelfen

Grüße

Robert