Suchen wie bei F5
02.07.2004 18:37:38
Walter
vielleicht kann mir jemand helfen ?
Ich habe Userform erstellt, mit einer Textbox. Mein Makro:
Private Sub TextBox2_Change()
If IsNumeric(TextBox2) = True Then
MsgBox "Es ist nur Text erlaubt."
TextBox2 = "Bitte nur Text !"
TextBox2.SetFocus
With TextBox3 'hier die nächste Textbox setzen dann Set Focus i.o.
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
On Error Resume Next
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
'Cancel = True 'True=CommandButton) ist die Schaltfläche Abbrechen
'False=Schaltfläche nicht Abbrechen (Voreinstellung)
Else
Worksheets("Datenbank").Range("A10") = TextBox2
End If
End Sub
Ich brauch ein Makro, welches, wie die Suchfunktion F5, zu der Zelle geht,
was ich suche.
Z.B. eine Zahl die in Spalte a steht oder ein Text der in Spalte D steht.
Herzlichen Dank im voraus,
gruß Walter
Anzeige