messagebox einblenden
02.07.2003 15:13:18
thomas
-hab folgendes makro
-wenn der eingebene wert nicht gefunden wird, sollte eine messagebox mit "nicht gefunden" erscheinen und die eingabe wiederholt werden
Sub such()
Dim rngSuch As Range
Dim zeile As Integer
strSuch = InputBox("Schlüssel-Suche")
Set rngSuch = Worksheets("West").Range("A:A").Find(strSuch)
zeile = rngSuch.Row
If Not rngSuch Is Nothing Then
Rows(zeile).Select
End If
End Sub