Thema: Artikel mit vorgegebenem Wortanfang in ComboBox listen

Home

Gruppe

Dialog

Problem

Bei Eingabe einer Zahl in Spalte A ab A3 soll eine UserForm-ComboBox mit den Artikeln erscheinen, deren Nummer im Blatt Material mit dieser Zahl beginnt.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 1 Then Exit Sub
   If Target.Row < 3 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   frmSelect.Show
ERRORHANDLER:
   Application.EnableEvents = True
End Sub
ClassModule: frmSelect

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iRow As Integer
   With Worksheets("Material")
      iRow = WorksheetFunction.Match(CInt(cboSelect.Value), .Columns(1), 0)
      ActiveCell.Value = .Cells(iRow, 1).Value
      ActiveCell.Offset(0, 1).Value = .Cells(iRow, 2).Value
      ActiveCell.Offset(0, 2).Value = .Cells(iRow, 3).Value
   End With
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer
   iRow = 4
   With Worksheets("Material")
      Do Until IsEmpty(.Cells(iRow, 1))
         If Left(.Cells(iRow, 1).Value, 1) = CStr(ActiveCell.Value) Then
            cboSelect.AddItem .Cells(iRow, 1).Value
         End If
         iRow = iRow + 1
      Loop
   End With
   If cboSelect.ListCount > 0 Then
      cboSelect.ListIndex = 0
   Else
      Unload Me
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox

mit combobox sortieren	Combobox Zeile in Array übernehmen
UserForm TextBox mit ComboBox Datum vergleichen	Dynamische Combobox ?
xlDialogInsertHyperlink.show	Zelleneingabe nur per Combobox erlauben
ComboBox	Combobox zurücksetzen
ComboBOx	ComboBox
sverweis auf combobox	FILTER; COMBOBOX
Arbeitmappen über Dialogfeld zusammen fassen	Sortierung in ComboBox zweispaltig erfolgt falsch
Combobox, CheckBox, TextBox Formatierung	Formatierung Dezimalzahlen bei Combobox-Eingaben
5.0 Dialog	Dynamische Comboboxen anpassen
Combobox mit Auswahl	Speichern unter Dialog in Word aufrufen inkl. Pfad
ComboBox	Überlauf bei Befüllen einer ComboBox
In zwei ComboBox die gleiche Spalte einlesen	Druckerdialog
ComboBox Eintragen	transponieren mit combobox
Dateityp im "Speichern unter"-Dialog vorgeben	combobox mit tabelleninhalt??
Makro stoppen, wenn Excel-Dialog?	xlDialogOpen anpassen
ComboBox mit Hyperlink	Combobox füllen
Klick in definierten Rangebereich startet Dialog	in jeder angeklickte Zelle Auswahl durch Combobox
Mehrspaltige Combobox füllen	Breite einer Combobox beim öffnen definieren
Daten in Combobox einlesen bzw. andere Ausgabe	ComboBox mit CommandButton verknüpfen
Datum ohne Doppelte in ComboBox einlesen	mehrere Comboboxen
Verküpfung zwei verschiedener ComboBoxen	verknüpfung von zwei verschiedenen ComboBoxen
ComboBox	mehrspaltige Combobox
Suche in ListBox-Ausgabe ComboBox	Text für ComboBox hinterlegen
2.Eintrag aus ComboBox in aktive Zelle	berechnen mit Combobox
Textbox abhängig von Combobox- Bin ich zu dumm?	ComboBoxDaten in Abhängigkeit filtern o. Userform