ich suche mit diesen Codeteil:
varTeam = Me.TextBox7 'Me.FilterBox1.Text
varMonat = Me.TextBox8 ' Me.FilterBox2.Text
varStatus = Me.TextBox9 'Me.FilterBox3.Text
varStatus4 = Me.TextBox10 'Me.FilterBox4.Text
For lZeile = LBound(arrListeAlle) To UBound(arrListeAlle)
'ich glaube hier ist der wurm drinnen
If (varTeam = "(Alle)" Or varTeam = "" Or varTeam = arrListeAlle(lZeile, 2)) And _
(NrMonat = 0 Or NrMonat = Month(CDate(arrListeAlle(lZeile, 4)))) And _
(varStatus = "(Alle)" Or varStatus = "" Or varStatus = arrListeAlle(lZeile, 8)) And _
(varStatus4 = "(Alle)" Or varStatus4 = "" Or varStatus4 = arrListeAlle(lZeile, 9)) Then
lAnzahl = lAnzahl + 1
col.Add lZeile
End If
Next
~f~
den Wert aus der Textbox10. Mit der genaue Übereinstimmung funktioniert dies auch schon super.
Jetzt möchte ich diesen Teil so anpassen das ich nicht nach einer genauen Übereinstimmung suche, sondern nach einem Wortteil .
Oder besser ausgedrückt .
Ich suche in der Tabelle Spalte 9 alle Werte die den String aus der textbox10 enthalten.
Ich weis das dies irgendwie mit Like funktionieren müsste. Aber ich bekomme den Ausdruck einfach nicht hin.
Einer meiner derzeitigen Versuche like einzusetzen funktionieren leider nicht.
~f~
varStatus4 Like arrListeAlle(lZeile, 9)
~f~
hat jemand einen Rat für mich?
das ganze Marco sieht so aus:
~f~
Dim lZeile As Long
Dim lZeileMaximum As Long
Dim i As Integer
Dim lAnzahl As Long
Dim col As New Collection
Dim varTeam, varStatus4, varMonat, varStatus As String
Dim NrMonat As Integer
varTeam = Me.TextBox7 'Me.FilterBox1.Text
varMonat = Me.TextBox8 ' Me.FilterBox2.Text
varStatus = Me.TextBox9 'Me.FilterBox3.Text
varStatus4 = Me.TextBox10 'Me.FilterBox4.Text
For lZeile = LBound(arrListeAlle) To UBound(arrListeAlle)
'ich glaube hier ist der wurm drinnen
If (varTeam = "(Alle)" Or varTeam = "" Or varTeam = arrListeAlle(lZeile, 2)) And _
(NrMonat = 0 Or NrMonat = Month(CDate(arrListeAlle(lZeile, 4)))) And _
(varStatus = "(Alle)" Or varStatus = "" Or varStatus = arrListeAlle(lZeile, 8)) And _
(varStatus4 = "(Alle)" Or varStatus4 = "" Or varStatus4 Like arrListeAlle(lZeile, 9)) Then
lAnzahl = lAnzahl + 1
col.Add lZeile
End If
Next
If lAnzahl > 0 Then
'Array für Listendaten dimensionieren
ReDim arrListe(1 To lAnzahl, 1 To 22)
'Listendaten in Array einlesen
For lAnzahl = 1 To col.Count
lZeile = arrListeAlle(col(lAnzahl), 1)
arrListe(lAnzahl, 1) = lZeile
arrListe(lAnzahl, 2) = CStr(Tabelle1.Cells(lZeile, 1).Text)
arrListe(lAnzahl, 3) = CStr(Tabelle1.Cells(lZeile, 2).Text)
arrListe(lAnzahl, 4) = CStr(Tabelle1.Cells(lZeile, 3).Text)
arrListe(lAnzahl, 5) = CStr(Tabelle1.Cells(lZeile, 4).Text)
arrListe(lAnzahl, 6) = CStr(Tabelle1.Cells(lZeile, 5).Text)
arrListe(lAnzahl, 7) = CStr(Tabelle1.Cells(lZeile, 6).Text)
arrListe(lAnzahl, 8) = CStr(Tabelle1.Cells(lZeile, 7).Text)
arrListe(lAnzahl, 9) = CStr(Tabelle1.Cells(lZeile, 8).Text)
arrListe(lAnzahl, 10) = CStr(Tabelle1.Cells(lZeile, 9).Text)
arrListe(lAnzahl, 11) = CStr(Tabelle1.Cells(lZeile, 10).Text)
Next lAnzahl
Me.ListBox1.List = arrListe
Else
Me.ListBox1.Clear
End If
Set col = Nothing
Habt schon mal rechtvielen dank für euer interesse.
mfg thomas