Thema: Werte in Zellen addieren

Download Beispiel-Arbeitsmappe

Home

Abbildung - Vorher
Vorher

Abbildung - Nachher
Nachher

Prozedur: cmdAddieren_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte in Zellen addieren
Ablaufbeschreibung:
- Wenn TextBox1 nicht leer ist...
- Zu Double konvertierten TextBox-Eintrag dem Wert in Zelle A1 hinzuaddieren
- Wenn TextBox2 nicht leer ist...
- Zu Double konvertierten TextBox-Eintrag dem Wert in Zelle B3 hinzuaddieren
- Wenn TextBox3 nicht leer ist...
- Zu Double konvertierten TextBox-Eintrag dem Wert in Zelle C6 hinzuaddieren

Code:


Private Sub cmdAddieren_Click()
   If TextBox1.Text <> "" Then
      Range("A1").Value = Range("A1").Value + CDbl(TextBox1.Text)
   End If
   If TextBox2.Text <> "" Then
      Range("B3").Value = Range("B3").Value + CDbl(TextBox2.Text)
   End If
   If TextBox3.Text <> "" Then
      Range("C6").Value = Range("C6").Value + CDbl(TextBox3.Text)
   End If
End Sub