Combo VBA
21.12.2006 12:30:28
Stefan
habe folgende Combobox ( nicht über User Form )
Private Sub ComboBox1_Click()
ComboBox1.ListFillRange = ("Listen!A1:A50")
If IsNumeric(Me.ComboBox1.Value) = True Then
Me.Cells(1, 1) = CLng(Me.ComboBox1.Value)
Else
Me.Cells(1, 1) = Me.ComboBox1.Value
End If
Application.Goto Cells(1, WorksheetFunction.Match(Cells(1, 1), Range("b1:iv1"), 0) + 1), True
End Sub
Damit ist es möglich, dass wenn ein bestimmter Wert aus der Box ausgewählt wird, die entsprechende Spalte ( wert steht in Zeile 1 der Spalte )angewählt wird.
Nun habe ich versucht, dass ganze nochmals zu machen (mit einer 2. Combobox) und zwar mit dem Ziel, dass wenn ein entsprechender Wert ausgewählt wird, die richtige Zeile angezeigt wird..
Nur leider schaff ich das irgendwie nicht...
Kann mir da jemand helfen ?
Für eine Antwort wäre sehr dankbar
LG Stefan