VBA-Beispiel 106
mail schreiben
mail schreiben

Größe einer UserForm verändern

Die Datei enthält zwei Beispiele.

Im ersten Beispiel wird die UserForm der Größe des Excelfensters angepasst.

Im zweiten Beispiel füllt die UserForm den ganzen Bildschirm.
Option Explicit
Dim links As Integer, oben As Integer
'

Private Sub cmb_gross_klein_Click()

If Me.cmb_gross_klein.Caption = "kleiner" Then
  With usf_Excelfenster
    Me.Height = 288
    Me.Width = 400
   'Navi (mit den Buttons) positionieren
    .Frame1.Top = 216
  End With

  Me.Left = links
  Me.Top = oben

  Me.cmb_gross_klein.Caption = "größer"
  Me.cmb_gross_klein.Accelerator = "G"
  ListBox1.Width = usf_Excelfenster.Width - 30
  ListBox1.Height = 146
Else

 'Position merken
  links = Me.Left
  oben = Me.Top

  With usf_Excelfenster
      .Left = Application.Left
      .Top = Application.Top
      .Height = Application.Height
      .Width = Application.Width
     'Navi (mit den Buttons) positionieren
      .Frame1.Top = usf_Excelfenster.Height - 70
  End With

  Me.cmb_gross_klein.Caption = "kleiner"
  Me.cmb_gross_klein.Accelerator = "K"
  ListBox1.Width = usf_Excelfenster.Width - 30
  ListBox1.Height = usf_Excelfenster.Height - 130
End If

End Sub

Private Sub cmb_Cancel_Click()
  Unload Me
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
ListBox1.ColumnCount = 50
ListBox1.RowSource = "Daten!" & "A1:F27"
On Error GoTo 0
End Sub

Download:   vba106.zip