Checkbox aus bestehenden gefüllten Zellen erstellen

[SteBen]

Hallo zusammen,

ich bin auf der Suche nach einer Möglichkeit definierte Zellen (A1,B1,C1, ...), die alle bereits Daten enthalten, in eine check box umzuwandeln.

Leider sind es sehr viele Zellen, weshalb ich das ganze nur sehr ungern manuell machen möchte...

Hat jemand eine Idee?

Danke vorab 
SteBen

[Elex]

Hi

Bei den Vorgaben kann ich dir erst mal nur einen Ansatz geben.
Doppelklick auf eine Zelle die eine Checkbox erhalten soll.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ActiveSheet.Shapes.AddFormControl(1, Target.Left, Target.Top, Target.Width, Target.Height).Select
  Selection.Characters.Text = Target.Value
  Target.Value = ""
End Sub

Gruß Elex

[snb]

@Elex

Besser ohne 'Select'

[Elex]

Hi @snb

Hatte ich versucht.
Aber da kam ich irgendwie nicht weiter.

????      Characters.Text = Target.Value   

Gruß Elex

Ok dann wohl so. Oder?

Code:

  With Shapes.AddFormControl(1, Target.Left, Target.Top, Target.Width, Target.Height)
   .DrawingObject.Characters.Text = Target.Value
  End With
  Target.Value = ""

[snb]

Oder:

PHP-Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Shapes.AddFormControl(1, Target.Left, Target.Top, Target.Width, Target.Height).TextFrame.Characters.Text = "snb"
   Target.ClearContents
End Sub 


[SteBen]

Danke für Eure Lösungen, damit kann ich super leben :)

Danke Euch