In einer Tabelle habe ich folgenden Code damit wird nach Eingabe einer Zahl diese in der Zeile 3 gesucht und ausgewählt. Prinzipiell funktioniert der Code auch so wie er soll, allerdings nicht wenn die Zielzellen verbunden sind.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$Z$9")) Is Nothing Then Exit Sub
Set Treffer = Sheets("2020").Rows(3).Find(what:=Range("Z9"), lookat:=xlWhole)
If Not Treffer Is Nothing Then
Treffer.Select
End If
End Sub
Gibt es eine Möglichkeit, dass das auch mit verbundenen Zellen funktioniert?
Für zweckdienliche Hinweise herzlichen Dank!
Gruss
Gunter