Hallo Chris,
sieht doch schon ganz gut aus. Ich hoffe mit meinen Aenderungen kannst du weiterarbeiten.
Die Aenderungen, die ich vorgenommen habe:
1. Combobox2 auf 2 Spalten erweitert, 2. Spalte nicht sichtbar
2. Befuellen der Combobox2 in Userform_Initialize veraendert, damit beide Spalten befuellt werden
Dim a As Long, c As Long
a = Sheets("Prüffristen").Cells(Rows.Count, 2).End(xlUp).Row
With ComboBox2
.Clear
For c = 3 To a
.AddItem
.List(.ListCount - 1, 0) = Sheets("Prüffristen").Cells(c, 2)
.List(.ListCount - 1, 1) = Sheets("Prüffristen").Cells(c, 6)
Next c
End With
3. Die Zeile zur Anzeige im Label in Combobox2_Change hinzugefuegt
Label29.Caption = ComboBox2.List(ComboBox2.ListIndex, 1)
Das wars eigentlich. Wenn du noch Hilfe brauchst, melde dich. Hiewr die Datei zurueck:
https://transferxl.com/08j7rSVNC4n17B
|