Hej hej

Vilken kodsnutt triggade ditt fel? Stega gärna med f8 när felet är triggat så att du säkerställer att det är rätt rad. Har du olika excelversioner på hemdatorn och jobbdatorn. Fungerar verktyget lokalt eller kör du remote?. Ligger din kod i personal.xlsb? Anropar verktyget andra filer? Var ligger i så fall dessa?

Mvh
Christian

Hej hej

Efterssom du ändå bara ska ta bort bladen så kan du lika gärna stänga av beräkningar.

Detta gör du med:
Application.calculation = xlCalculationManual

Sedan kan du även stänga av händelsehantering:
Application.enableEvents = false

-...och länkupdatering:
application.AskToUpdateLinks = false

Slå på dem islutet av koden:
Application.calculation = xlCalculationAutomatic
Application.enableEvents = true
application.AskToUpdateLinks = true

Hej hej

Just nu kör du kod med så kallad late binding, nedan kod kör med early binding istöället. Skillnaden är att med early binding så tilldelas objekten en minnesplats i datorn, samt deras under funktioner, såsom .delete, innan kod körs. Så istället för att dina objekt blir av typen variant/objekt, så blir de nu Worksheets, och har tillgång till .delete från tilldelad minnesplats direkt.

Vad gäller din fråga, om du syftar på excelfunktioner såsom =summa(), antal.om mfl, så stängs dessa av med Application.Calculation = xlCalculationManual. Du behöver byta ut bladnamnen mot dina egna för att koden ska fungera. Byt ut * mot en öppen parantes, finns tre styckna,, webeditorn ogillade dessa..

Option Explicit

Sub tjong()

Call mAlerts*False)
Dim ws As Worksheet
Dim wsARR As Variant: wsARR = Array("Blad5", "Blad6", "Blad7")
Dim i As Long
Dim str As String

For i = 0 To UBound(wsARR)
str = wsARR(i)
If WorksheetExists(str) Then
Set ws = ThisWorkbook.Sheets(str)
ws.Delete
End If
Next i
Call mAlerts*True)


End Sub
Function WorksheetExists(sName As String) As Boolean
WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function
Private Function mAlerts*onoff As Boolean)

Application.EnableEvents = onoff
Application.AskToUpdateLinks = onoff
Application.ScreenUpdating = onoff
Application.DisplayAlerts = onoff

If onoff Then
Application.Calculation = xlCalculationAutomatic
Else
Application.Calculation = xlCalculationManual
End If

End Function

 Dessvärre hjälpte varken det ena eller andra förslaget. Mina funktioner är inte av worksheet-typ utan de består av Function/End Function. Det hjälper inte heller att bara hantera avsnittet där jag  tar bort flikar. Flera andra avsnitt triggar också igång mina funktioner varpå "Det anropade objektet har kopplats ifrån sina klienter" dyker upp. Programmet har körts regelbudet av flera hundra avändare utan proplem. Problemet är bara på min och fruns hemdatorer. Kan det vara något med olika versioner av Excel? Programmet kom till för nio år sedan. Jag har nu windows office 365 business.

När körfelet uppstår "lagar" Excel programmet. Den text man får fram om vad "lagningen" består av lyder:

error081240_01.xml

Fel påträffades i filen C:\Users\Tommy\AppData\Roaming\Microsoft\Excel\Budgetverktyg 2013 version 2 RENSNING (version 2).xlsb

Minst ett ogiltigt villkorsformat har tagits bort från arbetsboken

Vad kan det vara för villkorsformat texten syftar på? Jag har provat med att ta bort all villkorad formattering men det hjälpte inte.

 Vilken code cleaner rekommenderar du?