CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

pumpe Nybegynder

22. januar 2015 - 14:31 Der er 4 kommentarer og
1 løsning

Vælg rigtige regneark

Jeg har et problem med at få den til at vælge det rigtige regneark.
Jeg har 7 fra 2015-2021.

Først taster brugeren et år i en Msgbox. Denne udskiftes når det kører med Year(Now).

Public Sub VælgÅr()
Dim iAAr integer
iAAr = InputBox("Årstal")

If iAAr = 2015 Then
WorkSheets("X2015").Activate
ElseIf iAAr = 2016 Then
osv.

ElseIf iAAr = 2021 Then
Worksheets("X2021").Activate
Else
MsgBox "Fejl"

ActivateSheets.Select
Range(A4:E4).Select
Selection.Copy
Sheets("Samlet").Select
ActiveSheets.Paste

End If
End Sub

Alle 7 regneark (2015-2021) er ens men indeholder forskellige tal værdier.

Det er helt ok hvis jeg får en anden løsning bare den kan det samme.

Synes godt om

jens48 Ekspert

22. januar 2015 - 15:04 #1

Kunne det være noget i stil med:

Public Sub VælgÅr()
Dim iAAr As Integer
iAAr = InputBox("Årstal")
Select Case iAAr
Case 2015
Worksheets("X2015").Activate
Case 2016
Worksheets("X2016").Activate
Case 2017
Worksheets("X2017").Activate
Case 2018
Worksheets("X2018").Activate
Case 2019
Worksheets("X2019").Activate
Case 2020
Worksheets("X2020").Activate
Case 2021
Worksheets("X2021").Activate
Else
MsgBox "Fejl"
Range("A4:E4").Select
Selection.Copy
Sheets("Samlet").Select
ActiveSheets.Paste
End If
End Sub

Jeg har ikke prøvet det af i praksis

Synes godt om

pumpe Nybegynder

23. januar 2015 - 13:35 #2

Hej undskyld jeg først svarer nu men jeg har det ude på arbejdet og har først haft tid til detnu. Der var lige nogle opgaver der skulle løses først.
Det virker ikke. Heller ikke når jeg fjerner
Else
MsgBox "Fejl"

og udskifter End If med End Select

Dette var noget programmet krævede

Synes godt om

jens48 Ekspert

24. januar 2015 - 01:20 #3

Prøv med denne makro

Public Sub VælgÅr()
Dim x As Range
Dim iAAr As Integer
iAAr = InputBox("Årstal")
Worksheets("X" & iAAr).Range("A4:e4").Copy _
Destination:=Worksheets("Samlet").Range("A4")
End Sub

Synes godt om

pumpe Nybegynder

26. januar 2015 - 05:30 #4

Hej Jens
Den løsning virkede
Tak for hjælpen. Begge to.

Der er 30 point til dig

Synes godt om

jens48 Ekspert

26. januar 2015 - 08:59 #5

Godt. Så får du et svar

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

Excel kurser

Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kombinere tekst og tal Af 1Dorte i Excel	3	I dag 19:11	37 minutter siden
Formel til opdeling Af Chortik1 i Excel	6	29/01/202508:25	I går 10:25
Anden mindste værdi i en række Af ABE15 i Excel	6	26/01/202516:26	27/01/202508:08
Betinget formatering - Ingen formatering hvis søgefeltet er tomt. Af Laugesen1 i Excel	5	24/01/202520:50	26/01/202514:41
En formel som kan regne minutter om til timer... Af Oswald1 i Excel	3	21/01/202512:02	21/01/202512:52

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