Goedendag,
Ik ben een VBA beginner en ik wil een selectie van werkblad “format uitvoer” naar werkblad “vervolg” verplaatsen. Het gebied waarnaar ik het wil verplaatsen kan varieren en is afhankelijk van de variabelen a en e.
Ik kan dit wel doen in hetzelfde werkblad en ik kan het ook doen als ik het gebied defineer als: Range (“A1”, “E3”) maar niet als ik defineer als: Range(Cells(1, 1), Cells(3, 5)) gebruik.
'INVOER naar overzicht
Dim antwoord As Integer
Dim x As Integer
Dim a As Integer
Dim e As Integer
antwoord = MsgBox("Wil je deze data toegevoegd hebben in het jaaroverzicht?", vbYesNo + vbQuestion)
If antwoord = vbYes Then
x = Worksheets("format uitvoer").Range("B6").Value
a = ((x + 1) + (x * 3))
e = (a + 2)
dit werkt: Worksheets("format uitvoer").Range(Cells(1, 1), Cells(3, 5)).Cut Range(Cells(a, 1), Cells(e, 5))
dit werkt: 'Worksheets("format uitvoer").Range("A1", "E3").Cut Worksheets("vervolg").Range("A1", "E3")
dit werkt niet: 'Worksheets("format uitvoer").Range(Cells(1, 1), Cells(3, 5)).Cut Worksheets("vervolg").Range(Cells(1, 1), Cells(3, 5))
End If
Kan iemand mij uitleggen waarom dit niet gaat?
Zou heel fijn zijn.
groet, Annelies
