Office: Groß- und Kleinschreibung ignorieren

Hallo zusammen,

wie kann ich in meinen Code miteinbringen, dass er mir beim Suchen von Daten aus meiner Tabelle die Groß- und Kleinschreibung nicht beachtet?
Wenn ich in meine Textbox txtThema einen Suchbegriff in Kleinbuchstaben eingebe, dann findet er mir die Daten nicht, weil die in meiner Tabelle großgeschrieben sind!

Do
Set Bereich = Sheets("Input").Columns(1).FindNext(Bereich)
If (Bereich.Offset(0, 7) = v Or cboVerantwortlich.ListIndex = -1) And
(Bereich.Offset(0, 8) = t Or cboStatus.ListIndex = -1) And _
(Bereich.Offset(0, 4) = k Or cboKunde.ListIndex = -1) And _
(Bereich.Offset(0, 12) = ver Or cboVergabe.ListIndex = -1) And _
(Bereich.Offset(0, 13) = li Or cboLieferant.ListIndex = -1) And _
(Bereich.Offset(0, 20) = verga Or cboVergabeart.ListIndex = -1) And _
(Bereich.Offset(0, 1) = txtThema Or txtThema.Value = "") And _
(Bereich.Offset(0, 3) = txtUnterthema Or txtUnterthema.Value = "") And _
(Bereich.Offset(0, 5) = txtStart Or txtStart.Value = "") And _
(Bereich.Offset(0, 6) = txtZieltermin Or txtZieltermin.Value = "") And _
(Bereich.Offset(0, 17) = txtName Or txtName.Value = "") And _
(Bereich.Offset(0, 9) = txtNotiz Or txtNotiz.Value = "") And _
(Bereich.Offset(0, 21) = txtpsp Or txtpsp.Value = "") Then

MsgBox Bereich.Address
End If

If Bereich.Address = strErsteAdresse Then
MsgBox "Keine weitere Daten gefunden!"
Exit Do
End If
Loop

Vielen Dank im Voraus

:)

 

Hallo Patri,

dann nimm doch LCase oder UCase zur Hilfe

If (LCase(Bereich.Offset(0, 7)) = v Or cboVerantwortlich.ListIndex = -1) And

wobei ich allerdings nicht weiß, ist v eine definierte Variable oder solltest du besser auf "v" abfragen?

Gruß Peter

 

hiho

deine_txtbox.text="Aber Hallo"
if Lcase(deine_txtbox.text) ="aber hallo" then msgbox "richtig erkannt"
if Ucase(deine_txtbox.text)="ABER HALLO" then msgbox "richtig erkannt"


Lcase macht alles klein
Ucase alles GROß

was Du dabei verwendest ist egal

 

Hallo Peter,
ich hab es mit UCase probiert und jetzt findet er mir die Daten in der Tabelle. Wenn ich jetzt aber etwas großgeschrieben in meine Textbox eingebe, findet er es nicht mehr, obwohl es in der Tabelle großgeschrieben ist.
Kann ich nicht beides kombinieren, sodass meine Daten gefunden werden, egal ob ich es groß oder kleingeschrieben habe?
In meiner Tabelle steht z.B. Tür. Wenn ich in meine Textbox "tür" eingebe findet ers, wenn ich aber "Tür" eingebe findet ers nicht!???

Gruß Patricia

 

Hallo Patricia,

du musst doch ganz einfach mit UCase bzw. LCase deinen eingegebenen Text nur auf ein einheitliches (groß oder klein geschriebenes Format) bringen.

If UCase(Bereich.Offset(0, 7)) = "TÜR" Or cboVerantwortlich.ListIndex = -1) And

oder aber

If LCase(Bereich.Offset(0, 7)) = "tür" Or cboVerantwortlich.ListIndex = -1) And

Gruß Peter