Userform moet weggeklikt worden

[conceal]

Hallo,

Omdat ik op zoek ben naar een bepaald soort melding die duidelijk is, ben ik middels andere vragen op een Userform uitgekomen. Nu ben ik een beetje aan het testen en loop ik tegen het volgende probleem aan. Als ik het programma wil uitvoeren dan komt het userform tevoorschijn, maar moet ik vervolgens op het 'kruisje' klikken om het programma uit te laten voeren. Het userform blijft wel zichtbaar en verdwijnt dus op het eind van het programma. Weet iemand misschien waar dit aan ligt? Ik gebruik Excel 97... Alvast bedankt!

Groet,
Maikel

Sub test()
Dim a As Integer

Userform1.Show

a = 0
For i = 1 To 32000
    a = a + 1
    Sheets("Sheet1").Cells(1, 1) = a
Next i
    
Userform1.Hide

End Sub

 

[Relleboer]

Tuurlijk blijft het userform zichtbaar. je geeft opdracht om te openen en dasn de handeling te laten uitvoeren en aan het eind weer te sluiten. waarom je eerst op kruisje moet drukken weet ik niet

 

[conceal]

Waarom ik op dat kruisje moet drukken is juist de vraag waar ik antwoord op wil....

 

[Relleboer]

Kun je ff je bestandje toevoegen. is makkelijker om te kijken wat eraan de hand is

 

[conceal]

Oke... dit is het bestand waarbij ik de fout krijg. Ik vermeld er nogmaals bij: Ik maak gebruik van Excel 97!

 

[Wigi]

Voilà, dit is de macro, en hang die macro aan de knop op het blad.

Sub test()
Dim a As Integer

Userform1.Show
Application.Wait Now() + TimeValue("0:00:01")
Userform1.Hide
DoEvents

a = 0
For i = 1 To 32000
    a = a + 1
    Sheets("Sheet1").Cells(1, 1) = a
    
Next i

End Sub

In de Eigenschappen van de Userform moet je ShowModal op False zetten, als is dat niet helemaal nodig, wel beter.

Wigi

 

[conceal]

Hi Wigi,

Sorry, maar je macro werkt precies hetzelfde. Er zit slechts een vertraging in voordat die begint met tellen als ik op het kruisje geklikt heb. Dus... nog steeds moet ik op het kruisje klikken om het programma te laten beginnen.... Ik weet niet of het ligt aan het feit dat ik Excel 97 gebruik???

Gegroet,
Maikel

 

[Wigi]

Ik weet niet of het ligt aan het feit dat ik Excel 97 gebruik???

Dat zou best kunnen want ShowModal is volgens mij pas ingevoerd met Excel 2000 als ik mij goed herinner.

 

[conceal]

Ja... inderdaad... dat is nog niet opgenomen in Excel 97. Ik zal dus op zoek moeten gaan naar een andere oplossing. Misschien is een msgbox met een notificatie dat het berekenen even duurt en een ok-knop voldoende... Toch bedankt! :thumb:

Gegroet,
Maik