Typen unverträglich
17.12.2018 11:33:46
Michèle
Nachfolgenden Code hatte ich bisher in einem kleinen File (nur Spalte A, verschiedene Wörter pro Zelle und Zeile) getestet, er funktionierte einwandfrei. Nun habe ich den Code in mein grosses File (mit zig Tabs und jeweils Zellen A-AC und 150 Zeilen pro Blatt) eingefügt. Wenn ich nun das Makro laufen lasse, dann spuckt er mir den Laufzeitfehler 13, Typen unverträglich für die "Do While" Zeile aus. Kann mir jemand sagen, wieso das so ist und was ich ändern muss?
Option Explicit
Sub Modifiziert()
' Finde das Wort modifiziert und färbe es ein
Dim lngFound As Long
Dim rngCell As Range
Const strSearch As String = "modifiziert"
Application.ScreenUpdating = False
For Each rngCell In ActiveSheet.UsedRange
lngFound = 1
Do While InStr(lngFound, rngCell.Value, strSearch) > 0
With rngCell.Characters(InStr(lngFound, rngCell.Value, strSearch), Len(strSearch))
.Font.ColorIndex = 46
End With
lngFound = InStr(lngFound, rngCell.Value, strSearch) + 1
Loop
Next rngCell
Application.ScreenUpdating = True
End Sub