|
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.
uploads/2803/Eksempel.xlsm" rel="nofollow - uploads/2803/Eksempel.xlsm
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
|