Lijst maken dmv keuzevakjes

[Marco9999]

Hallo,

Ik zoek een oplossing voor een probleem....
In kolom A heb ik een aantal teksten staan welke d.m.v. een selectievakje gekozen kunnen worden.
Nu wil ik graag dat de gekozen teksten direct onder elkaar komen te staan in kolom B. Zoiets als in het bijgesloten bestand.
Ooit heb ik het wel eens voor elkaar gekregen met visual basic maar dat was flink omslachtig en heb geen idee meer hoe dat ging.

Iemand een idee?

Groet,
Marco

 

[JeanPaul28]

met vba, dubbelklik in kolom A

 

[Marco9999]

Hee, top! Hier kan ik wel wat mee.

Bedankt!

 

[VenA]

Kan iets simpeler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
    Cancel = True
    Target = IIf(Target = "¨", "þ", "¨")
  End If
End Sub

 

[snb]

Als je dan toch in VBA bezig bent:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
    Target = IIf(Target = "¨", "þ", "¨")

    If Target = "þ" Then
        Cells(Rows.Count, 3).End(xlUp).Offset(1) = Target.Offset(, 1)
    Else
        Columns(3).Replace Target.Offset(, 1), "", 1
        Columns(3).SpecialCells(4).Delete
    End If

    Cancel = -1
  End If
End Sub