Thema: Tabelle einlesen und Auswahl eintragen

Home

Die Tabelle aus diesem Arbeitsblatt wird in die 3spaltige ListBox eingelesen. Bei Auswahl eines Artikels wird die Artikelnummer in Zelle D1 eingetragen. Tabelle einlesen und Auswahl eintragen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Tabelle einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Index der letzten Zelle mit Inhalt in Spalte A an eine Integer-Variable übergeben
- Inhalt der Spalte A in die ListBox einlesen

Code:


Private Sub UserForm_Initialize()
   Dim iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   lstMulti.List = Range( _
      Cells(2, 1), Cells(iRowL, 3)).Value
End Sub

Prozedur: lstMulti_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auswahl eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Ausgewähltes ListBox-Element in Zelle D1 eintragen

Code:


Private Sub lstMulti_Click()
   Range("D1") = lstMulti.Value
End Sub