Gross und kleinschreibung
11.02.2021 13:04:29
Andre
Ich habe ein Problem mit der Groß und Kleinschreibung in Excel ich lasse über folgenden Code _ eine Listbox füllen möcht aber das Excel Groß und Kleinschreibung nicht beachtet. Wie muss ich den Code ändern dass es funktioniert
Private Sub TextBox1_Change()
'Nicht benötigte Zeilen aus der ListBox entfernen
Dim i As Integer
Dim lngLaenge As Long
Dim strText As String
Me.ListBox1.Clear
UserForm_Initialize
lngLaenge = Len(Me.TextBox1.Value)
If Left(Me.TextBox1.Value, 1) = "*" Then
strText = LCase(Replace(Me.TextBox1.Value, "*", ""))
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If InStr(Me.ListBox1.List(i, 0), strText) > 0 Or _
InStr(Me.ListBox1.List(i, 1), strText) > 0 Or _
InStr(Me.ListBox1.List(i, 2), strText) > 0 Or _
InStr(Me.ListBox1.List(i, 3), strText) > 0 Or _
InStr(LCase(Me.ListBox1.List(i, 4)), strText) > 0 Then
Else
Me.ListBox1.RemoveItem i
End If
Next i
Else
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Left(Me.ListBox1.List(i, 0), lngLaenge) = Me.TextBox1.Value Or _
Left(Me.ListBox1.List(i, 1), lngLaenge) = Me.TextBox1.Value Or _
Left(Me.ListBox1.List(i, 2), lngLaenge) = Me.TextBox1.Value Or _
Left(Me.ListBox1.List(i, 3), lngLaenge) = Me.TextBox1.Value Or _
LCase(Left(Me.ListBox1.List(i, 4), lngLaenge)) = LCase(Me.TextBox1.Value) Then
Else
Me.ListBox1.RemoveItem i
End If
Next i
End If
End Sub
Gruss Andre