Combobox
04.12.2016 16:05:34
WalterK
dieser Code sucht im Bereich D4:Dx nach der in der Combobox ausgesuchten Person und markiert die entsprechende Zelle.
Allerdings wird der Code auch ausgeführt wenn ich außerhalb der Combobox Eingaben mache. Wie kann ich das verhindern?
Option Explicit
Private Sub ComboBox1_Click()
Dim rngFind As Range
Dim strSuchbegriff As String
Dim wks As Worksheet
Dim strErste As String
strSuchbegriff = ActiveSheet.Range("D2")
If strSuchbegriff = "" Then Exit Sub
Set wks = ActiveSheet
Set rngFind = wks.Range("D4:D5000").Find(strSuchbegriff, , , xlPart)
If Not rngFind Is Nothing Then
rngFind.Select
End If
End Sub
https://www.herber.de/bbs/user/109871.xlsm
Besten Dank und Servus, Walter
Anzeige