HERBERS Excel-Forum - die Beispiele

Thema: Dynamisch Blatt-ComboBoxes

Home

Gruppe

Dialog

Problem

Bei Auswahl des Blattes "Ergebnis" werden die ComboBoxes neu eingelesen. Eine Werteänderung einer ComboBoxes wirkt sich auf die andere aus.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub cboHersteller_Change()
   Dim iRow As Integer
   cboProdukt.Clear
   iRow = 2
   With Worksheets("Listen")
      Do Until IsEmpty(.Cells(iRow, 1))
         If .Cells(iRow, 1).Value = cboHersteller.Value Then
            cboProdukt.AddItem .Cells(iRow, 2).Value
         End If
         iRow = iRow + 1
      Loop
   End With
   If cboProdukt.ListCount > 0 Then
      cboProdukt.ListIndex = 0
   End If
End Sub

Private Sub cboProdukt_Change()
   Dim iRow As Integer
   iRow = 2
   With Worksheets("Listen")
      Do Until IsEmpty(.Cells(iRow, 1))
         If .Cells(iRow, 1).Value = cboHersteller.Value And _
            .Cells(iRow, 2).Value = cboProdukt.Value Then
            Cells(2, 3).Value = .Cells(iRow, 3).Value
            Exit Do
         End If
         iRow = iRow + 1
      Loop
   End With
End Sub

Private Sub Worksheet_Activate()
   Dim col As New Collection
   Dim iRow As Integer
   cboHersteller.Clear
   iRow = 2
   On Error Resume Next
   With Worksheets("Listen")
      Do Until IsEmpty(.Cells(iRow, 1))
         col.Add .Cells(iRow, 1).Value, .Cells(iRow, 1).Value
         iRow = iRow + 1
      Loop
      On Error GoTo 0
      For iRow = 1 To col.Count
         cboHersteller.AddItem col(iRow)
      Next iRow
   End With
   If cboHersteller.ListCount > 0 Then
      cboHersteller.ListIndex = 0
   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