Dropdown und Forlumar Kombinieren
14.05.2019 10:33:05
Matthias
Code 1: Automatisches Öffnen eines Dropdowns bei click in einer Zelle mit autovervollständigen:
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A5:A200")) Is Nothing Then
ComboBox1.Visible = False
Exit Sub
Else
ComboBox1.Visible = True
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
ComboBox1.Value = ActiveCell.Value
End If
End Sub
Code 2: Kann am besten Anhand einer kleinen Datei erläutert werden.
https://www.herber.de/bbs/user/129761.zip
Dieses Formular bietet auch eine Art drop-down, mit einer sehr guten Suchfunktion.
Zu dem Ergebnis, welches ich anstrebe: Wie bei Code 1 möchte ich in ein Feld clicken, darauf hin soll sich Code 2 öffnen und das gesuchte in die active cell schreiben.
Ich hoffe, ihr versteht worauf ich hinaus will.
Vielen Dank im voraus und liebe Grüße,
Matthias K.