Kontrollkästchen mit Zelle verbinden
13.10.2018 21:20:02
edie
im folgenden Makro werden in einem weiteren Arbeitsblatt, hier "Tabelle2", von allen aktiven Kontrollkästchen Verknüpfungen erstellt.
Wie könnte man das Makro so anpassen, dass das Makro Zeilenweise bzw. einen bestimmten Range durchläuft? Mein Problem sind die unterschiedliche Bezüge für Row und Column.
Mal so:"Tabelle2!" & Cells(Sh.TopLeftCell.Row - 4, Sh.TopLeftCell.Column - 1).Address
Mal so: "Tabelle2!" & Cells(Sh.TopLeftCell.Row - 5, Sh.TopLeftCell.Column - 1).Address
Insgesamt 20 verschiedene Bezüge.
Ich könnte ja mehrere Makros durchlaufen lassen jede Zeile oder Range für sich.
Sub test()
'Zeile 4 create Figures
Dim Sh As Shape
Worksheets("Tabelle1").Activate
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoFormControl Then
If Sh.FormControlType = xlCheckBox Then
Sh.ControlFormat.LinkedCell = "Tabelle2!" & Cells(Sh.TopLeftCell.Row - 4, Sh.TopLeftCell. _
Column - 1).Address
End If
End If
Next
End Sub
Vielen Dank im Voraus.
Edie
Anzeige