Søg
Avatar billede sbl Nybegynder
08. december 2008 - 02:59 Der er 4 kommentarer og
1 løsning

VBA tael og kopier antal raekker

Jeg har et regneark, hvor jeg vil taelle antallet af celler med data i kolonne A. Dernaest kopiere celle B1 et tilsvarende antal gang -1 fra B1 og ned som talt i kolonne A.

Resultatet skulle gerne vaere at hvis kolonne A har vaerdier i A1:A5 skal B1 kopieres til B2:B5.

Jeg bruger Worksheets("1").UsedRange.Rows.Count til at taelle celler med data, men kan ikke komme videre derfra.

Al hjaelp vil vaere super.
Avatar billede jkrons Professor
08. december 2008 - 15:53 #1
Prøv med

Sub TaelKopier()
  a = ActiveSheet.UsedRange.Rows.Count
  Range("B1").Copy
  Range("b2:B" & a).Select
  ActiveSheet.Paste
End Sub
Avatar billede sbl Nybegynder
08. december 2008 - 21:31 #2
Test
Avatar billede sbl Nybegynder
08. december 2008 - 21:32 #3
Test
Avatar billede sbl Nybegynder
08. december 2008 - 21:35 #4
Mange tak jkrons. Det virker perfekt. Saa godt at jeg gerne ud fra samme count i worksheets("1") vil kopier celler fra worksheets("2") tilsvarende antal raekker i samme worksheets("2"). Jeg har proevet forskellige maaeder at faa vba til at genkende den samme range i et andet ark, men uden held.


Du maa under alle omstaendigheder sende et blankt svar, saa jeg kan give point for det oprindelige spoergsmaal.
Avatar billede jkrons Professor
08. december 2008 - 22:34 #5
Jeg er ikke helt klar over, om det er dette du mener - men ellers spørg:

Sub TaelKopier()
  a = Sheets(1).UsedRange.Rows.Count
  Sheets(2).Select
  Range("a1:a" & a).Copy
  Range("c1:c" & a).Select
  ActiveSheet.Paste
End Sub
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 1 I går 13:01 54 minutter siden
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:01 Måned og år på graf Af mort1 i Excel
I går 12:28 2 diske Af dcedata1977 i Andet hardware
I går 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I går 10:20 ASP classic kopiere database fil på server Af bsn i ASP
30/1015:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »