Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zur automatische Zellverknüpfung von Kontrollkästchen

Forumthread: Makro zur automatische Zellverknüpfung von Kontrollkästchen

Makro zur automatische Zellverknüpfung von Kontrollkästchen
26.06.2024 15:23:37
Sabrina
Hallo Zusammen,
von einem Subunternehmer erhalte ich für ein Projekt einen wöchentlichen Bericht, welcher die Tätigkeiten in einer Matrix über Kontrollkästchen abhakt (Zeilen=Standorte, Spalten=Tätigkeiten). Ich hätte gerne eine Makro, welche automatisch eine Zellverknüpfung der Kontrollkästchen zu einem zweiten Tabellenblatt herstellt und zwar in den gleichen Zellen wie im ursprünglichen Tabellenblatt. Ziel ist es, jede Woche den aktuellen Stand in Tabelle 1 rüberzukopieren, durch die Makro die Zellverknüpfung auf Tabelle 2 herzustellen und auf Basis der Tabelle 2 meine Auswertung auszulesen.
Ich habe bisher folgenden Code gefunden:

Option Explicit

Sub zellverknuepfung()
Dim cb As CheckBox
For Each cb In Tabelle1.CheckBoxes
cb.LinkedCell = cb.TopLeftCell.Offset(0, 1).Address
Next cb
End Sub


Dieser erstellt eine Zellverknüpfung in die jeweils rechte Zelle, aber wie kriege ich die in eine andere Tabelle?
Ich bin gespannt.
Grüße
Sabrina
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zur automatische Zellverknüpfung von Kontrollkästchen
26.06.2024 15:40:50
daniel
Hi
Wenn die Checkbox mit einer Zelle auf einem anderen Tabellenblatt verknüpft werden soll, muss man die Adresse mit Tabellenblattnamen angeben so wie in einer normalen Formel auch, vorangestellt und mit Ausrufezeichen getrennt.
Wenn der Blattname auch noch Sonderzeichen enthält muss er in Hochkommas gesetzt werden. Da schon das Leerzeichen so ein Sonderzeichen ist, sollte man die Hochkommas immer verwenden.

cb.LinkedCell = "'Tabelle2'!A1"


dh wenns es die selbe Zelle nur auf einem anderen Blatt sein soll:
cb.LinkedCell = "'Tabelle2'!" & cb.TopLeftCell.Offset(0, 1).Address


Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige