Sie können dem Code für die cboEmployees die Schleife nachlaufen
Privates VorcmdOK_Click ()
ActiveWorkbook.Sheets („DTS“). Aktivieren
Strecke („C15“). Auserwählt
Tun
Wenn IsEmpty (ActiveCell) = falsch dann
ActiveCell.Offset (1, 0). Auserwählt
Beenden wenn
Bis IsEmpty (ActiveCell) schlingen = ausrichten
ActiveCell.Value = cboEquipment.Value
'-----------------------------------------------
ActiveWorkbook.Sheets („DTS“). Aktivieren
Strecke („C16“). Auserwählt
Tun
Wenn IsEmpty (ActiveCell) = falsch dann
ActiveCell.Offset (1, 0). Auserwählt
Beenden wenn
Bis IsEmpty (ActiveCell) schlingen = ausrichten
ActiveCell.Value = cboEmployee.Value
Enden-Unterseeboot