Sub x()
On Error GoTo fehler
wert = "hallo"
Selection.Find(What:=wert, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Exit Sub
fehler:
MsgBox ("Fehler")
End Sub
Sub TabelleDurchsuchen()
Dim s As String
s = InputBox("Was suchst du ?")
Set found = Cells.Find(s, Lookat:=xlWhole)
If Not found Is Nothing Then
FirstAddress = found.Address
Do
found.Activate
found.Interior.ColorIndex = 3
Set found = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If found.Address = FirstAddress Then Exit Do
found.Interior.ColorIndex = 3
Loop
End If
End Sub
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr