|
Guten Tag VBA Experten,
ich beschäftige mich erst seit Tagen mit VBA, daher evt. "komische Frage".
In einem UserForm werden in einer Combobox Werte aus Spalte "J" der Tabelle gelesen,- die als Kriterium für eine Darstellung der Zeilen in einer Listbox gelten.
Ist die Auswahl in der Combobox identisch mit dem Eintrag in Spalte "A", werden entsprechende Zeilen in einer Listbox1 dargestellt.
Der Code: Combobox1
Private Sub ComboBox1_Change()
Dim vntTmp, vntList(), i As Long, n As Integer, k As Integer, T
T = Timer
vntTmp = Sheets(1).Range("A1").CurrentRegion
For i = 1 To UBound(vntTmp, 1)
If vntTmp(i, 1) = ComboBox1 Then
n = n + 1
ReDim Preserve vntList(1 To 6, 1 To n)
For k = 1 To 6
vntList(k, n) = vntTmp(i, k + 1)
Next k
End If
Next i
ListBox1.List = Application.WorksheetFunction.Transpose(vntList)
Me.Label1 = Timer - T
End Sub
so, das klappt auch.
Allerdings funktioniert die Geschichte nur, wenn in KriterienSpalte und Spalte "A" Text steht.
Ich aber möchte dort Werte zwischen 0 und 3 eintragen. Mache ich dies, klappt es nicht.
Ich habe schon im Code versucht, gewisse Werte als Variant zu bestimmen,- funzt auch nicht.
Kann mir jemand bittedie Lösung sagen?!
Gruß
Woppel
|