Frage : Schreiben cbo Wert zur aktiven Zelle

Hallo schreibt Experts

The okClick Ereignis den Wert, der in cboEquipment auf Benutzerform zur aktiven Zelle vorgewählt wird.  Dieses ist für das cboEquipment adaequat, aber die Benutzerform hat zwei combos.  Wie addiere ich cboEmployees Wert, wenn dieses kombinierte anstatt vorgewählt wird?  

Thanks 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private 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
            
Enden-Unterseeboot

Antwort : Schreiben cbo Wert zur aktiven Zelle

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
Weitere Lösungen  
 
programming4us programming4us