Wert suchen und anzeigen
01.07.2003 07:15:58
thomas
-hab untenstehendes makro erhalten
-es sucht aber nicht wie gewünscht in der 1.spalte einer tabelle, sondern in der zeilennummer
-denk mal range("A:A") müsste anders definiert werden aber wie???
Sub such()
Dim rngSuch As Range
strSuch = InputBox("Schlüssel-Suche")
Set rngSuch = Worksheets("OST").Range("A:A").Find(strSuch)
If Not rngSuch Is Nothing Then
rngSuch.Select
End If
End Sub
Anzeige