Steuerelement Multipage mit Vorgabe

06/07/2012 - 22:19 von Hans Alborg | Report spam
Hallo,

(Excel 2007, auf einer Userform)

auf diesem Steuerelement befinden sich etliche "Reiter" (Pagen).

Die ersten 12 heißen "Januar" bis "Dezember"

Jetzt möchte ich vor Aufruf der Form den Reiter des aktuellen Monats aktiv,
also dessen Page aufgeklappt haben.

Mit dem Code...

Set abFm = F_Ausblenden.Controls
For mon = 1 To 12 ' aktuellen Mon finden
If mon = Month(Date) Then
Stop
abFm("Page" & mon).Enabled = True
End If
Next mon

stoppt der Code schon mal an der richtigen Stelle.
Mein Problem ist, daß ("Page" & n) nicht erkannt wird.
Naja, die Pagen gehören ja auch zum Steuerelement "Multipage".
Aber "Multipage.Page" & n) geht auch nicht.

Kann mir jemand weiterhelfen?

TIA, Hans
 

Lesen sie die antworten

#1 Claus Busch
06/07/2012 - 23:13 | Warnen spam
Hallo Hans,

Am Fri, 6 Jul 2012 22:19:31 +0200 schrieb Hans Alborg:

Die ersten 12 heißen "Januar" bis "Dezember"

Jetzt möchte ich vor Aufruf der Form den Reiter des aktuellen Monats aktiv,
also dessen Page aufgeklappt haben.



die Seiten sind numeriert von 0 bis Anzahl Seiten -1
Der aktuelle Monat ist der Juli, also der 7. Monat bzw. die 6. Seite.
Es nutzt aber nichts, die 6. Seite aktiv zu stellen, die anderen müssen
deaktiviert sein. Probiers mal so:

Private Sub UserForm_Initialize()
Dim Monat As Integer
Dim i As Integer

Monat = Month(Date) - 1
For i = 0 To 11
If i <> Monat Then
MultiPage1.Pages(i).Enabled = False
MultiPage1.Pages(Monat).Enabled = True
End If
Next
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen