Søg
Avatar billede macho Praktikant
09. juli 2006 - 18:16 Der er 15 kommentarer og
1 løsning

Liste over månedens helligdage

I min kalender har jeg et celleområde (C61:C91), hvor jeg har listet månedens helligdage (med navne). Disse dage har jeg ud fra funktionen HelligdagsNavn (http://www.eksperten.dk/spm/672301).

Hvis der er nogle helligdage (excl. søndage) i en måned, bliver de altså vist i området C61:C91, men på denne måned vil der automatisk blive tomme celler på dage, som ikke er helligdage.

Opgaven går ud på, at jeg vil have månedens helligdagsnavne samt pågældende dato listet umiddelbart under hinanden - f.eks. således for april 2006:

  A
1 9. Palmesøndag
2 13. Skærtorsdag
3 14. Langfredag
4 16. Påskedag
5 17. 2. påskedag

Anyone?

Anyone??
Avatar billede gibber Nybegynder
09. juli 2006 - 19:10 #1
Hvid du ikke vil bruge vba kan du sætte filter på dit område (C61:C91), og vælge (ikke tomme) i filtert.
Avatar billede macho Praktikant
09. juli 2006 - 19:14 #2
Filter dur ikke - det skal nok være noget med INDEX eller evt. VBA, men jeg er ikke skrap til nogen af delene!
Avatar billede excelent Ekspert
09. juli 2006 - 19:35 #3
Sub sorter()
Dim r, x, d(40)
For r = 61 To 91
If Cells(r, 3) <> "" Then x = x + 1: d(x) = Cells(r, 3)
Next
For r = 61 To 91
Cells(r, 3) = d(r - 60)
Next

End Sub
Avatar billede macho Praktikant
09. juli 2006 - 19:49 #4
excelent - har du mod på at fortælle mig, hvordan jeg bruger din Sub?
Avatar billede excelent Ekspert
09. juli 2006 - 19:58 #5
ok jeg vover det ene øje :-)

Marker først subben herover, tast CTRL+c (copy)
Vend tilbage til projektmapen
Tast ALT+F11
I menuen Insert vælger du Module
Indsæt subben i kodevindue til højre- CTRL+v (Paste)

for at køre subben, tast ALT+F8, vælg Sorter + Kør
Avatar billede excelent Ekspert
09. juli 2006 - 19:59 #6
obs: efter subben er pastet skal du tilbage til excel-arket
Avatar billede macho Praktikant
09. juli 2006 - 20:12 #7
Takker - jeg får dog en "Runtime error (13)", når jeg kører makroen. Vælger jeg så "Debug" er dette stykke markeret gult:

If Cells(r, 3) <> "" Then

?
Avatar billede excelent Ekspert
09. juli 2006 - 20:20 #8
hmm virker ok her. men prøv udskift subben med denne

Sub Ysorter()
Dim r, x, d(40)
For r = 61 To 91
If Range("C" & r) <> "" Then x = x + 1: d(x) = Range("C" & r)
Next
For r = 61 To 91
Range("C" & r) = d(r - 60)
Next
End Sub
Avatar billede macho Praktikant
09. juli 2006 - 20:39 #9
Sorter virker nu! Men jeg mangler dog en enkelt ting, som jeg har med i mit oprindelige spørgsmål: Foran helligdagsnavnet skal jeg have tilføjet datoen for pågældende helligdag, f.eks. "13. Skærtorsdag"

Er det muligt?
Avatar billede excelent Ekspert
09. juli 2006 - 20:42 #10
ja, hvor har du datoen ? i kolonne B ?
og skal begge værdier være i samme kolonne (c)?
Avatar billede macho Praktikant
09. juli 2006 - 20:53 #11
Ja, datoen står i B og begge værdier skal gerne samles i kolonne C!
Avatar billede excelent Ekspert
09. juli 2006 - 20:55 #12
ok prøv om denne dur,- der kan måske være problem med dato

Sub Xsorter()
Dim r, x, d(40)
For r = 61 To 91
If Range("C" & r) <> "" Then x = x + 1: d(x) = Format(Range("B" & r), "mm-dd") & " " & Range("C" & r)
Next
For r = 61 To 91
Range("C" & r) = d(r - 60)
Next
End Sub
Avatar billede macho Praktikant
09. juli 2006 - 21:58 #13
Vi kommer bestemt nærmere nu. Der er dog et lille problem med datoen, som vises på denne måde:

05-12 St. Bededag
i stedet for:
12. St. Bededag


?
Avatar billede excelent Ekspert
09. juli 2006 - 22:02 #14
så skal du blot slette mm- i linien :
If Range("C" & r) <> "" Then x = x + 1: d(x) = Format(Range("B" & r), "mm-dd") & " " & Range("C" & r)
Avatar billede macho Praktikant
09. juli 2006 - 22:14 #15
Så sidder den lige i øjet!

Tusinde tak for hjælpen. Giv mig et svar excelent; du har ærligt fortjent dint pts.

;-)
Avatar billede excelent Ekspert
09. juli 2006 - 22:15 #16
ok velbekom :-)
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
Kan Excel selv beregne alder? Af leahcim i Excel 4 I går 10:24 I går 12:26
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
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 10:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
I går 10:24 Kan Excel selv beregne alder? Af leahcim i Excel
30/0815:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
White papers
Flere white papers »