Adresse "relativ" bei Steuerelementen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jochen,
folgendes Makro setzt die verknüpfte Zelle entsprechend der Zell-Position der Checkboxen aus "Formular" in Spalte F (6) des Blattes. Makro Erstellt mit Excel 2003


Sub VerknuepfungCheckbox()
Dim Checkbox As Shape
Spalte = 6 ' Checkboxen in Spalte 6 (F)
For Each Checkbox In ActiveSheet.Shapes
With Checkbox
If .Type = msoFormControl Then 'Abfrage auf Formblatt Kontoll-Elemente
If .FormControlType = xlCheckBox And .TopLeftCell.Column = Spalte Then
If .ControlFormat.LinkedCell <> .TopLeftCell.Address Then
.ControlFormat.LinkedCell = .TopLeftCell.Address
End If
End If
End If
End With
Next
End Sub

Dieses Makro kannst du der ersten Checkbox zuweisen. Nach dem Kopieren der Checkboxen wird die Verknüpfung geprüft und ggf. aktualisiert, sobald du eine der Checkboxen anklickst.
Ich hab es mal mit 10 bis 15 Checkboxen probiert. Laufzeit ist ok. Falls du sehr viele Checkboxen hast, dann geht evtl. Laufzeit hoch, da bei jedem Klick auf eine Checkbox alle Shape-Elemente des Blattes überprüft werden. Dann ist es evtl. sinnvoller das Makro nicht den Checkboxen zuzuweisen, sondern nach einer Zeilenkopieraktion das Makro manuel z.B. per Button zu starten.
Gruß
Franz

Sub VerknuepfungCheckbox() Dim Checkbox As Shape Spalte = 7 ' Checkboxen in Spalte 7 (F) For Each Checkbox In ActiveSheet.Shapes With Checkbox If .Type = msoFormControl Then 'Abfrage auf Formblatt Kontoll-Elemente Gelb--> If .FormControlType = xlCheckBox And .TopLeftCell.Column = Spalte Then If .ControlFormat.LinkedCell <> .TopLeftCell.Address Then .ControlFormat.LinkedCell = .TopLeftCell.Address End If End If End If End With Next End Sub

Sub VerknuepfungCheckbox() Dim Checkbox As Shape Spalte = 7 ' Checkboxen in Spalte 7 (F) For Each Checkbox In ActiveSheet.Shapes With Checkbox If .Type = msoFormControl Then 'Abfrage auf Formblatt Kontroll-Elemente MsgBox "Shape-Name: " & .Name 'Testzeile zeigt ggf. Problem-Objekt an If .FormControlType = xlCheckBox Then If.TopLeftCell.Column = Spalte Then If .ControlFormat.LinkedCell <> .TopLeftCell.Address Then .ControlFormat.LinkedCell = .TopLeftCell.Address End If End If End If End If End With Next End Sub

Beliebteste Forumthreads (12 Monate)

Adresse "relativ" bei Steuerelementen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Adresse "relativ" bei Steuerelementen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread