Indtast værdier via Userform

Hej

Jeg har oprettet en userform hvor man skal indtaste to værdier i tekstbokse Tba og TBb. I userformen er også en tilføj-knap. Værdierne placeres i et regneark i to celler ved siden af hinanden. Når det er gjort skal den rykke en ned, således at man er klar til en ny indtastning. Jeg har forsøgt med følgende og det virker også første gang:

Private Sub CBTilføj_Click()


Range(”a6”).select

ActiveCell.Value = TBa.Value
ActiveCell.Offset(0, 2).Value = TBb.Value
ActiveCell.Offset(1, 0).Select
TBa.Value = "" ' nulstiller værdier i userform
TBb.Value = ""


End Sub

Jeg har også tilføjet en ”Afslut”-knap, som lukker Userformen