Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Bestellfax über Dialog

Gruppe

ComboBox

Problem

Wie kann ich Bestellartikl über einen Dialog auswählen und in eine Faxbestellung eintragen lassen?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmArtikel

Private Sub cboArtikel_Change()
   With Worksheets("Artikelliste")
      TextBox1.Text = _
         .Cells(cboArtikel.ListIndex + 2, 1).Value
      TextBox2.Text = _
         .Cells(cboArtikel.ListIndex + 2, 3).Value
   End With
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iRow As Integer
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   Cells(iRow, 1).Value = TextBox1.Text
   Cells(iRow, 2).Value = cboArtikel.Value
   Cells(iRow, 3).Value = TextBox3.Text
   Cells(iRow, 4).Value = TextBox2.Text
   Cells(iRow, 5).Value = _
      Cells(iRow, 3).Value * Cells(iRow, 4).Value
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer
   iRow = 2
   With Worksheets("Artikelliste")
      Do Until IsEmpty(.Cells(iRow, 1))
         cboArtikel.AddItem .Cells(iRow, 2).Value
         iRow = iRow + 1
      Loop
   End With
   cboArtikel.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmArtikel.Show
End Sub