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

Textboxen aus Tabelle mit Hilfe von Listboxauswahl


Betrifft: Textboxen aus Tabelle mit Hilfe von Listboxauswahl von: Christian
Geschrieben am: 09.10.2019 14:03:00

Hallo zusammen,

ich verzweifel gerade an einem Problem.

Ich habe eine Tabelle in der ich in Spalte D Artikelbezeichnungen und in Spalte E die Artikelpreise eingetragen habe.

Nun habe ich in einem Formular eine Listbox, die ich mit Werten aus Spalte D (Artikel) befüllt habe:

ListBox1.Clear
For i = 2 To Worksheets("Daten").Cells(Rows.Count, 4).End(xlUp).Row
ListBox1.AddItem
ListBox1.List(a, 0) = Worksheets("Daten").Cells(i, 4)
a = a + 1
Next i

Nun möchte ich, wenn eine Zeile in der Listbox ausgewählt wird, aus dem Tabellenblatt den entsprechenden Preis aus Spalte E in einer Textbox ausgeben.

Hierfür nutze ich ListBox1_Change().

Leider habe ich trotz stundenlanger Versuche keine Lösung gefunden, wie ich aufgrund der Listboxwerte die passenden Preisdaten finde und in die Textbox bekomme.

Ich hoffe, das mir hier jemand helfen kann.

LG
Christian

  

Betrifft: AW: Textboxen aus Tabelle mit Hilfe von Listboxauswahl von: Torsten
Geschrieben am: 09.10.2019 14:11:20

Hallo,

einfachste Loesung:
Mach die Listbox 2spaltig, lade die Preise gleich mit rein. Die Spalte mit den Preisen kannst du ja mit Breite 0 ausblenden. Dann in der Textbox einfach den Wert der 2ten Listboxspalte des gewaehlten Werts ausgeben.

Gruss Torsten


  

Betrifft: AW: Textboxen aus Tabelle mit Hilfe von Listboxauswahl von: Werner
Geschrieben am: 09.10.2019 14:33:31

Hallo Christian,

wieso hast du eine Listbox mit zwei Spalten, wenn du sie nur mit den Daten aus Spalte D befüllst?

Befüllen der Listbox:

Private Sub UserForm_Initialize()
Dim i As Long

ListBox1.Clear

For i = 2 To Worksheets("Daten").Cells(Rows.Count, 4).End(xlUp).Row
    ListBox1.AddItem Worksheets("Daten").Cells(i, 4)
Next i
End Sub
Daten aus Spalte E in die Textbox
Private Sub ListBox1_Click()
Me.TextBox1 = Worksheets("Daten").Cells(Me.ListBox1.ListIndex + 2, 5)
End Sub
Gruß Werner


  

Betrifft: Feedback ein Begriff? o.w.T. von: Werner
Geschrieben am: 15.10.2019 10:22:29




Beiträge aus dem Excel-Forum zum Thema "Textboxen aus Tabelle mit Hilfe von Listboxauswahl"