Bei OptionButton1 ListIndex + 1
07.03.2014 20:09:20
Heinz
Im unteren Code werden mir Daten über ComboBoxDatum eingetragen.
Funktioniert auch.
Nun füge ich einen OptionButton1 hinzu,dazu müsste ich bei
Zeile = ComboBoxDatum.ListIndex + 2
ändern in
Zeile = ComboBoxDatum.ListIndex + 1
Aber nur wenn OptionButton1 angeklickt wurde.Wenn nicht,dann alles so wie im Code.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß,Heinz
Private Sub ComboBoxDatum_Change()
Zeile = ComboBoxDatum.ListIndex + 2
ComboBoxSchicht.Value = Format(ComboBoxSchicht.Value, ("dd.ddd.mm.yyyy"))
ComboBoxSchicht.ListIndex = -1
ComboBoxSchicht.Enabled = IIf(ComboBoxDatum.ListIndex > -1, 1, 0)
End Sub
Anzeige