VBA Checkboxen per IF einfügen

[CHASiN1994]

Hallo lieber VBL´er,

Ich habe einen Maßnahmenplan in der Vergangenheit erstellt, der uns in vielen Projekten weiterhilft.

Diesen habe ich nach und nach für Funktionalität erweitert mit verschiedenen Makros. Jetzt komme ich in einen weiteren Schritt, den ich nicht mehr selber lösen kann und ich finde im Netz nicht so das passende und verzweifle an der Umsetzung eines eigenen Makros dafür. 

Es geht darum, dass ich den Kollegen einen blanko Maßnahmenplan zuschicken möchte und diese in Spalte A Kurzbeschreibungen einfügen. Dann kommen immer passend zum Baustein Unterthemen.

Ich möchte nun, dass die Kollegen per Knopfdruck die Checkboxen einfügen lassen. und zwar nur wenn in A etwas steht. 

Heißt das Makro müsste in etwa so lauten

If Spalte A = "*" then insert Checkbox in F;G;H 

Aber für jede Zeile ab Zeile 4

/// falls das irgendwie möglich sein sollte hätte ich gerne dass nur dann eine Checkbox in Spalte F;G;H eingefügt werden soll wenn in Spalte A das NICHT fettgedruckte steht.

Ich habe einen blanko Maßnahmenplan angehangen.

Vielen Dank im Voraus

[snb]

Verzichte auf 'merged cells'.

[CHASiN1994]

Ok, habe ich gemacht :)

[CHASiN1994]

Hallo,

hat jemand eine Idee, die mir weiter hilft? 

Mit freundlichen Grüßen

[schauan]

Hallöchen,

also, der Verzicht auf die verbundenen Zellen war anscheinend nicht die Lösung.

Ich würde eher auf die Checkboxen verzichten. Du könntest stattdessen direkt den Zellinhalt nutzen und den Haken per Schriftart setzen oder einfach nur ein x nehmen. Das Einfügen könntest Du per Doppelklick-Event auslösen. Hier mal ein Beispiel mit x

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Wenn im bereich F4:H100 geklickt wurde, dann
If Not Intersect(Target, Range("F4:H100")) Is Nothing Then
  'Wenn die Schriftart in Ax nicht fett ist, dann
  If Cells(Target.Row, 1).Font.Bold = False Then
    'Inhalt "x" / "" tauschen
    If ActiveCell.Value = "x" Then ActiveCell.Value = "" Else ActiveCell.Value = "x"
  'Ende Wenn die Schriftart in Ax nicht fett ist, dann
  End If
'Ende Wenn im bereich F4:H100 geklickt wurde, dann
End If
'Eingabe verlassen
Cancel = True
End Sub