Excel VBA loop?

[Dutchy1]

Beste,

In mijn VBA heb ik de volgende code:

Me.Regel1 = ActiveWorkbook.ActiveSheet.Range("N15")
Me.Regel2 = ActiveWorkbook.ActiveSheet.Range("N16")
Me.Regel3 = ActiveWorkbook.ActiveSheet.Range("N17")
Me.Regel4 = ActiveWorkbook.ActiveSheet.Range("N18")

Uiteindelijk wordt dit een hele lange lijst, is het mogelijk om dit korter samen te vatten?

Ik dacht zelf iets met loop maar heb het op tal van manieren geprobeerd en het lukt mij niet echt aangezien ik niet weet hoe die functie in elkaar steekt.
voorbeeld voor de eerste 30

Private Sub UserForm_Initialize()

Dim i As Integer, j As Integer

For i = 1 To 30
    For j = 15 To 44
Me.Control("Regel" & i) = ActiveWorkbook.ActiveSheet.Range("N" & j)
    Next j
Next i
End Sub

 

[edmoor]

Probeer deze eens:

Private Sub UserForm_Initialize()
    Dim i As Integer,
    
    For i = 1 To 30
        Me.Control("Regel" & i) = ActiveWorkbook.ActiveSheet.Range("N" & i + 14)
    Next i
End Sub

 

[Dutchy1]

Probeer deze eens:

Private Sub UserForm_Initialize()
    Dim i As Integer,
    
    For i = 1 To 30
        Me.Control("Regel" & i) = ActiveWorkbook.ActiveSheet.Range("N" & i + 14)
    Next i
End Sub

Beste Edmoor,

De oplossing die je aangeeft heb ik ook geprobeerd, maar dan krijg ik de volgende melding waar ik niet vanaf kom met mijn zelf verzonnen oplossingen:

Compileerfout:
Kan de methode of het gegevenslid niet vinden

En dan is .Control("Regel" & i) blauw geselecteerd

 

[Dutchy1]

Ik denk dat mijn probleem is opgelost dmv

Me("Regel" & i) = ActiveWorkbook.ActiveSheet.Range("N" & i + 14)

Iig bedankt!

 

[edmoor]

Daarom is een voorbeeld documentje altijd beter.

 

[jkpieterse]

Het moest zijn me.controls("regel" & i)