Excel VBA Textfeld NICHT case sensitive?

05/04/2017 08:51 merquart#1
Heyeyey,
folgendes Problem: In Excel wird in einem Formular eine Stadt eingetragen.
[Only registered and activated users can see links. Click Here To Register...]
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. :handsdown:

Schon mal ein Dankeschön im Voraus.

Falls falscher Bereich, bitte moven.
05/04/2017 11:00 Ravenstorm#2
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
05/04/2017 11:49 merquart#3
Quote:
Originally Posted by Ravenstorm View Post
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 View Post
Code:
LCase(Value)
Schäme mich jetzt ein bisschen:o, Dankeschön!:D