Vraag & Antwoord

Programmeren

ActiveSheet.Paste probleempje

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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