hi, könntet mir jemand helfen, es tritt eine Fehler auf, wenn ich eine Useform benutzen möchte. Könntet jemand mir Helfen

Sub Reset()

 Dim iRow As Long

 iRow = [Counta(Database !A:A)] ' indetifying the last row

 With frmform das ist Name von meine Useform

 .txtdatum.Value = ""

 .txtprüfbericht.Value = ""

  .CmbPrüfart.Clear

  .CmbPrüfart.AddItem "Mechanik"

  .CmbPrüfart.AddItem "Elektrik"

  .CmbPrüfart.AddItem "EMV Störaussendung"

  .CmbPrüfart.AddItem "EMV Störfetigkeit"

  .CmbPrüfart.AddItem "Umwelt"

  .CmbPrüfart.AddItem "Funktion"

  .CmbPrüfart.AddItem "Software"

  .txtZielderPrüfung.Value = ""

  .txtProjekt.Value = ""

  .txtpüfobjekt.Value = ""

  .LstDatabase.ColumnCount = 7

  .LstDatabase.ColumnHeads = True

  .LstDatabase.ColumnWidths = "20,120,60,60,60,40,80"

  If iRow > 1 Then

  .LstDatabase.RowSource = "Database! A2:G" & iRow

  Else

  .LstDatabase.RowSource = "Database! A2:G2"

  End If

  End With

End Sub

Sub Submit()

Dim sh As Worksheet

Dim iRow As Long

Set sh = ThisWorkbook.Sheets("database")

iRow = [Counta(Database!A:A)] + 1

With sh

.Cells(iRow, 1) = iRow - 1

.Cells(iRow, 2) = frmform.txtdatum.Value

.Cells(iRow, 3) = frmform.txtprüfbericht.Value

.Cells(iRow, 4) = frmform.CmbPrüfart.Value

.Cells(iRow, 5) = frmform.txtZielderPrüfung.Value

.Cells(iRow, 6) = frmform.txtProjekt.Value

.Cells(iRow, 7) = frmform.txtpüfobjekt.Value

End With

End Sub

Sub Show_Form()

 frmform.Show  -- hier tritt die Fehler auf

End Sub