Listbox von 2 Comboboxen abhängig
02.10.2007 10:28:00
2
ich habe zwei Comboboxen abDN1 und bisDN1
nach Auswahl der beiden will ich in einer Listbox alle Werte anzeigen die innerhalb dieses Bereichs liegen
Bsp:
abDN1.Value=A5
bisDN1.Value=A9
und alle Werte die in Zeile 5 bis Zeile 9 stehen sollen in Listbox und über Button in Blatt ausgegeben werden.
so zeigt er mir nur ersten Wert an:
Private Sub bisDN1_Change()
Dim iZeile As Integer
Dim vUebArr(4, 3) As Variant
Dim iAnz As Integer
Listabbis.Clear
For iZeile = 1 To Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Range("A65536").End( _
xlUp).Row
If Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Cells(iZeile, 1).Value = abDN1. _
Text Then
vUebArr(iAnz, 0) = Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Range("A" & _
_
iZeile).Value
vUebArr(iAnz, 1) = Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Range("B" & _
_
iZeile).Value
vUebArr(iAnz, 2) = Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Range("C" & _
_
iZeile).Value
vUebArr(iAnz, 3) = Workbooks(Norm.Value & ".xls").Sheets(Grundtype.Value).Range("D" & _
_
iZeile).Value
iZeile = iZeile + 1
iAnz = iAnz + 1
End If
Next iZeile
Listabbis.List = vUebArr
End Sub
kann mir vielleicht jemand weiter helfen?
Anzeige