Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

ActiveSheet.Paste probleempje

Anoniem
Daffy Disk
3 antwoorden
  • Hallo allemaal,

    Ik heb een macrootje dat gegevens verplaatst. Nu wil ik door middel van een Inputbox de data naar het in te vullen celadres verplaatsen. Het blijft steken op de regel ActiveSheet.Paste

    Wat doe ik verkeerd?
    Alvast bedankt,

    Sjaan

    [code:1:f14c34a128]
    Sub Verplaatsen()
    '
    ' Verplaatsen Macro
    ' De macro is opgenomen op 6-6-2003 door aclieder.
    '
    ' Sneltoets: CTRL+e
    '
    Dim doel As Range

    Range("A1:A4").Select
    Selection.Cut
    Set doel = Application.InputBox(prompt:="Vul het doeladres in", Type:=8)
    doel.Select
    ActiveSheet.Paste
    End Sub
    [/code:1:f14c34a128]
  • Heb de code iets verandert:

    [code:1:68b0aad907]
    Dim doel As String

    Range("A1:A4").Select
    Selection.Cut
    doel = InputBox(prompt:="Vul het doeladres in")

    If doel <> "" Then
    Range(doel).Select
    ActiveSheet.Paste
    End If
    [/code:1:68b0aad907]


    Ruud
  • Het werkt als een trein. Dank je wel. Maar waar zat nou het euvel? In het type variabele?

    Sjaan

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.