Listbox Grösse ändern

Private Sub ListBox1_Enter()
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
ListBox1.Height = 580
Frame1.Height = 650
End Sub

Private Sub UserForm_Initialize()
Dim rngletzte As Integer
Dim rngBereich As Range
Liste_Formatieren ListBox1
Liste_Formatieren ListBox2
Liste_Formatieren ListBox3
Liste_Formatieren ListBox4
Rahmen_Formatieren Frame1, 12
Rahmen_Formatieren Frame2, 190
Rahmen_Formatieren Frame3, 367.95
Rahmen_Formatieren Frame4, 546
With WkSh
For Each rngBereich In WkSh.Range("A2:A" & rngletzte)
With ListBox1
.AddItem rngBereich.Offset(, 0).Text
.List(.ListCount - 1, 1) = rngBereich.Offset(, 1).Text
.List(.ListCount - 1, 2) = rngBereich.Offset(, 2).Text
End With
Next rngBereich
End With
End Sub
Sub Rahmen_Formatieren(Rahmen As Object, Pos As Integer)
With Rahmen
.Visible = True
.Height = 174
.Top = Pos
End With
End Sub