Steuerelement kopieren

[Roger Lüber]

(Excel 2003)

Hallo zusammen,

Habe folgendes Problem:
In der Zelle A1 habe ich ein Formular-Steuerelement (in meinem Fall ein
Kontrollkästchen). Mittels Eigenschaften --> Zellverknüpfung habe ich das
Steuerelement mit der Zelle verbunden, wo es sich befindet, also A1.

Nun möchte ich die Zelle mitsamt Steuerelement nach unten kopieren, so dass
die Kopien jeweils mit der Zelle verbunden sind, wo sie sich befinden, also
das Steuerelement in A2 mit A2 usw.

Egal, ob ich es mit Ctrl-U oder mit Ctrl-C/Ctrl-V versuche, die Kopien der
Steuerelemente sind immer mit der Zelle des Originals, also mit A1 verknüpft.

Kann mit jemand weiterhelfen?

[Melanie Breden]

Hallo Roger,

Post by Roger Lüber
Nun möchte ich die Zelle mitsamt Steuerelement nach unten kopieren, so dass
die Kopien jeweils mit der Zelle verbunden sind, wo sie sich befinden, also
das Steuerelement in A2 mit A2 usw.
Egal, ob ich es mit Ctrl-U oder mit Ctrl-C/Ctrl-V versuche, die Kopien der
Steuerelemente sind immer mit der Zelle des Originals, also mit A1 verknüpft.

Steuerlemente verhalten sich anders als Zellen. Beim Kopieren von Zellen werden
relative Formelbezüge an die neue Position angepasst.

Das funktioniert bei Steuerlementen nicht. Beim kopieren eines Elementes werden
seine gesamten Eigenschaften übernommen und müssen manuell angepasst werden.


Mit freundlichen Grüssen
Melanie Breden

[stefan onken]

Post by Roger Lüber
(Excel 2003)
Hallo zusammen,
In der Zelle A1 habe ich ein Formular-Steuerelement (in meinem Fall ein
Kontrollkästchen). Mittels Eigenschaften --> Zellverknüpfung habe ich das
Steuerelement mit der Zelle verbunden, wo es sich befindet, also A1.
Nun möchte ich die Zelle mitsamt Steuerelement nach unten kopieren, so dass
die Kopien jeweils mit der Zelle verbunden sind, wo sie sich befinden, also
das Steuerelement in A2 mit A2 usw.
Egal, ob ich es mit Ctrl-U oder mit Ctrl-C/Ctrl-V versuche, die Kopien der
Steuerelemente sind immer mit der Zelle des Originals, also mit A1 verknüpft.
Kann mit jemand weiterhelfen?
--
Mit freundlichen Grüßen,
Roger Lüber

hallo Roger,
als Ergänzung zu Melanie`s Beitrag sei noch erwähnt, dass für solche
Fälle Makros programmiert werden können, um das kopieren/Verknüpfung
ändern zu automatisieren. Dazu würdest du mit Alt+F11 in den VBA-
Editor wechseln, Einfügen/Modul, in das große Codefenster diesen Code
kopieren:

Sub KontrollkästchenKopieren()
Set rng = Application.InputBox _
("wohin kopieren?", Type:=8)
With ActiveSheet
.Shapes(1).Copy
For Each zelle In rng
.Paste Destination:=zelle
.Shapes(.Shapes.Count).DrawingObject. _
LinkedCell = zelle.Address
Next
End With
End Sub

Editor beenden (Alt+F11) und über Extras/Makro/Makros den Code
starten.

Gruß
stefan

[Roger Lüber]

Besten Dank Euch beiden!

Das mit dem Makro habe ich noch nicht probiert.
Aber ich denke, das werde ich schaffen... ;-)

Gruss,
Roger

Post by stefan onken

Post by Roger Lüber
(Excel 2003)
Hallo zusammen,
In der Zelle A1 habe ich ein Formular-Steuerelement (in meinem Fall ein
Kontrollkästchen). Mittels Eigenschaften --> Zellverknüpfung habe ich das
Steuerelement mit der Zelle verbunden, wo es sich befindet, also A1.
Nun möchte ich die Zelle mitsamt Steuerelement nach unten kopieren, so dass
die Kopien jeweils mit der Zelle verbunden sind, wo sie sich befinden, also
das Steuerelement in A2 mit A2 usw.
Egal, ob ich es mit Ctrl-U oder mit Ctrl-C/Ctrl-V versuche, die Kopien der
Steuerelemente sind immer mit der Zelle des Originals, also mit A1 verknüpft.
Kann mit jemand weiterhelfen?
--
Mit freundlichen Grüßen,
Roger Lüber

hallo Roger,
als Ergänzung zu Melanie`s Beitrag sei noch erwähnt, dass für solche
Fälle Makros programmiert werden können, um das kopieren/Verknüpfung
ändern zu automatisieren. Dazu würdest du mit Alt+F11 in den VBA-
Editor wechseln, Einfügen/Modul, in das große Codefenster diesen Code
Sub KontrollkästchenKopieren()
Set rng = Application.InputBox _
("wohin kopieren?", Type:=8)
With ActiveSheet
.Shapes(1).Copy
For Each zelle In rng
.Paste Destination:=zelle
.Shapes(.Shapes.Count).DrawingObject. _
LinkedCell = zelle.Address
Next
End With
End Sub
Editor beenden (Alt+F11) und über Extras/Makro/Makros den Code
starten.
Gruß
stefan