Private Sub btnspeichern_Click(sender As Object, e As EventArgs) Handles _
   btnspeichern.Click
        Dim NL = Environment.NewLine
        Dim Titel As String = "Buchungsmeldung"
        Dim Merker_Betrag As Double
        '#
        Merker_Betrag = Format(CDbl(nud_Betrag_Eingabe.Value), "#,0.00")
 
        'Eingaben in TextBoxen prüfen
        If String.IsNullOrEmpty(BuchungsdatumTextBox.Text) Then : _
          Fehler_Pflichtfeld_Angelegt("Datum:") : Return : End If
        If String.IsNullOrEmpty(BuchungsartTextBox.Text) Then : _
        Fehler_Pflichtfeld_Buchungsart("Buchungsart:") : Return : End If
        If String.IsNullOrEmpty(KategorieTextBox.Text) Then : _
        Fehler_Pflichtfeld_Kategorie("Kategorie:") : Return : End If
        If String.IsNullOrEmpty(KommentarTextBox.Text) Then : _
        Fehler_Pflichtfeld_Kommentar("Kommentar:") : Return : End If
 
        'Datensatz Modus prüfen
        If (chb_Status_Neu.Checked = True) And (Merker_Betrag = 0) Then
            'Daten erst nach Meldung speichern 
            MessageBox.Show("Geben Sie Bitte einen Betrag ein.")
        ElseIf (chb_Status_berabeiten.Checked = True) And (Merker_Betrag = 0) _
          Then
            'Daten erst nach Meldung speichern 
            MessageBox.Show("Sie müssen noch einen Betrag eingeben.")
        ElseIf (chb_Status_berabeiten.Checked = True) And ( _
          BS_Kontodetails_TypRow.Betrag <> Merker_Betrag) Then
            'Datarow prüfen
            Meldung_Status_OK_aendern()
        Else
            Meldung_Status_OK()
        End If
 
    End Sub

 Private Sub Meldung_Status_OK_aendern()
        Dim NL As String = Environment.NewLine
        Dim Titel As String = "Buchungsmeldung"
        Dim istval = Format(CDbl(BS_Kontodetails_TypRow.Betrag), "#,0.00")
        Dim sollval = Format(CDbl(BetragTextBox.Text), "#,0.00")
        Dim Meldung As String = "Statusmeldung"
 
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & Format(Now, "dd.MM.yyyy HH:mm:ss")
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & "--------------Eingabe Wert: " & sollval
        Meldung = Meldung & NL & "############################"
        Meldung = Meldung & NL & "----------Datarow Wert Ist: " & istval
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & "-----Eingabewert übernehmen?"
 
        Dim Abfrage_Result As DialogResult = MessageBox.Show(Meldung, Titel, _
          MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
        If Abfrage_Result = System.Windows.Forms.DialogResult.OK Then
            _Speichern()
        Else
            _Eingabeabbrechen()
 
        End If
    End Sub