VB in Excel copie van 2 kolommen en 1 rij

[HaBro]

Hallo

Ik zit met een probleem waar ik niet uit kom
Ik wil namelijk van 1 rij 2 kolomen copieren
dus zo : Range("A6:B6").Select
Selection.Copy
Sheets("Grafgem").Select
Range("A6:B6").Select
ActiveSheet.Paste
Maar om dat het over vele duizende gegevens gaat moet er een variabele bij
ik dacht zo.
Range("A" & Var:"B" & Var).Select
Selection.Copy
Sheets("Grafgem").Select
Range("A" & regel:"B" & regel).Select
ActiveSheet.Paste

Dit werkt weer eens niet
Kan dit wat ik wil.....
Ik kan ze alle bij apart copieren (dat werkt wel)
maar door het heen en weer gaan van bladen duurt dit heel lang

Ik hoop dat iemand de oplossing voor mij heeft

Hans

 

[Jan van Asseldonk]

Volgens mij moet het zo wel werken.
Meteen enigszins verkort opgesteld.

Sub kopieer()
Dim var, regel As Integer
Worksheets("Blad1").Select
var = InputBox("geef te kopieren regel", "kopie")
regel = InputBox("Geef te plakken regel", "plakken")
Range("A" & var & ":B" & var).Copy
ActiveSheet.Paste Destination:=Worksheets("grafgem").Range("A" & regel)
Application.CutCopyMode = False
Worksheets("Blad1").Select
End Sub

 

[HaBro]

Geweldig Jan

Dit was precies wat ik moest hebben
Ik zelf kwam niet achter deze formule
Het programma is nu weer sneller geworden

Bedankt

Hans