Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Befüllen einer Listbox

Betrifft: Befüllen einer Listbox von: Dirk
Geschrieben am: 09.09.2014 15:23:30

Hallo in's Forum,

ich möchte gerne eine Listbox in einer UF mit Daten füllen. Im Grunde kein Problem,
aber es sollen nur die Daten (Ansprechpartner) eingelesen werden, die einer entsprechenden Kunden-Nummer (steht in Spalte A) zugeordnet sind, und dies können mehrere Einträge sein.

Danke im Voraus für ein kleines VBA-Beispiel !

Grüße aus Hessen

Dirk

  

Betrifft: AW: Befüllen einer Listbox von: Rudi Maintaire
Geschrieben am: 09.09.2014 15:32:58

Hallo,
kunden in A, Ansprechpartner in B

Private Sub LBx_fuellen()
  Dim rngC As Range
  ListBox1.Clear
  With Tabelle1
    For Each rngC In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
      If rngC = TextBox1 Then
        ListBox1.AddItem rngC.Offset(, 1)
      End If
    Next
  End With
End Sub

Gruß
Rudi


  

Betrifft: AW: Befüllen einer Listbox von: Dirk
Geschrieben am: 09.09.2014 17:40:58

Hallo Rudi,

vielen Dank für Deine schnelle Antwort, aber es funktioniert leider nicht.
Hier noch ein paar Info's :
Die Quelldatei heißt "Ansprechpartner.xlsm"; Tabellenname "ASP"; Laufwerk "C:\Test\" und
es sollen mehrere Spalten mit eingelesen werden (Telefon, Fax, Mail, usw.).

Gruß

Dirk


  

Betrifft: AW: Befüllen einer Listbox von: Rudi Maintaire
Geschrieben am: 10.09.2014 09:24:38

Hallo,
dann eben

With Workbooks("Ansprechpartner.xlsm").Sheets("ASP")
  For Each rngC ....
Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Befüllen einer Listbox"