gibt es die Möglichkeit, die Listbox immer zu öffnen wenn man in bestimmte Zellen klickt? Und dann meinetwegen 2cm rechts vom Mauszeiger. Versteht ihr wie ich meine?
Salve und Danke schonmal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("E7:E9,E13:E15,E19:E21")) Is Nothing Then
ListBox1.Visible = False
Else
With ListBox1
.Top = Target.Cells(1, 1).Top
.Left = Target.Cells(1, 1).Left + Target.Cells(1, 1).Width
.Visible = True
End With
End If
End Sub
Gruess Hansueli
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 5
Select Case Target.Row
Case 7 To 9, 13 To 15, 19 To 21
With ListBox1
.List = Range(Cells(7, 13), Cells(Rows.Count, 13).End(xlUp)).Value
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.LinkedCell = Target.Address
.Visible = True
End With
End Select
Case Else
ListBox1.Visible = False
End Select
End Sub