UserForm1 umbenennen

[santana]

Hallo liebe Leute,

ich habe ein Problem mit der Umbennung meiner UserForm1. In diesem Forum hatte ich vor einiger Zeit beim Stöbern folgenden
Code unten gefunden. Die UserForm1 wird bei er Initialisierung maximal und optimal an die Fenstergröße angepasst.
So weit so gut. Jetzt möchte ich aber meine UserForm1 umbenennen. Das habe ich dann auch im Eigenschaftsfenster
gemacht. Sowohl den Namen der UserForm1 als auch UserForm1.Caption habe ich in "Stichwort" umbenannt. Zum meinem Leidwesen mußte
ich danach feststellen, dass die UserForm mit dem neuen Namen nicht mehr an die Fenstergröße angepasst wird.
Was habe ich falsch gemacht? Was muss ich tun damit es wieder funktioniert?



Funktioniert:

Code:

Sub UserForm_Initialize()
Application.WindowState = xlMaximized
With Me
.Height = Application.Height
.Width = Application.Width
End With
End Sub

Funktioniert nicht mehr:

Code:

Sub Stichwort_Initialize()
Application.WindowState = xlMaximized
With Me
.Height = Application.Height
.Width = Application.Width
End With
End Sub

[Glausius]

Hallo,

lass einmal den "alten" Code hinter deiner Userform "Stichwort" so wie er ist dann sollte es auch gehen!

[santana]

Hallo und Danke schon mal für dein Interesse.

Leider verstehe ich deine Antwort nicht.

Könntest du das Ganze mal mit etwas Code untermauern.

[Crazy Tom]

Hallo

na du brauchst die Sub nicht umbenennen

MfG Tom

[santana]

Hallo Tom,

das habe ich zunächst auch gedacht und dann gemacht. Funktionierte aber nicht.
Wenn ich in das Userform_Initialize eine Funktion aufrufe , in der dann der
Code zur Anpassung der Userform an das Fenster steht, dann gehts.
Aber ich weiß nicht so recht. Ich meine das hier irgendwo und irgendwann
in diesem Forum Andre mal eine Alternative für dieses Initialize geschrieben hatte.
Kann mich aber einfach nicht mehr  erinnern unter welchem Thread das war.

[Crazy Tom]

Hallo

das hier

Code:

Private Sub UserForm_Initialize()
   Application.WindowState = xlMaximized
   With Me
       .Height = Application.Height
       .Width = Application.Width
   End With
End Sub

gehört in das Codemodul der Userform
und da ist es schnurzpiepegal wie du die Userform getauft hast

MfG Tom

[santana]

Hallo Tom,

auf Dein Beharren hin habe ich es noch mal neu gemacht. Und jetzt gehts!

Versteh nicht was da zuerst falsch gelaufen ist. Na was solls.

Hauptsache jetzt läufts.