Microsoft Office Tutorials and References
In Depth Information
11.4.8 Unterdialogfeld »Artikel Ändern«
ListeArtikelFuellen Me
End Sub
Da dieser Vorgang auch im Unterdialogfeld Bestellungen Neu benötigt
wird, wurde eine Prozedur ListeArtikelFuellen() im gemeinsamen
Modul geschrieben. Es folgt die Prozedur aus dem gemeinsamen Modul:
Artikel auflisten
' Liste mit Artikeln füllen,
' die zu ausgewählter Kategorie passen
Public Sub ListeArtikelFuellen(frm As UserForm)
Dim Zeile As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Artikel").Activate
' Zeilen mit ausgewählter Kategorie
' in 2. Liste eintragen
frm.cmbArtikelnameSuchen.Clear
Zeile = 2
Do While Cells(Zeile, 3).Value <> ""
If Cells(Zeile, 3).Value = _
frm.cmbKategorieSuchen.Text Then
frm.cmbArtikelnameSuchen.AddItem _
Cells(Zeile, 2).Value
End If
Zeile=Zeile+1
Loop
' Ersten Eintrag anzeigen, falls Einträge vorhanden
If frm.cmbArtikelnameSuchen.ListCount > 0 Then
frm.cmbArtikelnameSuchen.ListIndex = 0
End If
End Sub
Zur Erläuterung:
Das Kombinationsfeld für die Artikel wird vor dem Füllen vollständig
geleert.
Die Artikeltabelle wird Zeile für Zeile durchsucht. Falls sich ein Arti-
kel in der ausgewählten Kategorie befindet, wird er dem Kombinati-
onsfeld für die Artikel hinzugefügt.
Artikeltabelle
filtern
Falls das Kombinationsfeld für die Artikel mindestens einen Eintrag
enthält, wird der erste Eintrag ausgewählt. Dies führt mit Hilfe der
Search JabSto ::




Custom Search