Option Explicit

Public Textfeld As TextBox

Sub In_Textfeldern_suchen_Hintergundfarbe()
'Variablen deklarieren
Dim Suchbegriff As Variant, Textfeldtext As String

'Eingabefenster auf dem Bildschirm anzeigen und den eingegebenen Text in
'Variable "Suchbegriff" schreiben
Suchbegriff = InputBox("Bitte einen Suchbegriff eingeben.", "Suchbegriff...")

'Wenn die Variable "Suchbegriff" den Wert "False" hat, der entsteht hier durch das betätigen der Abbruchtaste,
'oder keinen Wert enthält, das entsteht hier, wenn nichts eingegeben wird, aber dennoch die OK-Taste betätigt wird,
'dann Prozedur beenden
If Suchbegriff = False Or Suchbegriff = Empty Then Exit Sub

'For Each-Schleife zum Ansprechen aller in dem Tabellenblatt eingesetzten Textfelder anzusprechen
For Each Textfeld In ActiveSheet.TextBoxes

    'Das Textfeld, das durch die Schleife angesprochen wird, markieren
    ActiveSheet.Shapes(Textfeld.Index).Select
    
    'Bei einem Laufzeitfehler bei der nächsten Befehlszeile weitermachen
    On Error Resume Next
    
    'Bei dem markierten Textfeld die Hintergrundfarbe zurücksetzen
    Selection.ShapeRange.Fill.Visible = msoFalse
    
    'Den Text aus dem Textfeld auslesen und in Variable "Textfeldtext" schreiben
    Textfeldtext = Selection.Characters.Text
    
    'Wenn der Suchbegriff in dem Textfeld vorkommt (hier über die Funktion "InStr" realisiert,
    'ab dem ersten Buchstaben den Text mit dem Suchbegriff vergleicht)
    If InStr(1, Textfeldtext, Suchbegriff, 1) Then
    
        'Bildschirmmeldung, in der die Textboxnummer angezeigt wird, ausgeben
        MsgBox "Suchbegriff in " & ActiveSheet.Shapes(Textfeld.Index).Name & " gefunden."
        
        'Hintergrundfarbe in rot ändern
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
        Selection.ShapeRange.Fill.Visible = msoTrue
    End If
Next
End Sub

Option Explicit

Public Textfeld As TextBox

Sub In_Textfeldern_suchen_Schriftfarbe()
'Variablen deklarieren
Dim Suchbegriff As Variant, Textfeldtext As String

'Eingabefenster auf dem Bildschirm anzeigen und den eingegebenen Text in
'Variable "Suchbegriff" schreiben
Suchbegriff = InputBox("Bitte einen Suchbegriff eingeben.", "Suchbegriff...")

'Wenn die Variable "Suchbegriff" den Wert "False" hat, der entsteht hier durch das betätigen der Abbruchtaste,
'oder keinen Wert enthält, das entsteht hier, wenn nichts eingegeben wird, aber dennoch die OK-Taste betätigt wird,
'dann Prozedur beenden
If Suchbegriff = False Or Suchbegriff = Empty Then Exit Sub

'For Each-Schleife zum Ansprechen aller in dem Tabellenblatt eingesetzten Textfelder anzusprechen
For Each Textfeld In ActiveSheet.TextBoxes

    'Das Textfeld, das durch die Schleife angesprochen wird, markieren
    ActiveSheet.Shapes(Textfeld.Index).Select
    
    'Bei einem Laufzeitfehler bei der nächsten Befehlszeile weitermachen
    On Error Resume Next
    
    'Bei dem markierten Textfeld die Schriftfarbe zurücksetzen
    Selection.Font.ColorIndex = 0
    
    'Den Text aus dem Textfeld auslesen und in Variable "Textfeldtext" schreiben
    Textfeldtext = Selection.Characters.Text
    
    'Wenn der Suchbegriff in dem Textfeld vorkommt (hier über die Funktion "InStr" realisiert,
    'ab dem ersten Buchstaben den Text mit dem Suchbegriff vergleicht)
    If InStr(1, Textfeldtext, Suchbegriff, 1) Then
    
        'Bildschirmmeldung, in der die Textboxnummer angezeigt wird, ausgeben
        MsgBox "Suchbegriff in " & ActiveSheet.Shapes(Textfeld.Index).Name & " gefunden."
        
        'Die Farbe der Buchstaben des gefundenen Suchbegriffs ändern
        Selection.Characters( _
        Start:=InStr(1, Textfeldtext, Suchbegriff, 1), _
        Length:=Len(Suchbegriff)).Font.ColorIndex = 3
    End If
Next
End Sub