Hallo,
wenn du nun deine Checkboxen mittels einer Klasse (mehr oder weniger) "verwaltest". solltest du, wenn du das kopieren startest, diese
Checkboxen auswerten, und dann die entsprechenden Zellen kopieren.
Mehrere Zellen kann man z.B. so
Range("B9:D12,F13:H16").Select
oder auch so
Dim s(2) As Variant
s(0) = "A5:B8"
s(1) = "D7:E9"
s(2) = "F4:H5"
Range(Join(s, ",")).Select
auswählen.
Mittels einer Schleife alle Checkboxen abfragen und dir dann so ein String erzeugen,
dann kopieren.
|