Wortteil färben (Treffer rot)

Hallo Euch allen,
mit untenstehendem Code suche ich nach einem Wortteil (Eingabe in B1).
Nun ist aber mein Problem, daß ich z.B. in B1 den Begriff "herb" eintrage und das Makro auch den Treffer "Herber" hervorheben soll - es soll also NICHT zwischen Groß- und Kleinschreibung unterschieden werden.
Wie ist der Code zu ändern?
Freue mich über jeden zielführenden Tipp!
Grüße
Dirk
Code im Tabellenblatt:
Option Explicit Sub treffer_rot() Dim rng As Range Dim i As Integer Dim SuBegr As String 'SuchBegriff Dim SuZeich As Long 'SuchZeichen (Anzahl) SuBegr = Range("b1").Value SuZeich = Len(SuBegr) For Each rng In Range("a2:z20") 'in A2:Z20 i = InStr(rng, SuBegr) If i > 0 Then ' rng.Characters(i, SuZeich).Font.Color = RGB(255, 0, 0) rng.Characters(i, SuZeich).Font.Color = vbRed rng.Characters(i, SuZeich).Font.Bold = True End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Nee, ich frag Dich nicht warum ;-)
So gehts ja dann auch:
Bereiche hatte ich zum Testen reduziert
Bitte wieder anpassen!
Karins Vorschlag:

Option Explicit
Sub treffer_rot()
Dim rng As Range
Dim i As Integer
Dim SuBegr As String    'SuchBegriff
Dim SuZeich As Long     'SuchZeichen (Anzahl)
SuBegr = Range("b1").Value
SuZeich = Len(SuBegr)
For Each rng In Range("A2:C5")  'in A2:C5
With rng
i = InStr(UCase(.Text), UCase(SuBegr))
If i > 0 Then
.Characters(i, SuZeich).Font.Color = vbRed
.Characters(i, SuZeich).Font.Bold = True
End If
End With
Next
End Sub

oder eben Rudis Vorschlag

Option Explicit
Sub treffer_rot()
Dim rng As Range
Dim i As Integer
Dim SuBegr As String    'SuchBegriff
Dim SuZeich As Long     'SuchZeichen (Anzahl)
SuBegr = Range("b1").Value
SuZeich = Len(SuBegr)
For Each rng In Range("A2:C5")  'in A2:C5
With rng
i = InStr(1, rng, SuBegr, vbTextCompare)
If i > 0 Then
.Characters(i, SuZeich).Font.Color = vbRed
.Characters(i, SuZeich).Font.Bold = True
End If
End With
Next
End Sub

Beides mal in ein With-Konstrukt eingebettet
Gruß Matthias

Sub treffer_rot() Dim rng As Range Dim i As Integer Dim SuBegr As String 'SuchBegriff Dim SuZeich As Long 'SuchZeichen (Anzahl) SuBegr = Range("b1").Value SuZeich = Len(SuBegr) For Each rng In Range("A2:C5") 'in A2:C5 With rng 'von Matthias L. i = InStr(UCase(.TEXT), UCase(SuBegr)) 'von Beverly i = InStr(1, rng, SuBegr, vbTextCompare) 'von Rudi Maintaire If i > 0 Then .Characters(i, SuZeich).Font.Color = vbRed .Characters(i, SuZeich).Font.Bold = True End If End With Next End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C
1		herb
2	Herber.de	Herby	Jugendherberge
3	Herbst	Herbstloser	vollherb
4	hart	leicht	schwer
5	beherbergen	Herbstanfang	herbes Wetter

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread