Excel VBA Textfeld NICHT case sensitive?

merquart · 05/04/2017, 08:51

Heyeyey,
folgendes Problem: In Excel wird in einem Formular eine Stadt eingetragen.

Anschließend wird der eingetragene Wert in einem anderen Tabellenblatt (in Zeile 1) gesucht.

Code:

Private Sub Ort_Input_Change()
    Ort = Ort_Input.Text
    For i = 1 To 702
        If Sheets("Testseite").Cells(1, i) = Ort Then
            Gefunden = True
            Exit For
        End If
    Next i
End Sub

Jedoch wird nur ein Ergebnis gefunden, wenn "Stadt" auch "Stadt" geschrieben wurde. Wie kriege ich es hin, dass auch "stadt" = "Stadt" erkannt wird?
Habe beim Googlen was zu Cells.Find gesehen, wo man MatchCase auf False stellen könnte, würde aber ungerne etwas ändern, wenn es vielleicht auch so eine Lösung gibt.

Schon mal ein Dankeschön im Voraus.

Falls falscher Bereich, bitte moven.

Ravenstorm · 05/04/2017, 11:00

Du könntest beide Werte lowercasen

Code:

LCase(Value)

Code:

Private Sub Ort_Input_Change()
    Ort = Ort_Input.Text
    For i = 1 To 702
        If LCase(Sheets("Testseite").Cells(1, i)) = LCase(Ort) Then
            Gefunden = True
            Exit For
        End If
    Next i
End Sub

Weitere Option wäre das Modul auf

Code:

Option Compare Text

zu setzten.. somit sind String vergleiche nicht mehr Case-Sensitive

merquart · 05/04/2017, 11:49

Quote:
Originally Posted by Ravenstorm
Du könntest beide Werte lowercasen
Code:
LCase(Value)
Code:
Private Sub Ort_Input_Change()
    Ort = Ort_Input.Text
    For i = 1 To 702
        If LCase(Sheets("Testseite").Cells(1, i)) = LCase(Ort) Then
            Gefunden = True
            Exit For
        End If
    Next i
End Sub
Weitere Option wäre das Modul auf
Code:
Option Compare Text
zu setzten.. somit sind String vergleiche nicht mehr Case-Sensitive

Quote:
Originally Posted by Ravenstorm
Code:
LCase(Value)

Schäme mich jetzt ein bisschen

, Dankeschön!