Label von einem Frame in anderen verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
schwierig.
die Frage ist, warum du mehrere Frames verwendest.
Wenns nur dazu dient, dass du in der Userform mehrere Ansicht mit unterschiedlichen Steuerelementen hast, dann könntest du auch so vorgehen:
erstelle eine Multipage mit so vielen Seiten wie du Frames hast.
platziere die Steuerelemente jedes Frames auf eine Multipageseite.
blende die Tab-Leiste der Mulitpage aus. dann kann der Anwender nicht mehr selbstständig umblättern, sondern das geht nur per Code (wie bei deinen Frames)
mache die Multipage etwas kleiner als die Userform und platziere die Steuerelemente, die immer sichtbar sein sollen in der freien Fläche.
oder wenns nur um die Uhrzeit geht: schreibe die Uhrzeit doch in Caption der der Userform.
Gruß Daniel

Private Sub UserForm_Activate() bol = True Do Until bol = False DoEvents With UF1 .lblStart_Zeit.Caption = sUHRTag & " " & Format(Date, "DD. MMMM YYYY") & vbLf & _ funcKW(Date) & ". Kalenderwoche" & vbLf & Time End With Loop End Sub

Hi
naja, stellt sich überhaupt erstmal die Frage, warum man in der Userform eine Information anzeigen muss, die sowieso in den meisten Fällen permanent auf dem Bildschirm sichtbar ist.
alles andere ändert sich ja sowieso nicht und es reicht, wenn man es einmal beim Start der Userform aktiviert.
Generell sollest du dir überlegen, ob du die Uhrzeitaktualisierung wirklich über eine Endlosschleife machen willst, sondern nicht besser über ein Makro, welches du mit Application.Ontime im Sekunden oder ggf auch im Minutentakt aufrufen kannst, so dass das viel weniger Performance benötigt als ein permanenter Update.
wenn du nicht tiefer in deinen Aufbau eingreifen willst, könntest du folgendes tun.
1. erstelle auf jedem Frame ein Label für die Uhrzeit.
2. deklariere eine Userform-weit gültige Objektvariable vom Typ Control, dh im Modul der Userform, oberhalb der Makros:

Option Explicit
Dim lblZeit as Control

3. erstelle für jeden Frame das ENTER-Event und weise dort das label, in welches die Uhrzeit geschrieben werden soll, der Variablen zu:

Private Sub Frame1_Enter()
Set lblZeit = uf1.lblStart_Zeit_Frame1
End Sub
Private Sub Frame2_Enter()
Set lblZeit = uf1.lblStart_Zeit_Frame2
End Sub

4. verwende in deiner Do-Schleife die Objektvariable

 Do Until bol = False
if not lblZeit is nothing then lblZeit.Caption = ....
Loop

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Label von einem Frame in anderen verschieben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Label von einem Frame in anderen verschieben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread