UF Multipage Label für bestimmte Zeit
07.07.2018 17:52:56
Peter
ich bitte euch um Hilfe.
Ich habe eine UF mit Multipage.
Auf der ersten Page befinden sich zwei Label.
Label2 soll eingeblendet werden für die Zeit in welcher Makros ausgeführt werden.
Nach Abschluss soll Label2 eingeblendet werden und anschliessen soll dann die
Page2 von Multipage1 angezeigt werden.
Ich habe hierzu folgende Anweisung bereits geschrieben:
Private Sub UserForm_Activate()
'--------------Anfang Page1 -------------------------------------------------------------------- _
_
'Installation der Funktionsdaten
Dim wksH As Worksheet 'für Hilfstabelle
Dim i As Long 'wird benötigt für das Ausblenden einer Page in Multipage1
Set wksH = Worksheets("Hilfstabelle")
'If Worksheets("Hilfstabelle").Range("A2") = "" Then
If wksH.Range("A2") = "" Then
'Label Installation läuft einblenden beendet ausblenden für bestimmte Zeit
Me.Label3.ZOrder (1)
Application.Wait Now + TimeSerial(0, 0, 5)
Me.Label2.ZOrder (0)
'Label Installation beendet einblenden Installation läuft ausblenden für bestimmte Zeit
Me.Label2.ZOrder (1)
Application.Wait Now + TimeSerial(0, 0, 5)
Me.Label3.ZOrder (0)
Application.Wait Now + TimeSerial(0, 0, 5) Hier steckt der Fehler
Me.MultiPage1.Value = (1) Hier steckt der Fehler
Else
Me.MultiPage1.Value = (1)
End If
End Sub
Wenn ich die Zeile Me.Multipage1.Value = (1) deaktiviere funktioniert die Anzeige von Label3. Ich möchte aber, dass nach 2 oder mehr Sekunden auf Page2 umgeschaltet wird.
Besten Dank für eure Hilfe.
Gruss Peter
Anzeige