Thema: Artikelbenennung in Labelfeld

Home

Über die Schaltfläche soll ein XL5-Dialog aufgerufen werden. Bei Eingabe einer Artikel-Nummer in ein Editfeld soll ein Bezeichnungsfeld die Artikelbenennung anzeigen. DialogSheet

Prozedur: ArtikelEintrag, der EditBox zugewiesen
Art: Sub
Modul: Standardmodul
Zweck: Bei Eingabe einer Artikelnummer die Artikelbezeichnung in eine Label-Aufschrift einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen zum aktiven Dialog bilden
- Die EditBox an eine Objektvariable übergeben
- Wenn die Textlänge 6 Zeichen beträgt...
- Die eingetragene Artikelnummer in der Artikelliste suchen
- Wenn die Artikelnummer nicht gefunden wurde...
- Negativmeldung
- EditBox-Inhalt löschen
- Sonst...
- Artikelbezeichnung in die Labelaufschrift eintragen

Code:


Sub ArtikelEintrag()
   Dim oEdt As EditBox
   Dim vRow As Variant
   With ActiveDialog
      Set oEdt = .EditBoxes("edtNumber")
      If Len(oEdt.Text) = 6 Then
         vRow = Application.Match(oEdt.Text, Columns(1), 0)
         If IsError(vRow) Then
            MsgBox "Artikelnummer wurde nicht gefunden!"
            oEdt.Text = ""
         Else
            .Labels("lblItem").Caption = Cells(vRow, 2).Value
         End If
      End If
   End With
End Sub

Prozedur: ArtikelAuswahl, dem DropDown-Feld zugewiesen
Art: Sub
Modul: Standardmodul
Zweck: Bei Auswahl einer Artikelnummer die Artikelbezeichnung in eine Label-Aufschrift einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen zum aktiven Dialog bilden
- Das DropDown-Feld an eine Objektvariable übergeben
- Artikelbezeichnung in die Labelaufschrift eintragen

Code:


Sub ArtikelAuswahl()
   Dim oDpd As DropDown
   Dim vRow As Variant
   With ActiveDialog
      Set oDpd = .DropDowns("dpdNumber")
      .Labels("lblItem").Caption = oDpd.List(oDpd.ListIndex)
   End With
End Sub