excel fejlmeddelse ifm. userform Underlig fejl

Du kan prøve at sende den til mig så kan jeg prøve at se om den gør det samme her, hvis det er en hjælp
zxasqwxz@hotmail.com

har prøvet på en masse forskellige computere. desuden trækker programmet fra 2 databaser som skal være der for at det virker. ellers tak.

okay

Hvad gør knappen?

Du kan jo prøve at eksportere moduler og userforms , og så tage dem ind i en ny excelmappe, hvis det nu var noget i resten af mappen der gav problemet.

jeg har prøvet at exporterer det. userformer regner bare nogle ting ud med nogle formler, alt efter hvad der står i databasen den henter fra.
det er ikke et bestemt sted den fejler, jeg har prøvet at sætte msgbox ind og se hvor meget den for skrevet ud inden excel fejler og lukker ned. og det er lidt forskelliget alt efter hvilke udvidelse jeg laver til mit program. nogle gange fejler den, bare at jeg sætter linien textbox173.text = "300" ind i koden.
men det virker jo hvis jeg bare åbner visual editor og klikker på modulet koden står i. også selvom jeg lukker visual editor igen. bare at det har været åbent.

Excel har en begrænsning på hvor meget der kan stå i en procedure.

Det mellem " Sub og end sub"

Hvis du virkelig har en lang smøre der, så se om du ikke kan plukke noget kode ud og ligge det ud  i nogen funktions kald, Så din hoved kode bliver kortere.

jeg har læst lidt om det og det er vidst 64 kb ca. som en procedure max må være og det er der ikke nogle der er. desuden ville fejlmeddelsen vidst være at "proceduren var for stor" men hvorfor virker det hvis jeg bare åbner VBE og vælger modulet og så bare lukker den igen eller lader den være åben

f.eks. har jeg fundet ud af at hvis jeg kører den har kode som kommentar så virker det men hvis selve koden skal køres så virker det ik. kan det være userformen der er blevet for omfattende/stor?


    hendata(afdindex, 22) = Hensættelser.txtbk1.Text
    hendata(afdindex, 23) = Hensættelser.txtbk3.Text
    hendata(afdindex, 24) = Hensættelser.txtbk5.Text
    hendata(afdindex, 25) = Hensættelser.txtbk7.Text
    hendata(afdindex, 26) = Hensættelser.txtbk9.Text
    hendata(afdindex, 27) = Hensættelser.txtbk11.Text
    hendata(afdindex, 28) = Hensættelser.txtbk13.Text
    hendata(afdindex, 29) = Hensættelser.txtbk15.Text
    hendata(afdindex, 30) = Hensættelser.txtbk17.Text
    hendata(afdindex, 31) = Hensættelser.txtbk19.Text
    hendata(afdindex, 32) = Hensættelser.txtbk21.Text
    hendata(afdindex, 33) = Hensættelser.txtbk23.Text
    hendata(afdindex, 34) = Hensættelser.txtbk25.Text
    hendata(afdindex, 35) = Hensættelser.txtbk27.Text
    hendata(afdindex, 36) = Hensættelser.txtbk29.Text
    hendata(afdindex, 37) = Hensættelser.txtbk31.Text
    hendata(afdindex, 38) = Hensættelser.txtbk33.Text
    hendata(afdindex, 39) = Hensættelser.txtbk35.Text
    hendata(afdindex, 40) = Hensættelser.txtbk37.Text
    hendata(afdindex, 41) = Hensættelser.txtbk39.Text

Hvis Hensættelser er den aktive userform, kan du skære koden ned til.

X = 1
For I = 22 To 41
    Hentdata(afdindex, 22) = Me.Controls("txtbk" & X).Text
    X = X + 2
Next

X = 1
For I = 22 To 41
    Hentdata(afdindex, I) = Me.Controls("txtbk" & X).Text
    X = X + 2
Next

tak, men den fejler stadig.

fejler kommer som sagt ikke hvis jeg åbner visual editor. men hvis jeg åbner visual editor og lukker excel helt og åbner det igen så virker det, men lukker jeg det andet gang og åbner det igen så fejler den. sådan er det hver gang. kan det have noget at gøre med at jeg ikke "clearer" objekterne. altså xxx = nothing?

du skal kun clear, hvis du bruger 'set'

Set Ws = Worksheets("Ark1")

så når du ikke bruger den mere

Set Ws = Nothing

tak, men den fejler stadig, hvis jeg gøre programmet lidt mindre på forskellige måder, ved at fjerne forskellige dele, så virker det for det meste igen.

okay, tak for hjælpen, men problem er desværre stadig ikke løst