Bitte um Hilfe und um einen Code
Checkbox zellenbezug fortlaufend gleich mit Kopieren wie bei Excel selbst.
https://www.herber.de/bbs/user/15598.xls das Tabellen blatt
Kästchen Kopieren kein Problem
---------------------------------------------------------------------
Sub CheckBoxen()
For i = 1 To ActiveSheet.CheckBoxes.Count
ActiveSheet.Shapes("Check Box " & F).Select
Selection.LinkedCell = "G" & 6 + F
Next i
End Sub
--------------------------------------------------------------------
Aber der Zellbezug sollte sich auch gleich mit kopieren
-----------------------------------------------------------------------------
Public
Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Tabelle1").Range("F2").Value = Worksheets("Tabelle1"). _
Range("E2").Value
Else
Worksheets("Tabelle1").Range("Tabelle1!F2").Value = ""
End If
End Sub
-------------------------------------------------------------------
Public
Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Worksheets("Tabelle1").Range("G2").Value = Worksheets("Tabelle1"). _
Range("E2").Value
Else
Worksheets("Tabelle1").Range("Tabelle1!G2").Value = ""
End If
End Sub
-------------------------------------------------
https://www.herber.de/bbs/user/15598.xls
Checbox 4 -31 usw
Danke Markus