Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema ListBox | |
|---|---|
 Screenshot zu ListBox |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema TextBox | |
|---|---|
 Screenshot zu TextBox |
TextBox-Seite mit Beispielarbeitsmappe aufrufen |
Befüllen einer Listbox
- Befüllen einer Listbox von Dirk vom 09.09.2014 15:23:30
- AW: Befüllen einer Listbox - von Rudi Maintaire am 09.09.2014 15:32:58
- AW: Befüllen einer Listbox - von Dirk am 09.09.2014 17:40:58
- AW: Befüllen einer Listbox - von Rudi Maintaire am 10.09.2014 09:24:38
- AW: Befüllen einer Listbox - von Rudi Maintaire am 10.09.2014 09:24:38
- AW: Befüllen einer Listbox - von Dirk am 09.09.2014 17:40:58
 |
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 SubGruß
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
| |