verfaßt von manes 
, Köln, 14.12.2017, 17:37:24
Hallo
Probier mal folgendes aus:
Kopiere den nachfolgenden Code im VBA-Editor in das Fenster von Tabelle1.
Dann trage in Zelle B1 den Suchbegriff (z.B. haus) ein.
Wenn Du dann in Spalte A etwas einträgst, wird wenn in dem eingegebenen Text der Suchbegriff vorkommt, dieser rot formatiert.
Hier der Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim str_Suchbegriff As String
Dim int_Start As Integer
Set r = Worksheets(1).Columns(1)
If Not Application.Intersect(r, Target) Is Nothing Then
str_Suchbegriff = Range("B1")
int_Start = InStr(Target, str_Suchbegriff)
If InStr(Target, "haus") > 0 Then
Target.Characters(Start:=int_Start, Length:=Len(str_Suchbegriff)).Font.ColorIndex = 3
End If
End If
End Sub
FFPX
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: