Hallo zusammen,
ich verzweifele und hoffe, dass Ihr mit helfen könnt.
Ich habe eine Datenbank, ca 1500 Zeilen, die ich mit Kontrollkästchen versehen
habe und nun beim Klicken WAHR anzeigen.
Nun möchte ich, dass immer wenn ein Datenbereich als WAHR geklickt wird, dieser
in ein neues Tabellenblatt in die nächste freie Zeile kopiert wird. Ich möchte jedoch
nicht in jedes Kästchen einzeln ein Makro dafür eingeben. Wie kann ich das
realisieren.
Mein Code für die Kästchen ist folgender:
Option Explicit
Sub Kontrollkästchen_einfügen()
Dim Wiederholungen As Integer, Position As Double
Application.ScreenUpdating = False
Position = 0
For Wiederholungen = 1 To 1500
With ActiveSheet.CheckBoxes.Add(15, Position, 24, 15)
.LinkedCell = "$A$" & Wiederholungen
.Characters.Text = ""
End With
Position = Position + 15
Next
End Sub
Vielen Dank für eure Hilfe
Grüße
Nicole