Kan niet selecteren?

Beste Mensen;

ik heb nu op een selectievakje (of opdrachtknop) de volgende code staan:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("Licenties").Select
Range("C3:C12").Select
Selection.Copy
Sheets("db").Select
Range("C3").Select
ActiveSheet.Paste
Range("A1:B1").Select
Sheets("Licenties").Select
Range("A1:B1").Select
Application.CutCopyMode = False
Sheets("Hoofdblad").Select
Else
Sheets("db").Select
Range("C3:C12").Select
Selection.ClearContents
Range("A1:B1").Select
Sheets("Hoofdblad").Select
End If
End Sub

Klik om te vergroten...

maar hij geeft dan de volgende fout als ik 'em aan of uit vink:

Fout 1004 tijdens uitvoering:

Methode Select van klasse Range is mislukt.

Klik om te vergroten...

en hij markeert dan "Range("C3:C12").Select" in de foutopsporing...

wat doe ik fout? kan dit niet?
hoe kan ik het verhelpen?

alvast bedankt!
mvg,

Vinnie

Hoi Vinnie,

Jij hebt de macro in de programmacode van een werkblad gezet. Daar hoort een dergelijke macro niet.

Luc

hoe los ik het op dan?

in de huidige situatie (hierboven dus) is het selectievakje via werkset besturingselementen gehaald en is de code ingevoert dmv het dubbelklikken erop (in de ontwerpmodus).

als ik de code in een macro zet en die macro aan een selectievakje van de formulierenwerkbalk knup, pakt hij alleen alles voor de ELSE, no matter of ik hem aan of uit vink...

zal vast wel iets fout doen, ben niet bekend met Excel

Hoi Vinnie,

Ik heb geen zin om het ook nog 's te testen (Dus zou het kunnen dat je macro fouten bevat). Bovendien is het selecteren niet echt aan te raden. Maar om er mezelf snel van af te helpen <Grijns> toch maar deze raad:

Zet deze macro in een module:

Sub MijnMacro()
If ActiveSheet.CheckBox1 = True Then
Sheets("Licenties").Select
Range("C3:C12").Select
Selection.Copy
Sheets("db").Select
Range("C3").Select
ActiveSheet.Paste
Range("A1:B1").Select
Sheets("Licenties").Select
Range("A1:B1").Select
Application.CutCopyMode = False
Sheets("Hoofdblad").Select
Else
Sheets("db").Select
Range("C3:C12").Select
Selection.ClearContents
Range("A1:B1").Select
Sheets("Hoofdblad").Select
End If
End Sub

En aan je
Checkbox hang je dit:

Private Sub CheckBox1_Click()
MijnMacro
End Sub

Luc

Vinnie,

We volgen graag de raad van Luc H op.

Ik heb even m'n best gedaan en hoop dat het jouw goedkeuring kan wegdragen en dat de code het hart van Luc H kan bekoren.

Hoi Luc,

Vermits jij ook liefhebber bent van korte codes (Dat dacht ik toch gemerkt te hebben): hier een nog kortere

Sub Plakken()
If Range("G2") Then
Sheets("Licenties").Range("C3:C12").Copy Sheets("db").Range("C3")
Else
Sheets("db").Range("C3:C12").ClearContents
End If
End Sub

Bekijk het maar 's... er zitten misschien nog verassingen in voor jou.

Luc

Luc,

Prachtig.

kan de zip niet downloaden hier zit achter een firewall moet ik vanavond thuis maar even kijken.

in ieder geval beide harstikke bedankt!