Variabelt Ark-navn ved copy af data
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3761
Udskrevet den: 23.Nov.2024 kl. 06:42
Emne: Variabelt Ark-navn ved copy af data
Besked fra: Kjeld P
Emne: Variabelt Ark-navn ved copy af data
Posteringsdato: 22.Jan.2019 kl. 07:38
|
Hej Jeg er ny her og ikke 100m mester i makroer og sidder derfor og har et problem med flytning af data fra et ark til et andet. På ark1 har jeg 6 celler med data som skal kopieres ud på andre ark. I den første af de 6 celler angiver jeg hvilket ark (ark-navn) som de øvrige data skal flyttes hen til. Jeg har prøvet følgende men den vælger ikke det rigtige ark - er der en der kan hjælpe her? ' Kopi data til kontokort Dim iRow As Long, a As Long Dim ws As Worksheet a = Cells(5, 3).Value Set ws = Worksheets(a) iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 2).Value = Worksheets("Bilagsoversigt").Range("c6") ws.Cells(iRow, 3).Value = Worksheets("Bilagsoversigt").Range("c7") ws.Cells(iRow, 4).Value = Worksheets("Bilagsoversigt").Range("c8") ws.Cells(iRow, 5).Value = Worksheets("Bilagsoversigt").Range("c9") ws.Cells(iRow, 6).Value = Worksheets("Bilagsoversigt").Range("c10") |
Svar:
Besked fra: maxzpad
Posteringsdato: 22.Jan.2019 kl. 14:13
|
Er det rigtigt forstået, at arknavnet står i celle C5 i arket "Bilagsoversigt"? I givet fald så prøv evt. at specificere arket, når værdien for a sættes: a = Worksheets("Bilagsoversigt").Cells(5, 3).Value Hvis et andet ark er aktivt, når makroen kører, er det værdien af celle C5 i dette ark, som tildeles variablen a. Derudover hæfter jeg mig ved, at variablen a er dimensioneret som datatypen Long, der er en talværdi, hvilket ikke stemmer overens med et arknavn, som i de fleste tilfælde vil være tekst (datatype String) - med mindre arknavnene ligefrem er tal-værdier. |
Besked fra: Kjeld P
Posteringsdato: 22.Jan.2019 kl. 19:54
 Hej og mange takFejlen var at a skal Dim as String og ikke long. Long var valgt da alle ark-navne er tal (110, 120....)
|
Besked fra: maxzpad
Posteringsdato: 23.Jan.2019 kl. 08:24
|
Selv tak. Vil sætte pris på, hvis du markerer mit svar som accepteret løsning. |