AW: Combobox wie angeklickt auflisten
07.10.2005 07:36:06
Roli
hallo nepumuk
Danke die schnelle Antwort. Ich habe das eingefügt und es geht nicht. e_marke und e_artnr sind zwei comboboxen. Nach Klick sollte e_artnr wie eine angewählte Combobox erscheinen.
Ich habe es auch mit
Private Sub e_marke_afterclick() versucht. Woran liegt mein Fehler?
Private Sub e_marke_Click()
Dim i As Long, a As Long, b As Long
Dim myArray() As Variant
On Error Resume Next
a = Lagerblatt.Cells(Rows.Count, 1).End(xlUp).Row
'---Grösse des Paramters b bestimmen für die Array-Länge----
b = 0
For i = 2 To a
If UCase(Lagerblatt.Cells(i, 1).Value) Like UCase(e_marke.Text & "*") Then b = b + 1
Next i
'---Listbox mit gesuchten Werten füllen----
With Me
.e_artnr.Clear
ReDim myArray(b - 1, 2)
b = 0
For i = 2 To a
If UCase(Lagerblatt.Cells(i, 1).Value) Like UCase(e_marke.Text & "*") Then
myArray(b, 0) = Lagerblatt.Cells(i, 2)
myArray(b, 1) = Lagerblatt.Cells(i, 1)
myArray(b, 2) = Format(Lagerblatt.Cells(i, 4), "00")
b = b + 1
End If
Next i
.e_artnr.List = myArray
.e_artnr.DropDown
End With
With Me
.e_artnr = e_marke.List(e_marke.ListIndex, 1)
.e_menge.Value = "1"
End With
End Sub