fcs - Suche, noch eine "Kleinigkeit"
20.07.2014 18:45:48
Günter
In einer Userform hab ich ein Suche-Textfeld.
Momentan wird in Spalte 12 gesucht, es soll aber auch Spalte A (also 1?) in die Suche mit einbezogen werden.
Ich denke ja, das dies das richtige Teil ist:
Private Sub FilterSicherungsdateien(Optional bolAlle As Boolean = False)
Dim Zeile As Long, arrListe(), intItem As Integer, Spalte As Integer
Dim bolTreffer As Boolean, bolKriterium As Boolean
Dim intJ As Integer
For Zeile = LBound(arrData, 1) To UBound(arrData, 1)
bolTreffer = False
If bolAlle = True Then
bolTreffer = True
Else
bolKriterium = False
With Me.txbVerwendung
If .Value = "" Then
bolKriterium = True
Else
If Me.ckbGrossKlein = True Then
If InStr(1, arrData(Zeile, 12), .Value, vbBinaryCompare) > 0 Then bolKriterium = _
True
Else
If InStr(1, arrData(Zeile, 12), .Value, vbTextCompare) > 0 Then bolKriterium = True
End If
End If
End With
If bolKriterium = False Then GoTo KeinTreffer
With Me.lbxJahr
bolKriterium = False
For intJ = 0 To .ListCount - 1
If .Selected(0) = True _
Or (.Selected(intJ) = True And (.List(intJ, 0) = arrData(Zeile, 5))) Then
bolKriterium = True
Exit For
End If
Next
End With
If bolKriterium = False Then GoTo KeinTreffer
With Me.lbxMaschinen
bolKriterium = False
For intJ = 0 To .ListCount - 1
If .Selected(0) = True _
Or (.Selected(intJ) = True And (.List(intJ, 0) = arrData(Zeile, 4))) Then
bolKriterium = True
Exit For
End If
Next
End With
If bolKriterium = False Then GoTo KeinTreffer
bolTreffer = True
KeinTreffer:
End If
If bolTreffer = True Then
intItem = intItem + 1
ReDim Preserve arrListe(1 To 12, 1 To intItem)
For Spalte = 1 To 12
arrListe(Spalte, intItem) = arrData(Zeile, Spalte)
Next
End If
Next Zeile
Me.lstSicherungsdateien.Clear
If intItem > 0 Then
Me.lstSicherungsdateien.Column = arrListe
End If
End Sub
Ich hoffe, das mir jemand helfen kann.
Gruss,
Günter