Hallo zusamman!
Hatte gestern eine Frage ins Forum gestellt und zwar wollte ich einen suchbegriff in eine inputbox eingeben mehrere tabellenbläter durchsuchen lassen und die fundstelle grün unterlegen.
habe eine super lösung bekommen. die so aussieht
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
Set wks = Worksheets("Tabelle1")
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Application.Goto rng, True
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
hab aber jetzt noch das problem das ich nicht nur die tabelle 1 durchsuchen will sondern mehrere definierte tabellen. Kann mir wer sagen wie ich den Code änder muss?
Danke!!