CBox (UF) mehrspaltig erweitern ...
02.02.2007 21:06:13
proxima05
nach intensiver Recherche (die mich nicht so richtig weiter gebracht hat), hoffe ich hier auf einige Tipps.
Ich habe eine ComboBox, die mit folgendem Code gefüllt wird:
******************************
Private Sub ComboBox1_Enter()
Dim vntArray As Variant
Dim strArray() As String, strTemp As String
Dim lngRow As Long, lngCounter As Long
Dim Bereich As Range
With Bereich
vntArray = ActiveWorkbook.Worksheets("Tabelle1").Range("A1:A16")
End With
If IsArray(vntArray) Then
Call sortieren(1, UBound(vntArray), vntArray)
For lngRow = 1 To UBound(vntArray)
If vntArray(lngRow, 1) <> strTemp Then
strTemp = vntArray(lngRow, 1)
lngCounter = lngCounter + 1
ReDim Preserve strArray(1 To lngCounter)
strArray(lngCounter) = strTemp
End If
Next
ComboBox1.List = strArray
End If
End Sub
******************************
Diese ComboBox würde ich gerne noch um zwei weitere Spalten ("D1:D16" und "F1:F16") erweitern ... wie kann das bewerkstelligt werden? (die Sortierroutine passe ich mir separat an)
Danke für einen Tipp.
Ralph