Dropdownliste leeren und neu befüllen
28.11.2012 11:56:22
Alex
Folgendes Problem habe ich. Ich will abhängig vom Eintrag in einer anderen Comandbox
den Eintrag in "dieser Comandbox" festlegen,einmalig funktioniert das auch jedoch wenn ich in der ersten Box die Auswahl ändere fügt er nur den Eintrag hinzu.
Select Case cmbrbt
Case "KUKA"
cmbtyp.Clear
lblLAF.Caption = "Lastfall Vom/Am Roboter"
cmbtyp.RowSource = "'C:\Users\Techniker\TAKappler\[TaKappler.xlsm]KUKA'!B7:B200" _
'Datenbasis für KUKA
cmbLF.AddItem "Bitte Lastfall wählen"
cmbLF.AddItem "33%/33%"
cmbLF.AddItem "33%/66%"
cmbLF.AddItem "33%/100%"
cmbLF.AddItem "66%/33%"
cmbLF.AddItem "66%/66%"
cmbLF.AddItem "66%/100%"
cmbLF.AddItem "100%/33%"
cmbLF.AddItem "100%/66%"
cmbLF.AddItem "100%/100%"
cmbLF.ListIndex = 0
Case "ABB"
cmbtyp.Clear
lblLAF.Caption = "Nur STOP1 verfügbar"
cmbtyp.RowSource =_ "'C:\Users\Techniker\TAKappler[TaKappler.xlsm]ABB'!B7:B200"
cmbLF.AddItem "STOP1"
cmbLF.ListIndex = 0
Case "Fanuc"
lblLAF.Caption = "Noch Nicht Definiert"
cmbtyp.RowSource="'C:\Users\Techniker\TAKappler[TaKappler.xlsm]Fanuc'!B7:B200"
cmbLF.AddItem "#####"