title image


Smiley Re: Suchen in der Tabelle
Hi,



vielelicht hilft dir dieser Code weiter (musst du nur an deine Bedimgungen anpassen - hier wird die Hintergrundfarbe der gefundenen Zellen verändert)



Sub zellinhalt_suchen()

Dim raZelle As Range

Dim strSuchbegriff As String

Dim loTabelle As Long

On Error Resume Next

strSuchbegriff = InputBox("Suchbegriff:")

With Worksheets("Tabelle1").UsedRange

Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)

If Not rng Is Nothing Then

firstAddress = raZelle.Address

Do

raZelle.Interior.ColorIndex = 15

Set raZelle = .FindNext(raZelle)

Loop While Not raZelle Is Nothing And raZelle.Address firstAddress

End If

End With

End Sub

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: