Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Multipage, Pages ein und ausblenden!

Multipage, Pages ein und ausblenden!
Lisa
Hallo zusammen
ich benötige bitte eure Hilfe, da ich in der Recherche nichts zu meiner Frage finde.
In einer Userform befindet sich eine Multipage mit drei Pages und einer TextBox!
Die Userform startet:
Private Sub UserForm_Initialize()
MultiPage1.Pages(0).Visible = True
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(2).Visible = False
End Sub
Über die TextBox1 möchte ich die Sichtbarkeit der Pages steuern:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = 1 Then
MultiPage1.Pages(1).Visible = True
ElseIf TextBox1 = 2 Then
MultiPage1.Pages(1).Visible = True
MultiPage1.Pages(2).Visible = True
End If
End Sub
Also, gebe ich in die TextBox1 eine 1 ein, zeigt sich die Page1,
gebe ich in die TexBox1 eine 2 ein zeigt sich die Page1 und die Page2
Nun zu meinem Anliegen,
die Pages lassen sich so anzeigen aber nicht ändern,
Gebe ich nun nach der 2 wieder eine 1 in die TextBox1 ein, wird die Page2 nicht wieder ausgeblendet!
das sollte aber gern so sein und auch für evtl weiter Pages!
Hat hierzu jemand eine Idee und kann helfen?
LG Lisa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Multipage, Pages ein und ausblenden!
07.02.2012 13:20:09
Rudi
Hallo,
als Anregung:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With MultiPage1
Select Case CInt(TextBox1)
Case 1
.Pages(1).Visible = True
.Pages(2).Visible = False
Case 2
.Pages(1).Visible = False
.Pages(2).Visible = True
Case 3
.Pages(1).Visible = True
.Pages(2).Visible = True
End Select
End With
End Sub

Gruß
Rudi
AW: Multipage, Pages ein und ausblenden!
07.02.2012 14:02:08
Lisa
Hallo Rudi, wieder einmal den allerherzlichsten Dank an dich!
Das ist genau das was ich gesucht habe!
LG Lisa
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige