Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles _
  btnBuchen.Click
        Dim Saldo As Integer = 0
        For Each row As DataGridViewRow In dgvDaten.Rows
            Saldo += Convert.ToInt32(row.Cells(3).Value)
        Next
        If ComboBox1.SelectedIndex = -1 Then Return
        If txtBuchungstyp.Text = "Ausgabe" Then
            dt.Rows.Add(dtpDatum.Value.ToShortDateString, _
              txtVerwendungszweck.Text, txtBuchungstyp.Text, nudBetrag.Value, _
              Saldo - nudBetrag.Value)
            txtVerwendungszweck.Text = ""
            txtBuchungstyp.Text = ""
            nudBetrag.Value = 0
            ComboBox1.SelectedIndex = -1
        Else
            dt.Rows.Add(dtpDatum.Value.ToShortDateString, _
              txtVerwendungszweck.Text, txtBuchungstyp.Text, nudBetrag.Value, _
              Saldo + nudBetrag.Value)
            txtVerwendungszweck.Text = ""
            txtBuchungstyp.Text = ""
            nudBetrag.Value = 0
            ComboBox1.SelectedIndex = -1
        End If
    End Sub