Jeg sidder og skal hjælpe en kollega, hvor der i excel filen er lavet nogle VBA koder.  

Disse virker upåklageligt på hans computer, men når en anden kollega  inkl. mig selv bruger den virker den ikke, så hopper den over i "fejl msg".  

Jeg har testet den ved en del andre kollegaer, nogen virker den ved, andre gør den ikke.

Jeg har tjekket opsætningen inde i indstillinger i Excel.  (Alle er ens)  

Nogen der har et forslag til dette, eller kender problemet ? 

P.S lige nu virker den ved 6 kollegaer og 8 virker den ikke ved 

Excel kan downloades her:  

https://we.tl/t-vLWe2l6UWK" rel="nofollow - https://we.tl/t-vLWe2l6UWK

Step 1.  tryk på Sheet "Bukkeliste" derefter knappen "slet Bukkeliste"

step 2. gå til Sheet "Skema" og tryk så knappen "Beregn" 

step 3 tryk derefter på knappen "Bukkeliste" 

Så laver den en fejl i at udføre den sidste "Bukkeliste" 

Der stopper den  med

og vi køre alle 365

Jeg får hellere ingen fejl, når jeg prøver det, så det eneste jeg kan komme på, kan være at dem der virker er Danske versioner, og dem der ikke virker er Engelske.

VH 

Hvis du debugger på én af de pc'ere, hvor fejlen opstår, burde du som minimum kunne finde den kodelinje, som trigger, at der vises en MsgBox med fejlbeskeden.

Har du evt. prøvet at vælge indstillingen "Break on All Errors" via menupunktet Tools | Options ... og herefter vælge fanebladet "General" (Error Trapping)? Dette vil få debuggeren til at stoppe uanset, om der et sted i koden står "On Error Resume Next".

Mvh Max

Det gav mig da en besked der var mere brugbar.  (Tak for den information) 

Der kommer en: 

Run-time error 1004 

Metoden Paste for klassen Worksheet mislykkedes.  

Hvis jeg trykker F8 efter error . virker det fint med kopieringen den stopper bare der.

Nogen ide om hvad det kan være 

Jeg ville forsøge mig med at udføre denne copy/paste manuelt i Excel og se, om der kommer en fejlbesked.

Det kan måske være noget med skjulte rækker eller kolonner, som "forstyrrer" paste-funktionen, men det kan også være andre ting, som forårsager, at paste ikke kan gennemføres korrekt.

Jeg har med hjælp fra maxzpad fundet løsningen.  

Da "Break on All Errors" blev aktiveret kunne jeg se at problemet lå i en ActivateSheets.Paste  

Efter lidt test frem og tilbage. kom resultat til at være at tilføje koden 

Windows("filnavn.xlsm").Activate   før ActivateSheets.Paste

Tak for hjælpen alle sammen 

Husk at sætte Error Trapping tilbage til "Break on Unhandled Errors".

Jeg troede igår jeg havde lavet fejlen ved hjælp med at sætte koden ind Windows("filnavn.xlsm").Activate   før ActivateSheets.Paste

Dette hjælper dog ikke idag, får koden en gang i mellem at Activesheet.paste fejler. når den er debugget, kan jeg stadig trykke F8 og så sætter den glædeligt filen ind i og køre videre

Ikke for at underkende nogen eller noget, men det lader til, at koden ikke er specielt "kyndigt" skrevet.

Jeg prøver lige at kigge koden igennem (har ikke kigget i filen tidligere) og giver et bud på forbedring 

https://we.tl/t-ZtNvO6LOAZ" rel="nofollow - https://we.tl/t-ZtNvO6LOAZ

1) Alle linjer med 'Windows("HAMMER NV.xls").Activate' kan fjernes eller kommenteres væk med en apostrof. Årsag: Koden gør ikke andet end at aktivere et vindue, som allerede er aktivt.

2) Alle linjer med 'excelsheet.Range("A1").Paste' bør fjernes eller kommenteres væk. "excelsheet" genkendes ikke som en variabel, og den er ikke hverken dimensioneret eller sat nogen steder i nogen kodemoduler. Anvend i stedet "ActiveSheet.Paste"

3) Jeg fik - til at starte med - en fejl på kodelinjen med "Selection.Left = 300", fordi "Left" ikke blev genkendt som en kommando eller funktion. Med baggrund i tidligere tilsvarende oplevelse gjorde jeg følgende:

   - Menupunkt Tools | References ...

   - Fjern afkrydsning af "OLE Automation"

   - OK og gem filen

Dette fjernede denne specifikke fejl hos mig.

https://we.tl/t-Ad06YlUk4U " rel="nofollow - https://we.tl/t-Ad06YlUk4U  ; (opdateret)

Er der en særlig grund til, at I beholder filen i .xls-format, hvis I alle kører Excel-versioner, der understøtter de nyere formater?

Jeg får ikke selv Paste-fejlene, når jeg kører koden.

Kan du fortælle mig hvilken kodelinje, der trigger den senest oplevede fejl?

Dvs. ved hvilken "Case [bogstav]" sker det?

Det gør den allerede ved Case "NX" og alle de andre.  Hvis jeg trykker F8 en gang og så play, så gør den samme ved de fremtidige 

https://we.tl/t-0FEYHjkzrP" rel="nofollow - https://we.tl/t-0FEYHjkzrP

DrawingObjects er åbenbart et gammelt/ældre objekt i VBA.

Prøv at udskifte (alle steder) fx:

     ActiveSheet.DrawingObjects("Billede 3603").Copy

udskiftes med

     ActiveSheet.Shapes("Billede 3603").Copy

Det er lidt et long-shot, for når jeg kører makroen igen og igen, så oplever jeg også, at der sporadisk opstår run-time-fejl (og nogle gange kører den bare igennem). Det opstår både i forbindelse med .Paste og .Copy, og ved debugging kører den bare videre uden fejl, når man trykker F8 eller F5, så det er virkelig meget mystisk.

Er der en nyere objekt for paste ? 

Så jeg 

Og så derefter skriver i min første 

Virker heller ikke, Paste fejlen fejler igen

Jeg tror jeg fandt løsning / problemet . 

Jeg satte en timervalue på inden paste.  da den ikke kunne nå at kopiere og indsætte så hurtigt, har prøvet det 56 gange og det virker :) nu skal det bare testet  på kollegaers computer også 

Men super fedt hvis Application.Wait er løsningen. Såre simpelt men svært at gennemskue ved debugging.

Så tænker fejlen er fixet. 

Men stadig igen tak for hjælpen. 
Havde ikke kommet i mål uden dig