letzter Wert in InputBox
13.06.2002 11:46:19
WolfgangM
kann man in einer InputBox den lezten eingegebenen Suchbegriff, wie beim Excelsuchfenster Strg+f anzeigen lassen?
Makro:
Sub Suchen()
Dim rngFind As Range
Dim strFind As String
strFind = InputBox("Daten eingeben:")
If strFind = "" Then Exit Sub
Set rngFind = Cells.Find(strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If rngFind Is Nothing Then
Beep
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
rngFind.Select
End Sub
Dankeim voraus für eure Mühe
Gruß WolfgangM
Anzeige