Notifikationer

Markér alle som læst Log ud

vestre Nybegynder

16. april 2008 - 11:45 Der er 8 kommentarer og
1 løsning

Indsætte range fra ark1 til ark2

Hej eksperter

Jeg forsøger at indsætte en range fra et ark til et andet.

Jeg har prøvet med:
MyArray = Range("A1:A10")
Sheets("Ark2").Range(Cells(1, 1), Cells(10, 10)) = MyArray

Men jeg får runtime-error 1004. Hvad gør jeg galt?

Synes godt om

kabbak Professor

16. april 2008 - 11:46 #1

Sheets("Ark2").Range(Cells(1, 1), Cells(10, 10)) = MyArray
skal være
Sheets("Ark2").Range(Cells(1, 1), Cells(10, 1)) = MyArray

Synes godt om

vestre Nybegynder

16. april 2008 - 11:50 #2

Min fejl: MyArray = Range("A1:J10")

men det giver stadig fejlen:

Run-time error '1004':
Application-defined or object-defined error

Synes godt om

kabbak Professor

16. april 2008 - 11:53 #3

Jeg var for hurtig, du skal have arknavn med på cells også

Worksheets("Ark2").Range(Worksheets("Ark2").Cells(1, 1), Worksheets("Ark2").Cells(10, 1)) = MyArray

Synes godt om

jeffc Nybegynder

16. april 2008 - 11:57 #4

du kan evt. løse det ved at lave en for-next løkke hvor i' range er dine rækker og p's range er dine søjler

for i=1 to 10
for p=1 to 10
ark2.cells(i,p)=ark1.cells(i,p)
next p
next i

Synes godt om

vestre Nybegynder

16. april 2008 - 11:58 #5

Perfekt, tusind tak :)

Svar for point :-P

Synes godt om

vestre Nybegynder

16. april 2008 - 11:59 #6

Jeg er nødt til at bruge Range, da det ellers kommer til at tage for lang tid, når jeg udvider min model til at skulle indeholde lidt flere variable.

Men ellers tak jeffc

Synes godt om

kabbak Professor

16. april 2008 - 12:30 #7

et svar ;-))

Synes godt om

kabbak Professor

16. april 2008 - 12:37 #8

du kan gemme sådan her, så går det automatisk, med hensyn til området.

Worksheets("Ark2").Range("A1").Resize(UBound(MyArray, 1), UBound(MyArray, 2)) = MyArray

Synes godt om

kabbak Professor

16. april 2008 - 12:37 #9

tak for point

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS