Excel Suchbutton

Hallo,

ich habe mir ein kleines Modul erstellt, welches in einer bestimmten Spalte nach Werten sucht.
Es funktioniert auch wenn es sich nicht um Verweise in der Spalte handelt.
Sobald in der Spalte Verweise zu anderen Orten stehen findet er die angezeigten Werte nicht.

Sub Suchen()

Dim rngFind As Range
Dim strTitel As String

'suchdialog kreieren
strTitel = InputBox("Artikel-Nr.:", "Bitte geben Sie den gesuchten Artikel ein!")

'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A").Find(strTitel, LookIn:=xlFormulas, LookAt:=xlWhole)

'zur stelle Springen oder message ausgeben
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Artikel wurde nicht gefunden"
End If

End Sub

MfG

Florian86

Range("A2").Value = Range("A1").Value