Werte aus Kombinarionsfeld (Formularsteuerelement) zu einer Summe addieren

[Klaus-Dieter]

Hallo Coraxt,

du hast in deiner Datei für jeden Tag eine feste Anzahl von Eingabemöglichkeiten. Fällt da jeden Tag die gleiche Datenmenge an, oder bleiben da auch Zeilen frei?

[Coraxt]

Hallo,

es bleiben auch zeilen frei. Je nach Bedarf.

Noch eine Frage zu aktivex elementen.
Dieser Code gibt ja eine Zahl aus, wie ereiche ich das auch eine leere Zelle akzeptiert wird, damit das Feld auch als leer angezeigt werden kann. Bekomme mit einer leeren zelle einen Laufzeitfehler.

Code:

Private Sub ComboBox1_Change()
   Range("E3") = CInt(ComboBox1.Text)
End Sub

[Kuwer]

Hallo,

Code:

Private Sub ComboBox1_Change()
  If IsNumeric(ComboBox1.Text) Then
    Range("E3").Value = CLng(ComboBox1.Text)
  Else
    Range("E3").Value = ""
  End If
End Sub

Gruß Uwe