ich habe eine Tabelle ("Eingabe") mit verschiedenen Eingabefeldern, die einen Namen haben. Diese Daten werden durch Klick auf einen Button mit den folgenden VBA Anweisungen in ein anderes Tabellenblatt ("Archiv") übertragen:
Sub DatenInsArchiv()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Eingabe")
Set ws2 = Worksheets("Archiv")
Dim letzteZeile As Long
letzteZeile = ws2.Range("A65536").End(xlUp).Row + 1
ws2.Cells(letzteZeile, 1) = Range("Baunummer").Value
Range("Baunummer").ClearContents
ws2.Cells(letzteZeile, 2) = Range("Bauteil").Value
Range("Bauteil").ClearContents
usw.
Im Rahmen der Dateneingabe möchte ich jetzt nicht nur Daten aus Zellen, sondern auch aus Kontrollkästchen (oder Checkboxen ???) übertragen, d.h. den Wert true oder false. Dies soll durch den gleichen Knopfdruck geschehen.
Kann mir jemand den entsprechenden Code nennen?
Thorsten