Oprette variabelt antal kontrolelementer i userform og placere dem bestemt

Det skulle nok være muligt - vender tilbage..

Indsættes i Userformen

Const antalRækker = 8
Const antalPrRæk = 12
Const H_mellemrum = 5
Const V_mellemrum = 5
Const højde = 25
Const bredde = 70
Const tbNavn = "Tb_"                'efterfulgt af Nr
Dim tbNr As Integer, V_antal As Integer, H_antal As Integer, H_offset As Integer, V_offset As Integer
Private Sub UserForm_activate()
    tbNr = 1
    H_offset = 0
    V_offset = 0
   
    For V_antal = 1 To antalRækker
        For H_antal = 1 To antalPrRæk
            Controls.Add "forms.Textbox.1", tbNavn & CStr(tbNr), True
            With Controls(tbNavn & CStr(tbNr))
                V_offset = V_mellemrum + (højde + V_mellemrum) * (V_antal - 1)
                .Top = V_offset
                .Height = højde
                .Width = bredde
                .Left = H_mellemrum + (H_offset + bredde) * (H_antal - 1)
                H_offset = H_mellemrum
                tbNr = tbNr + 1
            End With
        Next H_antal
    Next V_antal
End Sub

Du er så vild!! :-) Tusind tak for hjælpen!

Hvad hvis jeg vil have userform til at auto tilpasse sig de kontrolelementer, der er i userformen?

Selv tak - skal nok vende tilbage vedr. dit spørgsmål..

Const antalRækker = 12
Const antalPrRæk = 12
Const H_mellemrum = 5
Const V_mellemrum = 5
Const højde = 25
Const bredde = 70
Const tbNavn = "Tb_"                'efterfulgt af Nr
Dim tbNr As Integer, V_antal As Integer, H_antal As Integer, H_offset As Integer, V_offset As Integer
Private Sub UserForm_activate()
    tbNr = 1
    H_offset = 0
    V_offset = 5
   
    For V_antal = 1 To antalRækker
        For H_antal = 1 To antalPrRæk
            Controls.Add "forms.Textbox.1", tbNavn & CStr(tbNr), True
            With Controls(tbNavn & CStr(tbNr))
                V_offset = V_mellemrum + (højde + V_mellemrum) * (V_antal - 1)
                .Top = V_offset
                .Height = højde
                .Width = bredde
                .Left = H_mellemrum + (H_offset + bredde) * (H_antal - 1)
                H_offset = H_mellemrum
                tbNr = tbNr + 1
            End With
        Next H_antal
    Next V_antal

rem Tilføjelser   
    Me.Width = (bredde * antalPrRæk + 1) + H_mellemrum * (antalPrRæk + 1) + H_mellemrum  'H_antal
    Me.Height = (V_mellemrum + højde) * V_antal + 1
End Sub