habe das Problem, dass sich mein Excel aufhängt. Beim öffnen eines Tabellenblattes wird eine UserForm aktiviert. Diese Userform enthält u.a. einen Butten, der wenn er angeklickt wird eine weitere Userform öffnen soll. Leider entscheidet sich Excel dann immer fürs aufhängen...
Hier meine Codes:
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
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
PS: Ich hatte das Problem letzte Woche schon mal gepostet, doch fanden wir leider keine Lösung. (Danke für die Mühe, Micha)