Pc Help Forum

Software => Office toepassingen => MS Office => Topic gestart door: annelies op maandag 05 april 2021, 10:46:42

Titel: VBA probleem bij verplaatsen range naar een ander werkblad
Bericht door: annelies op maandag 05 april 2021, 10:46:42
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
Titel: Re: VBA probleem bij verplaatsen range naar een ander werkblad
Bericht door: alex op maandag 05 april 2021, 15:59:08
Welkom op pchelpforum.

Misschien heb je hier iets aan
KLIK (https://www.gratiscursus.be/Excel_automatiseren/ExcelAut_les014.html)