Makro mit Checkbox funktioniert nicht
09.06.2016 10:22:07
Torsten
ich möchte gerne ein Makro erstellen, das bei aktivieren einer Checkbox einen Wert aus einer Zelle Ausschneidet und an anderer Stelle einfügt.
Mein Ziel ist es, das ich dadurch die Auswahl eines Dropdown Menüs einschränken kann, indem nur die Werte der aktivierten Checkboxen in das neue Feld kopiert werden, welches ich zur Auswahl des Dropdown Menüs verwende.
Mein Code lautet folgendermaßen (Beispiel für meine Checkbox1):
Option Explicit
Dim Check1 As Boolean
Sub Makro1()
' Makro1 Makro
If Check1 = True Then
Sheets("Daten für Dropdown Menü").Select
Range("D5").Select
Selection.Copy
Range("D20").Select
ActiveSheet.Paste
End If
End Sub
Vielen Dank im Vorraus
