verzet wijziging 1 cel naar rechts

[avesoft]

heren leden

ik gebruik volgende macro,s voor opgevraagde gegevens in userform te wijzigen en weer op te slaan , maar ge gegevens worden alles 1 cel naar rechts gezet

zie ik iets over het hoofd ??

Private Sub ComboBox1_Change()
    If Sheets("Vijzels Systeem 12 13 14").Columns(1).Find(ComboBox1, , xlValues, xlWhole) Is Nothing Then Exit Sub
    sq = Sheets("Vijzels Systeem 12 13 14").Columns(1).Find(ComboBox1, , xlValues, xlWhole).Offset(, 0).Resize(, 23)
        For i = 1 To UBound(sq, 2)
            Me("Textbox" & i + 1) = sq(1, i)
             
        Next
End Sub

Private Sub CommandButton1_Click()
    Frow = Sheets("Vijzels Systeem 12 13 14").Columns(1).Find(ComboBox1, , xlValues, xlWhole).Row
        For i = 2 To 23
            Sheets("Vijzels Systeem 12 13 14").Cells(Frow, i) = Me("Textbox" & i).Value
        Next
    Dim Ctl As Control
    For Each Ctl In WijzigVerwijder1.Controls
        If TypeOf Ctl Is MSForms.TextBox Or TypeOf Ctl Is MSForms.ComboBox Then
            Ctl.Text = ""
        End If
    Next
End Sub

gr arie

 

[HSV]

Misschien in het rood?

 Sheets("Vijzels Systeem 12 13 14").Cells(Frow, i[COLOR="red"] - 1[/COLOR]) = Me("Textbox" & i).Value

 

[avesoft]

Harry

id klopt , werkt perfect had het niet gezien

bedankt

gr arie