String exakt compare
05.06.2018 10:17:58
Antonio
mit dem Code:
Private Sub ListBox4_Click()
TextBox1.Value = ListBox4.Value
Dim arr() As Variant
Dim z As Long, i As Long, lngLetzter As Long
Dim shQuelle As Worksheet
Set shQuelle = Sheets("Chord1")
With shQuelle
lngLetzter = .Cells(.Rows.Count, 1).End(xlUp).Row
If TextBox1.Value = "" Then
ListBox5.RowSource = .Name & "!A2:A" & lngLetzter
Else
ListBox5.RowSource = ""
ListBox5.Clear
For z = 1 To lngLetzter
If LCase(Left(.Cells(z, 1).Text, Len(TextBox1))) = LCase(TextBox1) Then
ReDim Preserve arr(i)
arr(i) = .Cells(z, 1)
i = i + 1
End If
Next
If i Then ListBox5.List = arr
End If
End With
End Sub
hole ich mir die Tabelleneinträge, nach TextBox1 Eintrag, in LB5.
Tabelle ist so aufgebaut:
C
C
C
C#
C#
C#
Db
Db
Db
D
D
D
usw.
Leider wenn in TB1 der Eintrag "C" steht listet mir der LB5 auch die "C#"
das gilt auch für "Db" und "D" usw.
Wie can ich diesem Code Ändern das nur die String ausgegeben werden wie in TextBox der Fall ist?
Ich kann verstehen das alles mit "C" anfängt aufgelistet wird also "C" und "C#", ich komme leider nicht dahinter wo die Änderung sein soll oder ist der Code überhaupt nicht geeignet für mich.
Vielleicht habt ihr eine idee zu veränderung des Codes oder eine völlige neue Idee.
Vielen Dank in Voraus
Antonio
Anzeige