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.