Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen

Änderung Caption vor/nach MultiPage1_Change-Event | Herbers Excel-Forum


Betrifft: Änderung Caption vor/nach MultiPage1_Change-Event von: Martin S.
Geschrieben am: 08.01.2010 11:14:15

Hallo,

beim Wechsel auf eine bestimmte Seite einer MultiPage werden (ausgelöst durch MultiPage1_Change) umfangreiche Berechnungen durchgeführt. Da die Berechnungen einige Sekunden dauern können und der Rechner wie "abgestürzt" wirkt, möchte ich das Caption von Page1 zwischenzeitlich auf "Bitte warten..." setzen und anschließend wieder zurücksetzen. Leider klappt das nicht, weil der Bildschirm erst nach den Berechnungen aktualisiert wird. Hat von Euch jemand einen Rat?

Viele Grüße

Martin

Private Sub MultiPage1_Change()
    If MultiPage1.Value = 1 Then
        
        MultiPage1.Pages(1).Caption = "Bitte warten..."

        'Hier werden die Berechnungen durchgeführt

        MultiPage1.Pages(1).Caption = "Auswertung"        
    End If
End Sub

  

Betrifft: AW: Änderung Caption vor/nach MultiPage1_Change-Event von: Matthias L
Geschrieben am: 08.01.2010 11:24:22

Hallo

setz mal nach dem Umbenennen

MultiPage1.Pages(1).Caption = "Bitte warten..."
Application.Wait Now + TimeSerial(0, 0, 1)

Die 1 Sek. sollte reichen


Ich hab das mal so getestet:

Private Sub MultiPage1_Change()
Dim x As Long
If MultiPage1.Value = 1 Then
   
   MultiPage1.Pages(1).Caption = "Bitte warten..."
   Application.Wait Now + TimeSerial(0, 0, 1)
   
   'Hier werden die Berechnungen durchgeführt
   For x = 1 To 5000
    [a1] = x
   Next
   
   MultiPage1.Pages(1).Caption = "Auswertung"
   End If
End Sub
und das hat funktioniert.

Gruß Matthias


  

Betrifft: AW: Änderung Caption vor/nach MultiPage1_Change-Event von: Martin S.
Geschrieben am: 09.01.2010 14:50:06

Vielen Dank, so klappt es!


Beiträge aus den Excel-Beispielen zum Thema "Änderung Caption vor/nach MultiPage1_Change-Event"