#419073 Excel 2010 - Suchbegriff innerhalb Zell(en) anzeigen (pc.sw.office)

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: