Hallo Community,

ich habe mithilfe eines Forummitgliedes eine Userform überarbeitet. Diese soll folgende Funktion erfüllen. Durch einen Commandbutton wird die Userform zunächst aufgerufen. In diese soll man anschließend folgende Daten eingeben:

1.Bauteilbezeichnung

2.Zulassungsnummer

3.Hersteller

4.Eingegangen am

5.Gültig bis

6.Eingegangene Unterlagen (mithilfe einer CheckBox kann man entweder 1, 2 oder 3 Daten anklicken oder auch leer lassen)

7.Anmerkungen

Dieser Code funktioniert jedoch nicht und ich weiß nicht woran das liegt, ich hoffe ihr könnt mir helfen.

Der Code:

Option Explicit

Private mstrFeuerschutzabschluss As String

Private Sub Abbruch_Click()
    Call Unload(Object:=Me)
End Sub

Private Sub Eingabe_Click()
    Dim lngIndex As Long, lngRow As Long
    Dim objCell As Range
    'Dim Feuerschutzabschlüsse As String
    'Dim Verwendbarkeitsnachweis As CheckBox
    'Dim Übereinstimmungserklärung As CheckBox
    'Dim Fachunternehmererklärung As CheckBox
   
   
    For lngIndex = 1 To 5
        With Controls("Textbox" & CStr(lngIndex))
            If .TextLength = 0 Then
                Call MsgBox(Choose(lngIndex, "Bauteilbezeichnung", "Zulassungsnummer", _
                "Hersteller", "Eingegangen am", "Gültig bis", "Verwendbarkeitsnachweis", _
                "Übereinstimmungserklärung", "Fachunternehmererklärung", "Anmerkungen") & _
                " fehlt.", vbExclamation, "Hinweis")
                Call .SetFocus
                Exit Sub
            End If
        End With
    Next
    With Worksheets("Dokumentationsübersicht")
        If Feuerschutzabschluss = "21." Then
            lngRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        Else
            Set objCell = .Columns(1).Find(What:=Feuerschutzabschluss, LookIn:=xlValues, LookAt:=xlWhole)
            lngRow = objCell.End(xlDown).Row
            Call .Rows(lngRow).Insert
        End If
        For lngIndex = 1 To 5
            If lngIndex = 4 & 5 Then
                .Cells(lngRow, lngIndex + 1).Value = CDate(Controls("TextBox4" & "TextBox5" & CStr(lngIndex)).Text)
            Else
                .Cells(lngRow, lngIndex + 1).Value = Controls("TextBox" & CStr(lngIndex)).Text
            End If
        Next
        .Cells(lngRow, 7).Value = IIf(Verwendbarkeitsnachweis.Value, "X", Empty)
        .Cells(lngRow, 8).Value = IIf(Ubereinstimmungserklarung.Value, "X", Empty)
        .Cells(lngRow, 9).Value = IIf(Fachunternehmererklarung.Value, "X", Empty)
        .Cells(lngRow, 10).Value = TextBox6.Text
    End With
    Abbruch.Value = True
End Sub
       
               
Private Sub TextBox4_AfterUpdate()
    With TextBox4
        If IsDate(.Text) Then
            .Text = Format$(.Text, "dd.mm.yyyy")
        Else
            Call MsgBox("Eingangsdatum ungültig. Bitte geben Sie ein gültiges Datum ein (dd.mm.yyyy)")
            .SelStart = 0
            .SelLength = .TextLength
            Call .SetFocus
        End If
    End With
End Sub

Private Sub TextBox5_AfterUpdate()
    With TextBox5
        If IsDate(.Text) Then
            .Text = Format$(.Text, "dd.mm.yyyy")
        Else
            Call MsgBox("Bitte geben Sie ein gültiges Datum ein (dd.mm.yyyy)")
            .SelStart = 0
            .SelLength = .TextLength
            Call .SetFocus
        End If
    End With
End Sub

Private Property Get Feuerschutzabschluss() As String
    Feuerschutzabschluss = mstrFeuerschutzabschluss
End Property

Friend Property Let Feuerschutzabschluss(ByVal pvstrFeuerschutzabschluss As String)
    mstrFeuerschutzabschluss = pvstrFeuerschutzabschluss
End Property