Avatar billede Tor4Every1 Juniormester
26. marts 2021 - 10:08 Der er 2 kommentarer

run-time error"-214717848":(80010108)

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

på forhånd tak.


Fil: https://we.tl/t-WeWYSr9akY

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
Avatar billede ebea Ekspert
26. marts 2021 - 10:38 #1
Jeg kan ikke genkende fejlen! 
Ud fra dit tidligere indlæg, var det da ikke meningen, at du skulle indsætte linjen ovenover?
Avatar billede Tor4Every1 Juniormester
26. marts 2021 - 13:02 #2
Hej ebea,
Jo skulle tage værdien fra linjen ovenover så jeg fik formler med ned på den nyindsatte linje,(måske lidt dårligt forklaret) :)

jeg tror jeg har løs mit Runtime Error problem ved at ændre
Dim rngSource  As Range
    With Worksheets("Tømrer")
        Set rngSource = .Range("A4:W4")

(formel med box er her)

    Rows(rækkenummer).Select
    Selection.EntireRow.Insert xlDown
   
    rngSource.Copy
    Selection.PasteSpecial xlPasteAll

og så lavet en kolonne som er låst, hvor den altid tager formlen fra..  så denne ikke ændres.

Det gjorde at jeg ikke fik den debug på mit selection.insert xlDown
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester