Thema: Artikelauswahl

Home

Es wird eine UserForm mit den Artikeln aus dem Datenblatt aufgerufen. Die ausgewählten Artikel werden in der Rechnung eingetragen. Artikelauswahl

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Artikel in ListBox eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Artikel eintragen

Code:


Private Sub UserForm_Initialize()
   Dim rng As Range
   Set rng = Worksheets("Daten").Range("A1").CurrentRegion
   lstArtikel.List = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, _
      rng.Columns.Count).Value
End Sub

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Artikel in Arbeitsblatt eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle Listenelemente bilden
- Wenn das Listenelement ausgewählt ist...
- Datensatz eintragen
- UserForm schließen

Code:


Private Sub cmdOK_Click()
   Dim iRowL As Integer, iRow As Integer, iCounter As Integer
   iRowL = Cells(21, 1).End(xlUp).Row + 1
   iRow = 1
   For iCounter = 0 To lstArtikel.ListCount - 1
      If lstArtikel.Selected(iCounter) Then
         iRow = iRow + 1
         Cells(iRow, 1) = Worksheets("Daten").Cells(iCounter + 2, 1)
         Cells(iRow, 2) = Worksheets("Daten").Cells(iCounter + 2, 2)
         Cells(iRow, 3) = Worksheets("Daten").Cells(iCounter + 2, 3)
         Cells(iRow, 5).Formula = "=RC[-2]*RC[-1]"
      End If
   Next iCounter
   Unload Me
End Sub