VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellwerte UserForm-TextBoxwerte hinzuaddieren

Gruppe

Dialog

Bereich

TextBox

Thema

Zellwerte UserForm-TextBoxwerte hinzuaddieren

Problem

Auf UserForm-Schaltflächendruck sollen zu Zellwerten TextBox-Werte hinzuaddiert werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.




ClassModule: frmAddieren

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

Private Sub cmdCancel_Click()
   Unload Me
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmAddieren.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox