Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Checkboxen kopieren

Checkboxen kopieren
15.10.2012 16:04:50
Claudia
Hallo zusammen,
ich habe die Aufgabe eine Kontaktliste zu erstellen mit beigefügter Tabelle und Checkboxen. Im Beispiel sieht man einen Kunden. Ich möchte nun diese 4 Zeilen (als eine zusammengeführt) kopieren für 500 Kunden. Jetzt habe ich das Problem, wenn ich diese eine Zeile kopiere, dass die Checkboxen bei Anwahl (Haken setzen) alle gleichzeitig in jeder zeile markiert sind. Beispiel: Ich markiere unter der Spalte Prio Zeile 1 die Nummer 1, dann sind alle 1 in jeder Zeile dieser Spalte markiert.
Wie dupliziere ich diese Checkboxzeile für 500 Kunden, so dass jede Checkbox unabhängig einzeln anwählbar ist.
Viele Grüße
Claudia
https://www.herber.de/bbs/user/82134.xlsx

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen kopieren
15.10.2012 18:11:24
Daniel
Hallo Claudia
Ich hatte schon mal das gleiche Problem und habe es schlussendlich mit einem Makro hingekriegt, das ich hier im Forum gefunden hatte.
Sub Create_Checkboxes()
Dim i As Integer
For i = 9 To 207 'Zahl bitte anpassen
ActiveSheet.CheckBoxes.Add(Cells(i, 8).Left, Cells(i, 8).Top, 20, 8).Select
With Selection
.Caption = ""
.Value = xlOff
.LinkedCell = "H" & i
.Display3DShading = True
End With
Next i
End Sub
Die Zeile die beginnt mit "For i" bezeichnet die Zeilen von Zeile X bis Zeile Y (in diesem Fall 9-207)
Dann die Zeile mit dem Text "(Cells(i, 8)" bezeichnet die Zahl die Spalte A=1 B=2 etc.(in diesem Fall also H). Entsprechend müsstest Du auch die Zeile ".LinkedCell = "H" & i auf Deine Spalten hin anpassen.
Grüsse aus der Schweiz
Daniel

Anzeige
AW: Checkboxen kopieren
15.10.2012 23:03:24
Claudia
Hallo,
vielen Dank verstehe aber die Lösung nicht. Vor allem bei 500 Einträgen weiss ich nicht wie ich die Loop gestalten muss. Bei jedem neuen Eintrag muss ich es anpassen. Die Lösung ist leider keine brauchbare für mich. Zumal ich sie nicht verstehe.
Liebe Grüsse
Claudia

Anzeige
AW: Checkboxen kopieren
16.10.2012 07:52:33
Beverly
Hi Claudia,
1. gestalte dein Tabellenblatt ohne verknüpfte Zellen
2. positioniere die Kontrollkästchen so, dass sie tatsächlich inerhalb einer Zelle liegen
Dann kannst du mit folgendem Code allen Kontrollkästchen die Zellverknüpfung zuweisen (jeweils 4 Spalten weiter rechts):
Sub Zuweisen()
Dim chkElement As CheckBox
For Each chkElement In ActiveSheet.CheckBoxes
chkElement.LinkedCell = Cells(chkElement.TopLeftCell.Row, chkElement.TopLeftCell.Column +  _
4).Address
Next chkElement
End Sub
https://www.herber.de/bbs/user/82138.xlsm


Anzeige
AW: Checkboxen kopieren
17.10.2012 16:38:24
Daniel
Hallo Claudia
Ich habe Karins Idee übernommen und Dir ein Button für den Eintrag eines neuen Kunden erstellt. Er fügt einen neuen Datensatz ein und verwendet Karins Makro, um die Checkboxen richtig zu verknüpfen.
Grüsse aus der Schweiz
Dani
https://www.herber.de/bbs/user/82165.xlsm

Anzeige
AW: Checkboxen kopieren
17.10.2012 17:58:10
Hajo_Zi
Hallo Dani,
ich vermute mal das Prioblem istgelöst.
Lass den Fragesteller entscheiden ob offen. Der kann das am besten Einschätzen.

