Userform parallel neben Makro laufen lassen

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Adrian.

    Userform parallel neben Makro laufen lassen

    Hallo,

    ich moechte eine Userform als Informationsbalken WAEHREND der Ausfuehrung anzeigen lassen. Dafuer habe ich den Code benutzt:

    Visual Basic-Quellcode

    1. Load UserForm1
    2. Call UserForm1.FillVars(Progress)
    3. UserForm1.Show


    Progress ist meine zu uebergebende Variable die ich nach jeder Schleife hochsetze. Jedoch funktioniert das nicht, da ich die Userform erst schliessen muss bevor das Makro weiterlaeuft. Wie kann ich es "parallel" laufen lassen?



    Vielen Dank schon mal

    Dazu müsste man wissen, welche Excel Version Du hast.
    Ab Excel 2000 geht es so:

    Visual Basic-Quellcode

    1. UserForm1.Show vbModeless



    Ein Beispiel: benötigt werden eine Userform (Userform1) und ein Modul (Modul1).
    auf die Userform kommen ein Label (Label1) und ein Button(cmdStopp)

    Code der Userform:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub cmdStopp_Click()
    4. Modul1.bStop = True
    5. End Sub
    8. Public Sub SetValue(ByVal Wert As Byte)
    9. Dim b As Byte
    10. Dim s As String
    11. For b = 0 To Wert
    12. s = s & "|"
    13. Next b
    14. Label1.Caption = s
    15. DoEvents
    17. End Sub


    Code des Moduls:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Public bStop As Boolean
    5. Private Sub test()
    6. Dim i As Long
    7. Dim b As Byte
    8. UserForm1.Show vbModeless
    9. Do
    10. i = Timer + 1
    11. While Timer < i
    12. Wend
    13. b = b + 1
    14. If b = 30 Then bStop = True
    15. UserForm1.SetValue (b)
    16. Loop While bStop = False
    17. Unload UserForm1
    19. End Sub


    Eine Alternative wäre den Code einfach komplett in die Form zu bringen...
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende