Check Box Kontrollkästchen
04.01.2005 05:33:10
markus@
-------------------------------------------------------------------------
zum Kästchen Kopieren:
Sub CheckBoxen()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoFormControl Then
If Sh.FormControlType = xlCheckBox Then
Sh.ControlFormat.LinkedCell = Cells(Sh.TopLeftCell.Row + 1, Sh.TopLeftCell.Column).Address
End If
End If
Next
End Sub
---------------------------------------------------------------------
wunderbar mit dem Kopieren und wie kopiert man gleich zu jeden kontrollkästchen die formel dazu inklusive der vortlaufenden zeilen danke
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
Checbox 4 -31 usw
danke