Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketrun-time error"-214717848":(80010108)

 Besvar Besvar
Forfatter
Tor4Every1 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 15.Mar.2021
Land: Danmark
Status: Offline
Point: 47
Direkte link til dette indlæg Emne: run-time error"-214717848":(80010108)
    Sendt: 26.Mar.2021 kl. 10:05
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

Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk