<strong><em>Hi Marco,
das werde ich natürlich beim nächstenmal beachten !
Kannst du mir dabei weiter helfen ?
Der zeitwert der in TxtBox4 und TxtBox5 eingegeben wird muss subtrahiert werden und das ergebniss dann in der nächten freien zeile in spalte 6 ausgegeben werden.
lg Kjeld </em></strong>
Private Sub Button_Eingabe_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = TextBox_1
Cells(last, 2).Value = TextBox_2
Cells(last, 3).Value = TextBox_3
Cells(last, 4).Value = TextBox_4
Cells(last, 5).Value = TextBox_5
Cells(last, 7).Value = ListBox_1.Value
Cells(last, 8).Value = TextBox_6.Value
End Sub