macro clearcontents copy paste

[sickofitall]

Hallo

ik wil een macro hebben die eerst op werkblad database alle gegevens wist, daarna de gegevens van werkblad "Gegevens" kopieert naar werkblad "Database".

Volgende code leek mij logisch maar werkt helaas niet

    Sheets("Database").Range(Range("A2:K2"), Range("A2:K2").End(xlDown)).ClearContents
   Sheets("Gegevens").Range(Range("A249:K249"), Range("A249:K249").End(xlDown)).Copy
    Sheets("Database").Range("A2").Paste

Hij geeft reeds een fout op de eerste lijn.
Wat doe ik verkeerd?

 

[Hoornvan]

sickofitall,

Ik denk dat de regel code zo moet zijn.

Sheets("Database").Range("A2:K2").ClearContents

 

[sickofitall]

sickofitall,

Ik denk dat de regel code zo moet zijn.

Sheets("Database").Range(Range("A2:K2").ClearContents

en mijn end(xldown)?

 

[Hoornvan]

en mijn end(xldown)?

Je wil deze regel toch schoonmaken (Legen) Range("A2:K2").
De regel A2 tot K2 leegmaken dat staat er volgens mij.

 

[sickofitall]

nee ik selecteer eerst A2 tot K2, en dan zogezegd ctrl + pijltje naar beneden.
Maar mijn clearcontent probleem is opgelost door volgende code

Range(Sheets("Database").Range("A2:K2"), Sheets("Database").Range("A2:K2").End(xlDown)).ClearContents

Maar nu loop ik vast op de copy/paste. Ik vermoed een probleem met de range ofwel met de activesheet.
Dit heb ik nu:

Sheets("Gegevens").Range(Range("A249:K249"), Range("A249:K249").End(xlDown)).Copy Sheets("Database").Range("A2")

iemand? alvast bedankt!

 

[sickofitall]

ik weet niet precies wat ik heb gedaan, maar nu loopt de macro niet vast :shocked:

ik gebruik nog steeds dezelfde code als mijn vorig bericht

Range(Sheets("Database").Range("A2:K2"), Sheets("Database").Range("A2:K2").End(xlDown)).ClearContents
   Sheets("Gegevens").Range(Range("A249:K249"), Range("A249:K249").End(xlDown)).Copy Sheets("Database").Range("A2")

met dank aan de zoekfunctie van dit forum
Bedankt Hoornvan voor de moeite!