Formularsteuerelement Kontrollkästchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Mario,

abgesehen von Sinn und Zweck solch vieler Kontrollkästchen...
Lösche alle Kontrollkästchen ab Zeile 5, die die falsche Zellverknüpfung haben, dann kannst du alle fehlenden ab Zeile 5 bis zur letzten Zeile mit folgendem Code erstellen:

Sub CheckBoxenErstellen()

    Dim lngLetzte As Long

    Dim lngZeile As Long

    Dim arrShapes(0 To 2)

    arrShapes(0) = "Kontrollkästchen 4"

    arrShapes(1) = "Kontrollkästchen 5"

    arrShapes(2) = "Kontrollkästchen 6"

    lngLetzte = Cells(Rows.Count, 4).End(xlUp).Row

    ActiveSheet.Shapes.Range(arrShapes()).Select

    Selection.Copy

    Application.ScreenUpdating = False

    For lngZeile = 6 To lngLetzte

        Cells(lngZeile, 1).Select

        ActiveSheet.Paste

        ActiveSheet.Shapes(ActiveSheet.Shapes.Count - 2).ControlFormat.LinkedCell = Cells(lngZeile, 7).Address

        ActiveSheet.Shapes(ActiveSheet.Shapes.Count - 1).ControlFormat.LinkedCell = Cells(lngZeile, 6).Address

        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ControlFormat.LinkedCell = Cells(lngZeile, 5).Address

    Next lngZeile

    Application.ScreenUpdating = True

End Sub

Beachte, dass der Code einige Zeit benötigt um alle Kontrollkästchen zu erstellen.

Bis später
Karin

https://excel-inn.de/

Sub Zuweisen() Dim chkBox As CheckBox For Each chkBox In ActiveSheet.CheckBoxes If chkBox.Caption = "Vorhanden" Then chkBox.LinkedCell = Cells(chkBox.TopLeftCell.Row, 5).Address If chkBox.Caption = "Bedingt Vorhanden" Then chkBox.LinkedCell = Cells(chkBox.TopLeftCell.Row, 6).Address If chkBox.Caption = "Nicht Vorhanden" Then chkBox.LinkedCell = Cells(chkBox.TopLeftCell.Row, 7).Address Next chkBox End Sub

Sub CheckBoxenErstellen() Dim lngLetzte As Long Dim lngZeile As Long Dim arrShapes(0 To 2) arrShapes(0) = "Kontrollkästchen 4" arrShapes(1) = "Kontrollkästchen 5" arrShapes(2) = "Kontrollkästchen 6" lngLetzte = Cells(Rows.Count, 9).End(xlUp).Row ActiveSheet.Shapes.Range(arrShapes()).Select Selection.Copy Application.ScreenUpdating = False For lngZeile = 5 To lngLetzte Cells(lngZeile, 6).Select ActiveSheet.Paste ActiveSheet.Shapes(ActiveSheet.Shapes.Count - 2).ControlFormat.LinkedCell = Cells(lngZeile, 10).Address ActiveSheet.Shapes(ActiveSheet.Shapes.Count - 1).ControlFormat.LinkedCell = Cells(lngZeile, 11).Address ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ControlFormat.LinkedCell = Cells(lngZeile, 12).Address Next lngZeile Application.ScreenUpdating = True End Sub

HI
Kontrollkästchen kannst du nicht "ziehen"
da musst du jedes einzeln bearbeiten.

Kann man hier tatsächlich mehrere Optionen auswählen?
ich denke nein.
dann ist das einfachste, wie von Herbert vorgeschlagen, für die Zellen eine Datenüberprüfung anzulegen.
das kannst du für viele Zellen gleichzeitig machen, oder auch auf zusätzliche Zellen erweitern.
In der Datenüberprüfung nimmst du die Option "Liste" und gibst dann semikolongetrennt die drei Texte zur Auswahl an.
der Anwender bekommt dann, wenn er auf die Zelle klickt, ein DropDown-Feld zur Auswahl, mit dem er einen der angegebenen Texte auswählen kann.

wenn du bei den Steuerelementen bleiben willst, würde ich eher zu einer Listbox raten.
dann hast du pro Zelle nur ein Steuerelment und nicht drei.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Formularsteuerelement Kontrollkästchen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formularsteuerelement Kontrollkästchen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread