Laufzeitfehler '1004' beim befüllen der ListBox

Private Sub ButtonSpeichern_Click()



    ' Daten in ListBox eintragen

    With shPersonal

        .Cells(p_aktuelleZeile, 1).Value = TextBoxID.Value

        .Cells(p_aktuelleZeile, 2).Value = TextBoxMessmittel.Value

        .Cells(p_aktuelleZeile, 3).Value = TextBoxQNummer.Value

        .Cells(p_aktuelleZeile, 6).Value = DateValue(TextBoxDatum.Value)

        

        ' Formel in Spalte 7 eintragen

        .Cells(p_aktuelleZeile, 7).Formula = "=WENN(F" & p_aktuelleZeile & " = """"; """"; WENN(ISTZAHL(F" & p_aktuelleZeile & "); F" & p_aktuelleZeile & " + 90; ""Kein Datum""))"

        

        .Cells(p_aktuelleZeile, 8).Value = TextBoxPruefbefund.Value

        

    End With

End Sub