combobox
18.05.2007 19:33:00
Dirk
Ich hab ihr ein Problem und zwar hab ich ein Code mit dem man in abhängigkeit von einer Auswahl einer Combobox in einer zweiten combobox nur noch bestimmte Auswahl möglichkeiten hat. Dies funktioniert wenn Auswahlliste und Box auf einem Tabelleblatt sind wunderbar.
Wie muss dieser Code umgeschrieben werden wenn die Auswahlliste z.b. auf dem Tabellenblatt 3 ist.
Private Sub Dirk_DropButtonClick()
Dim col As New Collection
Dim iRow As Integer
Dirk.Clear
iRow = 17
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 10))
If Cells(iRow, 9).Value = vorauswahl.Text Then
col.Add CStr(Cells(iRow, 10).Value), CStr(Cells(iRow, 10).Value)
End If
iRow = iRow + 1
Loop
On Error GoTo 0
For iRow = 1 To col.Count
Dirk.AddItem col(iRow)
Next iRow
End Sub
Private Sub Dirk_click()
Range("A2").Value = Dirk.Value
End Sub
Private Sub vorauswahl_Change()
End Sub
Ich bitte ganz höflichst um Hilfe
Vielen Dank im Vorraus