Thema Datum  Von Nutzer Rating
Antwort
Rot Listview
 12.05.2014 16:58:17 Brando
NotSolved
12.05.2014 18:26:26 Gast57346
NotSolved
14.05.2014 14:00:42 Gast3534
NotSolved

Ansicht des Beitrags:
Von:
Brando		 Datum:
12.05.2014 16:58:17		 Views:
1343		 Rating:
     
Antwort:
  Ja
Thema:
Listview

Hallo, ich habe eine Textbox die ich als Suchfeld nutze und diese öffnet mir dann eine Userform und in Listview erhalte ich dann die Treffer. Wenn ein Name jedoch 3x vorkommt ist er auch dreimal in der Listview zur Auswahl. Ich kriege es leider nicht raus. Ich hoffe ihr könnt mir weiterhelfen:

Sub Name()

searchstring = TextBox1.Value
Dim resultarray(1 To 500) As String
Dim g As Integer
Dim j As Integer
 
t = 1
For i = 2 To 500
If InStr(1, Sheets("Tabelle1").Cells(i, 8), searchstring, vbTextCompare) <> 0 Then
   resultarray(t) = Sheets("Tabelle1").Cells(i, 8)

'mit dem nächsten Teil will ich die doppelten Filtern

    g = UserForm1.ListView1.ListItems.count
   
    Do While g > 1
        For j = g - 1 To 1 Step -1
            If UserForm1.ListView1.ListItems(j).Text = UserForm1.ListView1.ListItems(g).Text Then
                UserForm1.ListView1.ListItems.Remove j
                g = g - 1
            End If
        Next
        g = g - 1
    Loop
    t = t + 1
   
End If
Next i

'Sortierung und Anzeige der Listview

With UserForm1.ListView1
    .FullRowSelect = True
    .View = lvwReport
    .Sorted = True
    .SortOrder = lvwAscending
    .LabelEdit = lvwManual
    .ColumnHeaders.Add , , "Name", 400
End With

i = 1
While Not resultarray(i) = ""
    Set lvRes = UserForm1.ListView1.ListItems.Add(, , resultarray(i))
    i = i + 1
Wend

UserForm1.Show False

End Sub

 

Vielen Dank!!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Listview
 12.05.2014 16:58:17 Brando
NotSolved
12.05.2014 18:26:26 Gast57346
NotSolved
14.05.2014 14:00:42 Gast3534
NotSolved