Sub Übernehmen_Click()
Dim intErsteLeereZeile As Long
Dim C As Long
Dim D As Long
Dim Summe As Long
C = WorksheetFunction.sum(Range("C:C"))
D = WorksheetFunction.sum(Range("D:D"))
Summe = C - D
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = CDate(Me.Datum.Value)
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.ListBox1.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.Kategorie.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = CDbl(Me.Zugang.Value)
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = CDbl(Me.Abgang.Value)
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Summe
MsgBox Summe, , "Aktueller Kontostand beträgt: "
Unload UserForm1
End Sub