Fehler bei Combobox füllen
24.02.2016 14:51:08
ludicla
Hey Profis
ich habe eine UF mit 2 Comboboxen, bei der ich 2 Zellen mit
initialisieren einlese.
mit dem Commandbutton will ich wieder zurückschreiben.
Warum klappt das nur wenn ich bei Combos mit Werten fülle,
und bei Nichteingaben einer Box knallt er raus.
bei den Boxen teile ich durch hundert.
hier der Code
Private Sub CommandButton1_Click()
Range("E73") = CDbl(ComboBox1.Value) / 100
Range("E75") = CDbl(ComboBox2.Value) / 100
ComboBox1.Value = Format((ComboBox1.Value), "#,##0.00") & " %"
ComboBox2.Value = Format((ComboBox2.Value), "#,##0.00") & " %"
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Value = Format((ComboBox1.Value), "#,##0.00%")
ComboBox2.Value = Format((ComboBox2.Value), "#,##0.00%")
ComboBox1.Value = Range("E73")
ComboBox2.Value = Range("E75")
End Sub
Was muss ich ändern damit die UF nicht abbricht wenn ich einen eingelesenen Wertnicht überschreibe ??
Gruss Ludicla