Ich weis das man nicht zwei Initialize ausführen kann aber ich habe nun mal zwei und weis nicht wich ich diese zu einer zusammen fassen kann ohne ein Konflikt . Daher meine frage wie beende ich eine um eine neu anzufangen ?
Private Sub UserForm_Initialize()
TextBox17 = Range("Tabelle3!O4")
TextBox31 = Range("Tabelle3!O5")
TextBox32 = Range("Tabelle3!O6")
TextBox33 = Range("Tabelle3!O7")
TextBox34 = Range("Tabelle3!O8")
TextBox35 = Range("Tabelle3!O9")
TextBox36 = Range("Tabelle3!O10")
TextBox37 = Range("Tabelle3!O11")
End Sub
Private Sub UserForm_Initialize()
'Name of the frame
With Me.Frame1
'This will create a vertical scrollbar
.ScrollBars = fmScrollBarsHorizontal
'Change the values of 2 as Per your requirements
.ScrollHeight = .InsideHeight * 12
.ScrollWidth = .InsideWidth * 12
End With