Controllbox mit Verknüpfung

Forumthread: Controllbox mit Verknüpfung

05.05.2021 15:22:03

Reinhard

Hallo,
ich habe eine Checkliste erstellt, die mir helfen soll, die einzelnen Arbeitsschritte bei der Ausarbeitung von Umleitungen im ÖPNV zu kontrollieren.
Hierzu gibt es je Umleitung ein Spalte mit insgesamt 10 Checkboxen. Drei dieser Checkboxen (in den Spalten D, I und N ist die Checkbox mit dem Feld, in dem es liegt auch verknüpft und löst durch bedingte Formatierungen Farbwechsel in der eigenen und/oder anderen Zellen aus. Die Zeilen 1-3 bilden den Listenkopf, Zeile 4 wird ausgeblendet, weil es sonst Probleme mit der Darstellung der Checkboxen gibt (Die Spaltenüberschriften habe ich schräg geschrieben Mein Problem: Beim Kopieren der Zeile 5 werden die CheckBoxen zwar mit kopiert, die Verknüpfungen bleiben aber die Selben, so daß, wenn ich jetzt einen Haken in die Neue Zelle D6 setze, erscheint auch der Zelle D7 der Haken, und Zeile 7 wird entsprechend umgefärbt.
Hier zunächst mein Code.


Sub NeueInfo()
' NeueInfo Makro
Rows("3:6").Select
Range("A6").Activate
Selection.EntireRow.Hidden = False
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
Rows("4:5").Select
Range("A5").Activate
Selection.EntireRow.Hidden = True
End Sub

...Sorry, zu früh verschickt...
Und hier die Datei:
https://www.herber.de/bbs/user/146014.xlsm
In Tabelle 3 habe ich eine hier gefundene Datei kopiert, die ein ähnliches Problem hatte. Der Code dazu funktioniert zwar, grundsätzlich, aber ich kriegs nicht hin, ihn auf meine Liste umzuarbeiten. Er soll sich ja nur auf die neue Zeile beziehen und hier die Verknüpfungen reparieren.


Sub CheckBoxen()
For i = 1 To ActiveSheet.CheckBoxes.Count
ActiveSheet.Shapes("Check Box " & i).Select
Selection.LinkedCell = "J" & 6 + i
Next i
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Controllbox mit Verknüpfung

05.05.2021 20:12:43

ralf_b

AW: Controllbox mit Verknüpfung

05.05.2021 20:12:43

ralf_b

Hallo Reinhard,
hier mal eine sub die alle deine Checkboxen löscht. du hast da nämlich 40 stück auf die 14 Zellen verteilt.
Dann wird pro Zelle eine Neue erstellt, mit der Linkedcell verknüpft, der Text entfernt und abschliessend auf true gesetzt.


Sub CheckBoxen2()
Dim c As Range, cb As CheckBox
'löschen
ActiveSheet.CheckBoxes.Delete
For Each c In Range("J7:J20")
Set cb = c.Worksheet.CheckBoxes.Add(c.Left + c.Width / 2 - 8.25, _
c.Top + c.Height / 2 - 8.25, 0, 0)  ' 8.25 is cb.Height / 2
cb.Text = vbNullString                      ' to clear Caption
cb.LinkedCell = c.Address(0, 0)             ' Example A1 instead of $A$1
cb.Name = "cb" & cb.LinkedCell              ' optional
c = True
Next
end sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Controllbox mit Verknüpfung

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread