|
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
In TextBox 4 und TextBox 5 werden Uhrzeiten eingegeben und die differenz soll in spalte 6 ausgegegen werden
lg kjeld
|