Selectievakje excel VBA

[Jos1234]

In een bestandje (zie bijlage) heb ik een 2tal selectievakjes. Ik wil de gegevens via een userform ingeven, maar bij elke nieuwe invoer moeten die selectievakjes er ook voor geplaatst worden (zie voorbeeldje in bijlage). userform e.d. lukt wel, maar die selectievakjes krijg ik niet klaar.

Vandaar mijn 3 vragen:
1. hoe de 2 selectievakjes naar cel A4 en B4 kopiëren (met VBA)?
2. hoe de onderliggende cellen (A4 en B4) de "linked cell" maken? (in vba)
3. hoe de oorspronkelijke tekst (selectievakje …) verwijderen (in vba)?

Bedankt.

 

[HSV]

Blijkbaar is het Userform mislukt.

 

[Jos1234]

Het userform heb ik er niet bij gevoegd. Ik dacht dat dat niet relevant was.

 

[HSV]

Bv.

Sub hsv()
Dim j As Long, c As Range, sh As Shape, a
With Blad1
For Each sh In .Shapes
  If a < .Range(sh.ControlFormat.LinkedCell).Row Then a = .Range(sh.ControlFormat.LinkedCell).Row
Next sh
  For j = 0 To 1
   Set c = .Cells(a, 1).Offset(1, j)
     With .CheckBoxes.Add((c.Left + 27), (c.Top - 2), 10, 10)
        .Characters.Text = ""
        .LinkedCell = c.Address
        .ShapeRange.Height = 17.25
        .ShapeRange.Width = 10
     End With
  Next j
 End With
End Sub