Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

userform in userform = absturz?

userform in userform = absturz?
09.08.2002 12:22:02
Ingo
Hallo,
habe eine Userform in der ich über einen Button eine weitere Userform aufrufe. Das hat soweit auch problemlos funktioniert. Jetzt habe ich in die zweite Userform ein Bezeichnungsfeld eingefügt. Wenn ich nun den Butto anklicke öffnet sich nicht die zweite Userform, sondern Excel hängt sich auf!?
Warum?
Bin für jeden Tip dankbar,
Ingo

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

Betreff
Datum
Anwender
Anzeige
Re: userform in userform = absturz?
09.08.2002 13:34:50
Michael Scheffler
Hallo,

Poste doch mal Deinen Code!

Gruß

Micha

Re: userform in userform = absturz?
09.08.2002 14:06:38
Ingo
Hallo Micha,

Code in Tabelle (Uform soll bei aufruf des Sheets starten):
Private Sub Worksheet_Activate()
Load Sonderauswertung
Sonderauswertung.Show
End Sub

Code UForm "Sonderauswertung":
Private Sub UserForm_Activate()
Sonderauswertung.Width = 44
Sonderauswertung.Height = Sonderauswertung.Width * 0.75
Sonderauswertung.Left = (ActiveWindow.Width - Sonderauswertung.Width) / 2
Sonderauswertung.Top = (ActiveWindow.Height - Sonderauswertung.Height) / 2 + 50
vergr = 6.5
speed = 2
x_vergr = Sonderauswertung.Width * vergr
wartezeit = 400
Do While x_vergr > Sonderauswertung.Width
Sonderauswertung.Width = Sonderauswertung.Width * (1 + speed / 100)
Sonderauswertung.Height = Sonderauswertung.Width * (1 + speed / 100) * 0.75
Sonderauswertung.Left = (ActiveWindow.Width - Sonderauswertung.Width) / 2
Sonderauswertung.Top = (ActiveWindow.Height - Sonderauswertung.Height) / 2 + 50
Sonderauswertung.Repaint
Loop
'Sonderauswertung.Repaint
End Sub

In dieser Uform ist ein Button zum aktivieren von UForm "Test":
Private Sub Test_Click()
Load Test
Test.Show
End Sub

Im Editor habe ich dann die UForm Test geöffnet und ein Bezzeichnungsfeld eingefügt.
Wenn ich den Button Test anklicke hängt sich Excel auf ;-(

Gruß
Ingo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige