Waardes kopiëren tussen twee bladen met 'range = range'

Status
Niet open voor verdere reacties.

Meaurk

Gebruiker
Lid geworden
29 jun 2012
Berichten
146
Hallo,

Voorheen had ik een VBA code gebaseerd op Range.Copy en Selection.PasteSpecial, nu ben ik erachter gekomen dat dit ook werkt met de Range = Range code.
Op internet en videos ziet het er allemaal leuk uit, echter als ik het in mijn werkblad zet, haal hij de waarde wel weg van locatie 1, maar plaatst niets op locatie 2.

Staat er een instelling fout, of wat is er aan de hand?

Oude code (welke werkt, maar traag is):
Code:
Sheets("Sheet2").Range("A1").Copy
        Sheets("Sheet1").Select
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Nieuwe code (welke niet werkt):
Code:
Worksheets("Sheet2").Range("A1").Value = Worksheets("Sheet1").Range("A1").Value
 
Draai ze eens om:

Code:
 Worksheets("Sheet1").Range("A1").Value = Worksheets("Sheet2").Range("A1").Value
 
Laatst bewerkt:
Zo.. goeiemoggah.. :shocked:

Knullige fout, sorry...
Bedankt, Sjon!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan