problemer med løkker igen igen

Det er kun effektivt med en løkke, hvis behandlingen i tekstboksene er ens - eller efter et enkelt mønster.

Hvis det kun drejer sig om 8 linier ala dem du beskriver er det nok ligeså enkelt at fortsætte din kode, som du er begyndt.

Det kan nu laves snilt. Du er jo rutineret, så du fanger nok denne her uden yderligere forklaring !!

Private Sub UserForm_Initialize()
Dim JumpCells As Range
Dim i As Integer

    Set JumpCells = Range(\"b1, c2, d3, e4, f5, g6, h7, i8\")
   
    For i = 1 To JumpCells.Areas.Count
        Me.Controls(\"TextBox\" & i).Text = Range(JumpCells.Areas(i).Address).Value
    Next i

    Set JumpCells = Nothing
End Sub

Der er ikke mange linier sparet, men en løkke er det da ;-)

Hvis det er den samme userform som før, hvilket det nok er, så kan du med fordel definere JumpCells øverst i userformens kodemodul og SET sætningen i din Userform_Initialize, således JumpCells kan bruges frit i alle Private Sub på userformen.

Du vil således kunne bruge    For i = 1 To JumpCells.Areas.Count    på den sidste løkke du fik løst.

Do you follow ?

Du har ret jan, men det er lidt fremtidssikret, idet der kun skal rettes/slettes/tilføjes i Range(\"b1, c2, d3, e4, f5, g6, h7, i8\")

Ja, det er rigtigt.
Med det \"mønster\" som anvendes kunne man vel også lave to løkker inden i hinanden - én som kører på række og én som kører på kolonne, hvis man kører efter R1C1 formen.

ja, det kan man vel.

1000 tak.. kører perfekt :)