Combobox VBA
18.10.2020 09:33:10
Kev
Das Excel holt sich beim Start ins Blatt Artikel alle Nr und Artikelbez
Nun möchte ich dass man mithilfe der Combobox nach Artikeln suchen und diese ab C32-46 Eintragen kann.
In B32 soll dann die dazugehörige Artikelnr auftauchen.
Mein Code funktioniert schon..
Jedoch muss ich immer erst in die Zelle darunter und wieder in die gewünschte Zelle klicken damit die Nr erscheint..
Mein Beispiel
https://www.herber.de/bbs/user/140943.xlsm
---------------------------CODE-----------------------------
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("C32:C46")
If Not Intersect(Target, MyRange) Is Nothing Then ComboBox1.Visible = True
ComboBox1.LinkedCell = Target.Address
On Error Resume Next
If Not Intersect(Target, MyRange) Is Nothing Then Target.Offset(0, -1).Value = ComboBox1.Column( _
_
1)
On Error Resume Next
End Sub
------------------------- CODE ENDE ---------------------------
Danke für die Hilfe!