nachdem ich nun schon häufig als "passiver" Nutzer viele Anregungen in diesem Forum mitnehmen konnte, steige ich mal mit einem direkten Anliegen ein.
Ich habe derzeit eine Suche über die gesamte Arbeitsmappe mit folgendem Code realisiert:
Option Explicit
Sub Suche()
Call Blattschutz_aufheben
Dim suche As String
Dim z As Long
Dim Zelle As Range
Dim Blatt As Worksheet
suche = UF_Suche.TextBox1.Value
z = 0
If suche = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Worksheets
For Each Zelle In Blatt.UsedRange
If Zelle = suche Then
z = z + 1
Zelle.EntireRow.Interior.ColorIndex = 35
End If
Next Zelle
Next Blatt
MsgBox suche & " wurde " & z & " mal gefunden."
Call Blattschutz_setzen
End Sub
Ich möchte nun erreichen, dass nur im Code festgelegte Tabellenblätter (Tabelle 1 bis 5, benannt als Telefone, Bluetooth, Zubehör usw...) jeweils beginnend von Zelle A7 bis zum Ende des gefüllten Bereiches durchsucht werden. Der genutzte Daten-Bereich ist jeweils als Tabelle formatiert und mit entsprechenden Namen (Tab_Telefone, Tab_Bluetooth usw.) versehen. Wenn diese direkt angesprochen werden könnten, wäre das ideal, da sie sich ja dynamisch erweitern.
Erreichen möchte ich, dass bei Eingabe eines Suchbegriffes in Textbox1 der Userform (UF_Suche) die gefundenen Zeilen farblich unterlegt werden (funktioniert mit dem obigen Code bereits-aber eben in der gesamten Arbeitsmappe). Das sollte jetzt aber nur in den Datenbereichen (Tab_Telefone usw.) geschehen.
Mir fehlt allerdings das Know-how und ich hoffe auf eure Hilfe. Wie sollte der Code dazu aussehen?