AW: Excel 365 und userform ?
27.12.2021 14:56:05
ChrisL
Hi Stefan
Ich habe zwar Excel 365 (Business), aber ich komme mit deiner Datei nicht klar. Nach Export/Import von Modulen und UF werden bei mir die UF gar nicht erkannt. Ich denke die Mappe ist korrumpiert und sollte neu aufgebaut werden. Jedenfalls ist das folgende Bild nicht normal:
Das eigentliche Problem habe ich in einer neuen leeren Mappe erfolglos versucht zu rekonstruieren. Userform2 (und die MsgBox) wird wie es soll vor Userform1 angezeigt.
Tabelle1:
Private Sub CommandButton1_Click()
Application.Visible = False
UserForm1.Show
End Sub
Userform1:
Dim objForm As clsUserform
Private Sub CommandButton1_Click()
UserForm2.Show vbModeless
End Sub
Private Sub CommandButton2_Click()
MsgBox "Hallo aus Excel", vbSystemModal
End Sub
Private Sub UserForm_Activate()
Set objForm = New clsUserform
With objForm
.MaxButton = True
.MinButton = True
.BorderStyle = xlAenderbar
.Create UserForm1
End With
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub
Private Sub UserForm_Terminate()
Application.Visible = True
End Sub
Um einen Zusammenhang mit der individuellen Datei auszuschliessen, würde ich dir empfehlen das Verhalten mal in einer neuen Datei zu testen.
cu
Chris