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
|