Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Feldmann am März 06, 2014, 13:22:57 Nachmittag
-
Habs, den Code lass ich mal stehen, vielleicht hilft er irgend wem mal ^^
Der Code:
Option Explicit
Sub CheckBox()
Dim Repeat As Integer
Dim Position As Double
Application.ScreenUpdating = False
Position = 25
ActiveSheet.Range("V:V").Font.ColorIndex = 2
For Repeat = 2 To 5
With ActiveSheet.CheckBoxes.Add(1119, Position, 16, 16)
.LinkedCell = "$V$" & Repeat
.Characters.Text = ""
End With
Position = Position + 12.75
Next
End Sub
Danke soweit