Hilfe ja. Da hatte ich schon gar nicht mehr dran gedacht, dass in der Textbox die fortlaufende Nummer 2 stellig sein soll.

Danke!

Es muss an 2 Stellen angepasst werden:

Private Sub Cmd_NeuerEintrag_Click()
    Dim i&, zWerk As Variant, strIso$, arrZeile(1 To 1, 1 To 11)
        zWerk = Application.Match(cboWerk, Tabelle0.Range("Tabelle2[Werkname]"), 0)
        If Not IsError(zWerk) Then
            TxtAuditID = Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 1) & "-" & Format(Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) + 1, "00")
            Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) = Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) + 1
        End If
    For i = 0 To 1
        arrZeile(1, i + 1) = Controls(arrControls(i))
    Next i
    For i = 2 To UBound(arrControls)
        arrZeile(1, i + 2) = Controls(arrControls(i))
    Next i
    For i = 0 To 3
        If Controls(arrChk(i)) = True Then strIso = strIso & "ISO " & Right(arrChk(i), 5) & ", "
    Next i
    If strIso <> "" Then arrZeile(1, 3) = Left(strIso, Len(strIso) - 2)
    Tabelle7.ListObjects(1).ListRows.Add.Range.Resize(UBound(arrZeile, 1), UBound(arrZeile, 2)) = arrZeile
    ListboxLaden
    ControlsLeeren
End Sub

und in der Prozedur:

Private Sub lstAudits_Click()
    Dim tmp, i&, zWerk As Variant
    With lstAudits
        TxtAuditID = .List(.ListIndex, 1)
        cboStatus = .List(.ListIndex, 2)
        cboWerk = .List(.ListIndex, 3)
        cboAuditType = .List(.ListIndex, 4)
        txtLeadAuditor = .List(.ListIndex, 6)
        txtCoAuditor = .List(.ListIndex, 7)
        txtPersonDays = .List(.ListIndex, 8)
        txtShift = .List(.ListIndex, 9)
        txtCustomer = .List(.ListIndex, 10)
        txtResponsible = .List(.ListIndex, 11)
        
        tmp = .List(.ListIndex, 5)  ' Iso Nummern zuweisen
        For i = 0 To UBound(arrChk)
            If InStr(1, tmp, Right(arrChk(i), 5), vbTextCompare) > 0 Then
                Controls(arrChk(i)) = True
            Else
                Controls(arrChk(i)) = False
            End If
        Next i
    
        If TxtAuditID = "" Then ' Audit ID erzeugen
            zWerk = Application.Match(.List(.ListIndex, 3), Tabelle0.Range("Tabelle2[Werkname]"), 0)
            If Not IsError(zWerk) Then
                TxtAuditID = Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 1) & "-" & Format(Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) + 1, "00")
            End If
        End If
    End With
End Sub

Sorry ich hatte gestern zu lange vor der Kiste gesessen und parallel mehrere Sachen gemacht.

Gruß Uwe