Hej Alle,
Jeg har et problem, med at jeg får
"Run-time error" - 214717848":(80010108)
Automation error
Objektet er frakoblet dets klienter
Når jeg indsætter ny række, og skriver f.eks. i det nye række under kollonne a skriver et navn og prøver at indsætte ny linje igen .. . så kommer "Run-time error" igen.. og lukker
Når jeg trykker debug, rammer den min formel
Selection.Insert Shift:=xlDown
Har uploadet mit eksempel på problemet. håber i kan hjælpe.
på forhånd tak.
Kode:
Sub Tilføj_linje_tilbud111()
'Opretter en ny linje til sælger på arket Tilbud.
'MGB 26.03.2021
Dim myInput As Variant
Dim rækkenummer As Integer
myInput = InputBox("Indtast rækkenummer for, hvor ny linje skal være f.eks. '79'." & vbNewLine & vbNewLine & "Min. 4 og maks. 666.", "Tilføj ny linje")
'Tjekker om input er et tal.
If Not IsNumeric(myInput) Then
MsgBox "Fejl: Du skal indtaste et rækkenummer. Prøv evt. igen."
Exit Sub
Else
rækkenummer = CInt(myInput)
End If
'Tjekker om input er et tal i det rigtige interval.
If Not rækkenummer = 666 And rækkenummer < 4 Then
MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
Exit Sub
End If
'Tjekker om input er et tal i det rigtige interval.
If Not rækkenummer = 666 And rækkenummer > 666 Then
MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
Exit Sub
End If
Rows(rækkenummer).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range(Cells(rækkenummer, 1), Cells(rækkenummer, 3)).Select
Selection.Clear
Range(Cells(rækkenummer, 8), Cells(rækkenummer, 9)).Select
Selection.Clear
Range("A1").Select
End Sub
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
run-time error"-214717848":(80010108) 
Emne funktioner
