Methode 'Value' für das Objekt 'Range' ist fehlgeschlagen
15.02.2024 15:41:43
Richi
Ich komme nicht mehr weiter. Im untenstehenden Code erhalte ich Laufzeitfehler '2147417848 (80010108)': Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlagen.
Debugger bleibt auf Zeile .Cell s(neueZeile, 1).Value = Format(tbIDRec, "###0") stehen
Ansschliessen bricht schliesst sich mein File.
Ich hoffe jemand von euch kann mir weiterhelfen.
Lg Richi
--------------------------------------------------------
Private Sub ButtonSave_Click()
'Prüfen ob alle Felder befüllt sind
If cbKey.Value = "" Or cbWorkP.Value = "" Or cbMaintT.Value = "" Or cbWorkAct.Value = "" Or tbDur.Value = "" Or tbReg.Value = "" Or tbMaintP.Value = "" Or tbStartWDt.Value = "" Or tbWO.Value = "" Then
MsgBox "Please fill out all Fields", , ""
Exit Sub
End If
'Daten in Tabelle Records eintragen
Dim neueZeile As Double
With shRecords
neueZeile = .Cells(shRecords.Rows.Count, 1).End(xlUp).Row + 1
.Cell s(neueZeile, 1).Value = Format(tbIDRec, "###0")
.Cells(neueZeile, 2).Value = tbENo
.Cells(neueZeile, 3).Value = tbFirstN
.Cells(neueZeile, 4).Value = tbFamN
.Cells(neueZeile, 5).Value = UCase(tbOE)
.Cells(neueZeile, 6).Value = tbLicNo
.Cells(neueZeile, 7).Value = tbLicCat & Format(tbLicCatSub, "###0.0")
.Cells(neueZeile, 8).Value = Format(tbStartWDt, "dd.mm.yyyy")
.Cells(neueZeile, 9).Value = cbWorkP
.Cells(neueZeile, 10).Value = UCase(tbReg)
If .Cells(neueZeile, 10).Value = "MIL" Or .Cells(neueZeile, 10).Value = "ZIV" Then
.Cells(neueZeile, 10).Value = LCase(.Cells(neueZeile, 10).Value)
End If
.Cells(neueZeile, 11).Value = tbMaintP
.Cells(neueZeile, 12).Value = cbMaintT
.Cells(neueZeile, 13).Value = cbWorkAct
.Cells(neueZeile, 14).Value = Format(tbDur, "###0.0")
.Cells(neueZeile, 15).Value = tbWO
End With
'Userform schliessen
Unload Me
UfStart.Show
End Sub