AW: Userform und abhängige Comboboxen füllren
21.12.2014 13:14:41
Hajo_Zi
Combobox1 konnte ich ja noch finden, obwohl Sie nicht den Namen "Combobo1 hat. die weiteren Konnte ich nicht finden. Das wolltest Du bestimmt selber lösen. Ich speichere keine Datei von Herber, darum keine weitere Lösung.
Private Sub UserForm_Activate()
With Worksheets("Stammdaten Reinigung")
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count)
For LoI = 2 To LoLetzte
If .Cells(LoI, 1) "" Then
If WorksheetFunction.CountIf(.Range("a1:a" & LoI), .Cells(LoI, 1)) = 1 Then
cboAnlagenname.AddItem .Cells(LoI, 1)
End If
End If
Next LoI
End With
End Sub
'dieser Bereich übernimmt automatisch Werte in das Formular, z. B Datum und Combo Boxen _
Auswahlen
Private Sub UserForm_Initialize()
Dim rngKategorien As Range
With Me
.txtDatum.Value = Date
.txtArtikeltext.Text = Worksheets("Vorgabedaten").Range("F10").Value
.txtGebinde.Text = Worksheets("Vorgabedaten").Range("G10").Value
.txtAuftragsnummer.Text = Worksheets("Vorgabedaten").Range("H10").Value
'.cboAnlagenname.Text = Worksheets("Vorgabedaten").Range("K4").Value
.txtMaterialnummer.Text = Worksheets("Vorgabedaten").Range("I10").Value
.txtKalenderwoche.Text = dt_Kalenderwoche(Date)
.txtoffeneMenge.Text = Worksheets("Vorgabedaten").Range("M6").Value
.txtPlanmenge.Text = Worksheets("Vorgabedaten").Range("S4").Value
.txtMonat.Text = Format(Date, "MM")
.txtProduktMHD.Text = Worksheets("Vorgabedaten").Range("X2").Value
.cboSchichtfuehrer.List = Range("Schichtführer").Value
.cboSchicht.List = Range("Schichtnummer").Value
.cboAnzahlMA.List = Range("AnzahlMA").Value
.cboReinigung.List = Range("Reinigungen").Value
.cboOrgStillstand.List = Range("organisatorische_geplante_Stillstände").Value
.cboUrsacheInfrastruktur.List = Range("Infrastruktur_Ursache").Value
.cboUrsacheOrganisation.List = Range("organisatoirsche_ungepl_Stillstände").Value
.cboAnlagenteil.List = Range("anlagenteil").Value
.cboPreform.List = Range("Preformfehler").Value
'.cboAnlagenname.List = Range("Anlagenname").Value
.cboArtUmstellung.List = Range("ArtUmstellung").Value
.cboRepAbgeschlossen.List = Range("EntscheidungJA_Nein").Value
End With
End Sub