Userform maximized größe lässt sich nicht ändern

Hallo guten morgen VBA profis,
habe ein problem bei dem ich alleine nicht weiter komme.
Ich habe eine Userform.Diese kann ich durch klicken auf das Maximieren symbol oben rechts, links neben dem "X" Maximieren.Das klappt auch nur ich möchte wenn jemand die Form verändert also die größe das die größe width als beispiel nur maximal 300 ist und height auch 300.
Ich habe es dann so ähnlich versucht.


Private Sub UserForm_Resize()
Me.Width = 300
Me.Height = 300
End Sub

Aber wenn ich die form Maximiere kommt immer der Laufzeitfehler 384
"Das Formular kann nicht verschoben oder in der größe verändert werden,während es minimiert oder maximiert ist.
Wie kann ich erreichen das man meine Form nicht größer ziehen kann also z.b 300
Vielen Dank für eure Hilfe !!
gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer danke für deine schnelle Antwort.
Aber das Problem ist das ich möchte gerne das der minimieren button oben ist und den bekomme ich mit meinem klassenmodul so wie ich das sehe nicht ausgeblendet.
wenn das gehen würde wäre supppeeer !
Vielen Dank hier ist mein Klassenmodul code:
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow _
Lib "user32" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar _
Lib "user32" _
(ByVal nWnd As Long) As Long
Private Declare Function SetFocus _
Lib "user32" _
(ByVal hwnd As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Dim objMinMaxUF As Object
Public Property Set formular(objUF As Object)
Dim lngUFHandle As Long
Dim lngFensterStil As Long
Set objMinMaxUF = objUF
lngUFHandle = FindWindow(vbNullString, objMinMaxUF.Caption)
lngFensterStil = GetWindowLong(lngUFHandle, GWL_STYLE)
lngFensterStil = lngFensterStil Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngUFHandle, GWL_STYLE, lngFensterStil
lngFensterStil = GetWindowLong(lngUFHandle, GWL_EXSTYLE)
lngFensterStil = lngFensterStil Or WS_EX_APPWINDOW
SetWindowLong lngUFHandle, GWL_EXSTYLE, lngFensterStil
ShowWindow lngUFHandle, SW_HIDE
DrawMenuBar lngUFHandle
ShowWindow lngUFHandle, SW_SHOW
SetFocus lngUFHandle
End Property
und so rufe ich es auf beim start der Form.


Private Sub UserForm_Activate()
Set objDieseUF.formular = Me
End Sub

Danke schon für die Hilfe

301 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch

mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin

07.08.2008 16:23:47

Thread-ID: 1000004

3 Beiträge

Arbeitsblätter zählen und Ergebnis verarbeiten

Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...

07.08.2008 19:11:30

Thread-ID: 1000078

8 Beiträge

Frage - Spalten einfügen & Spalten untereinander z

André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

08.08.2008 16:00:00

Thread-ID: 1000340

3 Beiträge

Zellen mit Werten aus darüberliegender Zelle fülle

Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....

11.08.2008 08:59:25

Thread-ID: 1000713

4 Beiträge

Häufigkeitslücken

Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...

11.08.2008 10:29:00

Thread-ID: 1000742

2 Beiträge

Zellen formatieren mit vorangehenden "Nullen"

Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

11.08.2008 10:37:00

Thread-ID: 1000746

8 Beiträge

Beliebteste Forumthreads (12 Monate)

Userform maximized größe lässt sich nicht ändern

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform maximized größe lässt sich nicht ändern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread