Vba - messagebox - loadtid

Du er nok nød til at lave en userform.. bare en userform uden knapper hvor du kunne skrive: "Data behandles - vent venligst"

og så i din makro:

Sub dinmakro()

Load Navnet_på_din_userform
application.screenupdating = false

din kode...

application.screenupdating = true
Unload Navnet_på_din_userform

end sub

Rettelse:

Sub dinmakro()

Load Navnet_på_din_userform
Navnet_på_din_form.Show
application.screenupdating = false

din kode...

application.screenupdating = true
Unload Navnet_på_din_userform

End sub

Jeg syntes ikke rigtig at det virker :-(

Den kører ikke videre når den kommer til
***.show -delen.

I userformens properties prøv at sætte ShowModal til False

nå ja selvfølgelig...

i dit module laver du følgende kode:

Sub dinmakro()

Load Navnet_på_din_userform
Navnet_på_din_userform.Show

End Sub

Marker din userform - højreklik og vælg "View Code" - her indsætter du følgende kode:

Private Sub UserForm_Activate()
Application.ScreenUpdating = False

MsgBox ("det virker"), vbOKOnly

Unload Private Sub UserForm_Activate()
Application.ScreenUpdating = True
End Sub

ShowModal til False er endu nemmere

du kan få lidt problemer med userformens visning
systemer kunne se sådan her ud

UserForm1.Show False  'sætter modal til falsk
DoEvents
Application.ScreenUpdating = False

'''din kode her

Unload UserForm1

tak for svaret fordelingen giver 20/10

Jeg giver pointene nu... skal bare lige finde hvor :-)