im Archiv hab ich folgende Sequenz gefunden (funktioniert k.P)
With ActiveSheet.CheckBoxes.Add(Position_links, Position_oben * i, Breite, Höhe)
.Left = Position_links
.Top = Position_oben
.Height = Höhe
.LinkedCell = ActiveSheet.Cells(i, 1).Address
'ActiveSheet.Cells(i, 1).Value = False
'ActiveSheet.Cells(i, 1).NumberFormat = ";;;"
.Display3DShading = False 'True
.Characters.Text = ""
End With
Aber, warum werden die Positionierungen scheints 2 mal vorgenommen?Большоe спaсибо !
Mit freundlichen Grüßen
Albrecht