Warum funktioniert suchen nicht ?
03.07.2004 17:56:34
Walter
hatte gestern mich schon mal gemeldet. Leider funtioniert das Makro von Beate nicht.
Ich habe eine UserForm, eine TextBox3, gebe ich hier eine Zahl oder Text ein
möchte ich das der Courser auf diese Zeile geht.
( genau wie wenn ich "Strg + F" drücke ) Hier nochmal mein Makro:
Private Sub TextBox3_Change()
Dim rng As Range
Set rng = Worksheets("Tabelle3").Range("a1:a300").Find(What:=Worksheets("Tabelle3").[C5], _
LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Wert wurde nicht gefunden."
Else
End If
End Sub
Vieleicht kann noch ein Experte das mal anschauen,
gruss Walter