Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

String exakt compare

Forumthread: String exakt compare

String exakt compare
05.06.2018 10:17:58
Antonio
Hallo Gemeinde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String exakt compare
05.06.2018 10:21:03
Rudi
allo,
da musst du ändern:
If LCase(Left(.Cells(z, 1).Text, Len(TextBox1))) = LCase(TextBox1) Then
if .cells(z,1)=textbox1 then
Gruß
Rudi
AW: String exakt compare
05.06.2018 10:27:48
Antonio
Hi Rudi,
Das war's, vielen Dank
Antonio
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige