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
Nabend zusammen,
wenn ich in meinem UserForm nichts in die Textbox (Me.Kategorie.Value) schreibe, soll ich die Möglichkeit besitzen über eine Listbox (Me.ListBox1.Value) einen Wert auszuwählen und dieser soll dann in die Zeile 2 übernommen werden. Aktuell ist bei Auswahl eines Wertes in der Listbox die Zeile 2 anschließend leer, sofern nichts in der Textbox steht. Was muss ich an dieser stelle tun ... ?
Wenn (Textbox leer)
Dann (Benutze Werte aus Listbox, die von mir ausgewählt werden)