Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listbox füllen selektiv

Listbox füllen selektiv
07.08.2004 23:55:15
Achim
Hallo Leute,
VBA nein ist untertrieben aber leider auch nicht gut.
ich möchte gern in eine Listbox im userform Daten aus Tabelle1, Spalte A anzeigen lassen.
Da das ca. 5.000 Daten sind, hätte ich gern, dass ich z.B. in eine Textbox den ersten Buchstaben eingebe, z.B. ein b und dann alle Daten eingelesen werden, die mit B oder b anfangen. Erweitere ich die Eingabe in der Textbox auf ba, sollen nur noch die Daten angezeigt werden, die mit ba oder Ba beginnen. Also je mehr ich in die Textbox eingebe, desto selektiver soll die Liste werden.
Ist das so möglich und wenn ja, wie kann ich das realisieren?
Grüße Achim

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox füllen selektiv
08.08.2004 01:46:53
TGH
Hallo Achim, folgende Datei habe ich aus diesem Forum.Ist glaube ich von Nepumuk.
https://www.herber.de/bbs/user/9353.xls
Ist zwar nicht genau das, was Du suchst, aber den Rest kannst Du Dir ja basteln.
Gruss Thomas
AW: Listbox füllen selektiv
08.08.2004 07:26:15
GraFri
Hallo


Private Sub cmbDaten_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Static sTextOld     As String
Dim i               As Integer
Dim sPos            As Integer
  
  With cmbDaten
    ' nur wenn sich die Eingabe geändert hat
    If sTextOld <> .Text Then
      For i = 0 To .ListCount - 1
        If .List(i) Like .Text & "*" Then
          sPos = .SelStart
          sTextOld = .Text
          .Text = .List(i)
          .SelStart = sPos
          .SelLength = Len(.Text) - sPos + 1
          Exit For
        End If
      Next i
    End If
  End With
End Sub
Mit freundlichen Grüßen, GraFri
Anzeige
AW: Listbox füllen selektiv
Achim
Hallo,
danke, aber das bekomme ich nicht allein angepasst. Hat sich aber erledigt, das andere Beispiel passt.
Gruß Achim
AW: Listbox füllen selektiv
Achim
Hallo,
super, das hab ich umgebaut bekommen. Der Code ist aber nicht von Nepumuk, denn dessen
Beispiele und seinen Stil kenne ich.
Gruß Achim

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige