Private Sub Weiter_Button_Click()
Personhinzufügen.Hide
Dim Fahrtkilometer As Integer
Dim Reisestunde As Integer
Dim Normalstunde As Integer
Dim Überstunde As Integer
Dim Nachtarbeit As Integer
Dim Samstag As Integer, Sonntag As Integer, Feiertag As Integer
Dim i As Integer
Dim strName As String, strPersonen As String
Dim Einfuegen As Integer
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" _
Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox7.Value = "" Or TextBox8.Value = "" _
Or TextBox9.Value = "" Then
Call MsgBox("Es müssen alle Felder ausgefüllt werden ", vbExclamation)
Selection.Delete
Call Unload(Object:=Me)
End If
Fahrtkilometer = TextBox1.Value
Reisestunde = TextBox2.Value
Normalstunde = TextBox3.Value
Überstunde = TextBox4.Value
Nachtarbeit = TextBox5.Value
Samstag = TextBox6.Value
Sonntag = TextBox7.Value
Feiertag = TextBox8.Value
strName = TextBox9.Value
Einfuegen = (Cells(1, Columns.Count).End(xlToLeft).Column - 6)
Cells(1, Einfuegen + 1).Value = ListBox1.List(pvargIndex:=ListBox1.TopIndex) & " " & strName
Cells(2, Einfuegen + 1).Value = strName
Cells(3, Einfuegen + 3).Value = Fahrtkilometer
Cells(4, Einfuegen + 3).Value = Reisestunde
Cells(5, Einfuegen + 3).Value = Normalstunde
Cells(8, Einfuegen + 2).Value = Überstunde / 10
Cells(9, Einfuegen + 2).Value = Nachtarbeit / 10
Cells(10, Einfuegen + 2).Value = Samstag / 10
Cells(11, Einfuegen + 2).Value = Sonntag / 10
Cells(12, Einfuegen + 2).Value = Feiertag / 10
End Sub