;
Anzeige
Anzeige

Infobox / Tutorial

Checkboxen in Excel unabhängig kopieren


Schritt-für-Schritt-Anleitung

Um Checkboxen in Excel unabhängig zu kopieren, folge diesen Schritten:

  1. Erstelle deine Tabelle: Lege eine Tabelle an, in der die Checkboxen benötigt werden. Stelle sicher, dass die Checkboxen innerhalb der Zellen platziert sind.

  2. Füge Checkboxen hinzu: Nutze den folgenden VBA-Code, um Checkboxen zu erstellen und sie mit Zellen zu verknüpfen. Öffne den VBA-Editor (ALT + F11) und füge ein neues Modul hinzu.

    Sub Create_Checkboxes()
        Dim i As Integer
        For i = 9 To 500 ' Anzahl der Kunden anpassen
            ActiveSheet.CheckBoxes.Add(Cells(i, 8).Left, Cells(i, 8).Top, 20, 8).Select
            With Selection
                .Caption = ""
                .Value = xlOff
                .LinkedCell = "H" & i
                .Display3DShading = True
            End With
        Next i
    End Sub
  3. Verknüpfe die Zellen: Um sicherzustellen, dass jede Checkbox in der Tabelle unabhängig ist, kannst du den folgenden Code verwenden, um die Zellverknüpfung zuzuweisen:

    Sub Zuweisen()
        Dim chkElement As CheckBox
        For Each chkElement In ActiveSheet.CheckBoxes
            chkElement.LinkedCell = Cells(chkElement.TopLeftCell.Row, chkElement.TopLeftCell.Column + 4).Address
        Next chkElement
    End Sub
  4. Führe die Makros aus: Starte die Makros, um die Checkboxen zu erstellen und die Zellverknüpfungen zuzuweisen.


Häufige Fehler und Lösungen

  • Checkboxen markieren alle gleichzeitig: Dies passiert, wenn die Checkboxen nicht richtig mit den Zellen verknüpft sind. Stelle sicher, dass du die .LinkedCell-Eigenschaft für jede Checkbox korrekt anpasst.

  • Checkboxen nicht sichtbar: Überprüfe, ob die Checkboxen innerhalb der Zellen positioniert sind, um sicherzustellen, dass sie sichtbar sind.


Alternative Methoden

Eine alternative Methode, um Checkboxen zu kopieren, besteht darin, sie manuell zu erstellen und anschließend die Zellverknüpfungen mithilfe des oben genannten VBA-Codes zuzuweisen. Dies kann besonders nützlich sein, wenn du nur eine kleine Anzahl von Checkboxen benötigst.


Praktische Beispiele

Angenommen, du hast eine Kundenliste und möchtest für jeden Kunden ein Kontrollkästchen erstellen. Verwende den ersten VBA-Code, um Checkboxen in der Spalte H zu erstellen und verknüpfe sie mit den Zellen in Spalte H. Wenn du die Checkboxen für 500 Kunden erstellen möchtest, passe einfach die Schleifenparameter an.


Tipps für Profis

  • Verwendung von Schaltflächen: Du kannst eine Schaltfläche hinzufügen, um das Makro zur Erstellung der Checkboxen auszuführen, was den Prozess benutzerfreundlicher macht.
  • Dynamische Zellverknüpfungen: Überlege, ob du die Zellverknüpfungen dynamisch gestalten möchtest, um sie einfacher anpassen zu können, wenn sich die Tabelle ändert.

FAQ: Häufige Fragen

1. Wie kann ich die Checkboxen in Excel kopieren? Um Checkboxen in Excel zu kopieren, musst du sicherstellen, dass jede Checkbox unabhängig mit ihrer jeweiligen Zelle verknüpft ist. Verwende dazu VBA-Code, um die Zellverknüpfungen zu erstellen.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, die beschriebenen Methoden funktionieren in den meisten Excel-Versionen, die VBA unterstützen, wie Excel 2010 bis 2021 und Excel für Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige