Hallo zusammen,

ich möchte in meinem Blatt nach etwas suchen. Das klappt auch wunderbar mit diesem Makro, ich muss aber die Groß-/Kleinschreibung beachten.

Dim strSuche As String
was = InputBox("Was suchen Sie?")
For i = 2 To 200
For j = 2 To 20
strSuche = Cells(i, j).Value
If InStr(strSuche, was) > 0 Then
.....

Und genau da liegt das Problem: Ich möchte das unabhängig von der Schreibung haben, jedoch gibt es eine Debug-Meldung:

.....
If InStr(strSuche, was, vbTextCompare) > 0 Then
.....

Wie muss ich das Script anpassen?

VG
Patrick