Nieuws:

Welkom op het PC Helpforum voor gratis advies èn hulp bij computerproblemen !

Hoofdmenu

VBA probleem bij verplaatsen range naar een ander werkblad

Gestart door annelies, maandag 05 april 2021, 10:46:42

Vorige topic - Volgende topic

0 Leden en 1 gast bekijken dit topic.

annelies

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

alex


Wil u een bericht om wat voor reden weer open hebben.... stuur ff een PM naar één van de admins

Statistieken oude forum (48119 onderwerpen / 396784 reacties / 20911 leden)

SMF spam blocked by CleanTalk