vervangen waarde in cel

[DClewis]

Ik wil graag vanuit een userform de waarde in een cel vervangen
Echter met mijn code maakt hij de waarde in de cel blank

Private Sub CommandButton1_Click()
   'De rij in de Excel-tabel waarin gegevens worden gewijzigd
   Dim rij As Integer
   rij = ActiveCell.Row
   
   'De gegevens in de tekstvakken op het userform toewijzen aan variabelen
   Dim txt(1 To 2) As String
   TextBox1 = TextBox1.Value
   TextBox2 = TextBox2.Value
   TextBox3  = TextBox3.Value
enz

   
   'Gegevens in de Excel-tabel plaatsen
   For i = 1 To 2
       Cells(rij, i).Value = txt(i)
   Next i
   
End Sub

 

[edmoor]

De array txt wordt nergens gevuld.

 

[emields]

Een voorbeeldbestandje kan soms wonderen doen.

 

[DClewis]

Hij vervangt wel maar nog steeds maakt hij dan de cel blanco
Bekijk bijlage VB1.xlsm

 

[edmoor]

De array txt wordt nog steeds nergens gevuld.

 

[DClewis]

Bedankt

Ja dit helpt Edmoor

 

[HSV]

Meer heb je niet nodig toch?

Private Sub CommandButton1_Click()
 cells(rows.count,1).end(xlUp).offset(1).resize(,3) =array(textbox1,textbox2, textbox3)
end sub