Beiträge zum Thread: vbTextCompare

PatrickNRW

25.04.2026 15:37:51

vbTextCompare

xlKing

25.04.2026 16:08:29

AW: vbTextCompare

xlKing

25.04.2026 16:14:29

Uups, da hab ich den falschen Code kopiert.

Forumbeitrag

Excel-Version des Fragestellers:

2022

Erfahrungslevel des Fragestellers:

Basiskenntnisse in VBA

PatrickNRW

25.04.2026 15:37:51

vbTextCompare

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

Auf Beitrag antworten

Forumbeitrag

xlKing

25.04.2026 16:08:29

AW: vbTextCompare

Hi Patrick,
du hast den Parameter an der falschen Stelle stehen. Compare muss an die vierte Stelle, dann klappts auch.

If InStr(1, strSuche, was, Compare:=vbTextCompare) > 0

Wenn du weitere Vergleiche fahren willst. z.B. If was = strSuche empfehle ich zusätzlich ganz oben im Modul noch vor der ersten Prozedur die Zeile Option Compare Text zu verwenden.

Alternativ kannst du auch mit If InStr(LCase(strSuche), LCase(was)) > 0 arbeiten. Dabei werden die Texte in komplette Kleinschreibung umgewandelt. Das Pendant zu Lcase ist Ucase was die Texte in Großschreibung umwandelt.

Gruß Mr. K.

Auf Beitrag antworten

Forumbeitrag

xlKing

25.04.2026 16:14:29

Uups, da hab ich den falschen Code kopiert.

Die Instr.-Funktion unterstützt keine benannten Argemente. Also ohne Namen. So ists richtig:

If InStr(1, strSuche, was, vbTextCompare) > 0

Gruß Mr. K.

Auf Beitrag antworten