|
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
|