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