Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktive Multiseite abfragen

aktive Multiseite abfragen
08.05.2008 13:21:24
mario
Hallo,
ich habe ein Blatt mit gruppierte Zeilen und eine Userform mit Multiseiten.
Ich möchte durch Anwahl eines Registers der Multiseite entsprechend einen Bereich der Gruppierung aus bzw. wieder einblenden.
Wie kann ich das angewählte Register abfragen?
...wenn Page1 angewählt, dann
'Details von gruppierten Zeilen ein- & ausblenden
ExecuteExcel4Macro "SHOW.DETAIL(1,19,True)"
ExecuteExcel4Macro "SHOW.DETAIL(1,31,False)"
End Sub
...wenn Page2 angewählt, dann
'Details von gruppierten Zeilen ein- & ausblenden
ExecuteExcel4Macro "SHOW.DETAIL(1,19,False)"
ExecuteExcel4Macro "SHOW.DETAIL(1,31,True)"
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktive Multiseite abfragen
08.05.2008 13:31:33
Rudi
Hallo,
.Value-Eigenschaft der MP.
Gruß
Rudi

If Multipage1=0 then....
08.05.2008 13:33:00
NoNet
Hallo Mario,
das ist einfacher als man zunächst denkt :
Die Nr. der ausgewählten Seite des Multipage-Controls entspricht einfach dem Wert des Multipage-Objektes (beginnend mit 0 für Seite1) :
Seite1 ausgewählt : => MultiPage1=0
Seite2 ausgewählt : => MultiPage1=1
Seite3 ausgewählt : => MultiPage1=2
etc.
Entsprechen könnte Deine Abfrage lauten :

If MultiPage1=0 then
'Code für Seite1
elseIf MultiPage1=1 then
'Code für Seite2
endif
gruß, NoNet

Anzeige
Hinweis: Natürlich MultiPage1.VALUE=0
08.05.2008 13:36:36
NoNet
Sorry Mario,
es muss natürlich MultiPage1.VALUE=0 heissen und nicht nur MultiPage1=0
Beim Testen hatte ich den .VALUE noch drin ;-))
Ciao, NoNet

AW: Hinweis: Natürlich MultiPage1.VALUE=0
08.05.2008 13:59:24
mario
Danke,
wo muß ich das jetzt einfügen
in "Diese Arbeitsmappe" geht es nicht

Private Sub Workbook_Open()
UserForm1.Show
If MultiPage1.Value = 0 Then
ExecuteExcel4Macro "SHOW.DETAIL(1,19,True)"
ExecuteExcel4Macro "SHOW.DETAIL(1,31,False)"
ElseIf MultiPage1.Value = 1 Then
ExecuteExcel4Macro "SHOW.DETAIL(1,19,False)"
ExecuteExcel4Macro "SHOW.DETAIL(1,31,True)"
End If
End Sub


Anzeige
AW: Hinweis: Natürlich MultiPage1.VALUE=0
08.05.2008 14:41:00
mario
...tja,
Private Sub UserForm_Initialize()
damit geht es nur einmal.
Ich möchte aber zwischen den Registerkarten hin- und herschalten und die Gruppierung soll ensprechend reagieren.

Private Sub MultiPage1_Change() '_oT
08.05.2008 15:03:49
NoNet
_oT

AW: Private Sub MultiPage1_Change() '_oT
08.05.2008 15:17:44
mario
...wow, suuper, Dankeschön!

AW: aktive Multiseite abfragen
08.05.2008 13:33:00
Hajo_Zi
Hallo Mario,
MsgBox MultiPage1.Value

Links zu Excel-Dialogen

MultiPage UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige