Controllbox mit Verknüpfung
05.05.2021 14:58:21
Reinhard
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