combobox
rolf
ich möchte eine abfrage über eine combobox mit einer zweiten combobox verbinde.würde mich freuen
wenn mir jemand helfen kann.
Beispiel:
Private Sub ComboBox3_Change()
Dim lZeile As Long, SearchRow As Long
Range("A1").Select
Sheets("Abstammungen").Activate
lZeile = Sheets("Abstammungen").Cells(Rows.Count, 3).End(xlUp).Row + 1
On Error GoTo Ende
Sheets("Abstammungen").Range("G:G").Select
Set Zelle = Selection.Find(What:=(ComboBox3.Value), After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not Zelle Is Nothing Then
Zelle.Select
SearchRow = ActiveCell.Row - 1
ListBox1.ListIndex = SearchRow
End If
Ende:
End Sub
gruss rolf