insert cells werkt niet in gedeelde werkmap.

[wauzzer]

Hallo allemaal,

Ik heb een werkmap opgebouwd waarin nieuwe nummers worden gegenereerd, met behulp van enkele macro's, deze werkt helemaal naar wens. Echter, wanneer ik de werkmap deel loopt een van de macro's vast op onderstaande regels.

     Sheets("Tussenblad").Select
    Range("A3").Select
    Selection.CurrentRegion.Select
    Selection.Copy

    Sheets("Lijst met nummers").Select
    Range("A3").Select
    Selection.Insert Shift:=xlDown

ik krijg onderstaande fout melding:

"Methode insert van klasse range is mislukt."

heeft iemand een idee waar excel/vba niet mee om kan gaan.

 

[Demeter]

Wauzzer,

Wat bedoel je precies met delen van je werkblad?
Tevens kan de code korter:

   Sheets("Tussenblad").Range("A3").CurrentRegion.Copy 
Sheets("Lijst met nummers").Range("A3").Insert Shift:=xlDown

Probeer zoveel mogelijk select te voorkomen (de macrorecorder heeft hier een handje van)

 

[wauzzer]

Hallo Demeter,

Bedankt voor je snelle reactie, ik heb inderdaad de macro recorder gebruikt in dit geval vandaar de vele .select momenten.

Met "gedeeld" bedoel ik de functie "werkmap delen" zodat deze door meerdere personen gelijktijdig bewerkt kan worden.

groeten,

Hein

 

[Demeter]

Denk dat dat erg lastig gaat worden om zo een twee drie juist te maken.
Macro's kan je ook niet maken en/of veranderen als je blad gedeeld is (Excel geeft dit ook aan als je je werkblad deelt).