Hallo,

jau hab ich mir gedacht, da gibts 'n anderes Problem: durch Deine einzeilige Formatierung der ListBox wählst Du die ListBox-Einträge über den Scroll-Balken aus, der bei Dir zu nem Spin-Button geschrumpft ist, und die Einträge werden nicht markiert, aber probiers so:

Private Sub Weiter_Button_Click()

Personhinzufügen.Hide

Dim Fahrtkilometer As Integer
Dim Reisestunde As Integer   '//  Reisetunde <> Reisestunde Schreibfehler weg fehl. Option Explicit....!!
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  '// Einfeugen <> Einfuegen Schreibfehler weg fehl. Option Explicit....!!

'Abbruchkritierien

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)


'// Hier Dein doppelt Einfügen in erster Zelle...///
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

...und noch einige Baustellen: Option Explicit ist nicht überall gesetzt, dadurch sind Schreibfehler entstanden und Variablen sind nicht/falsch deklariert, desweiteren müssen Vars immer einzeln explizit mit ihrem Typ deklariert werden, andernfalls sind sie vom Universaltyp Variant:

Dim Samstag As Integer, Sonntag As Integer, Feiertag As Integer

...das Selektieren und Copy-Paste müsste man wohl auch verbessern, aber fürs erste solls wohl reichen....;-)

Gruß,