Søg
Avatar billede jjjakobsen Mester
08. marts 2018 - 16:06 Der er 7 kommentarer og
1 løsning

Opret serie

Hvordan opretter jeg en serie der springer weekenden over:
1,2,3,4,5,8,9,osv.
Avatar billede ebea Ekspert
08. marts 2018 - 16:23 #1
Kan du uddybe det lidt nærmere. Jeg formoder det er ugedage! Men i hvilken sammenhæng skal du have det opsat?
Avatar billede jens48 Ekspert
08. marts 2018 - 17:07 #2
Skriv begyndelsesdato i A1 og i A2 skrives

=A1+HVIS(UGEDAG(A1;2)>=5;3;1)

Kopieres nedefter
Avatar billede jjjakobsen Mester
08. marts 2018 - 17:15 #3
Jeg vil bare oprette en kalender f. eks. for april.
Begynde med den første, og når der kommer en weekend, hoppes de næste to dage over.
April:
3, 4, 5, 6, 9, 10, 11, 12, 13, 16, 17 osv.
Den 1. og 2. april er en weekend, så da skal listen begynde med 3.
Avatar billede jens48 Ekspert
08. marts 2018 - 17:55 #4
Mit forslag kan stadig bruges. Skriv 31/3 i A1 og formater alle cellerne nedenunder som "d". Så får du kun vist datoen. Hvis du samtidig laver en betinget formatering for cellerne A20:A35 med denne formel:

=DAG($A20)<DAY($A$19)

og laver teksten hvid vil du ikke få vist datoer for den efterfølgende måned
Avatar billede ebea Ekspert
08. marts 2018 - 19:12 #5
Her er et lille eks. til at arbejde videre med, eller bruge:
https://www.dropbox.com/s/7sb0rc51x560e16/arbejdsdage.xlsx?dl=0
Avatar billede store-morten Ekspert
08. marts 2018 - 19:28 #6
Måske med en makro:
Sub Opret_serie()
Dim i As Integer
Dim h As Integer
Dim t As Integer
Dim l As Integer
Dim v As Integer
Dim Antal As Integer

Antal = InputBox("Hvor mange uger?")
Værdi = InputBox("Start med?")

    Svar = MsgBox("Vil udfylde vandret? (Nej, udfylder nedad)", vbYesNo + vbQuestion, "Retning")
    If Svar = vbYes Then
        l = 0
        v = 1
    Else
        l = 1
        v = 0
    End If

t = Værdi

For i = 1 To Antal

    For h = 1 To 5
   
    ActiveCell = t
    ActiveCell.Offset(l, v).Activate
    t = t + 1
    Next h
    t = t + 2

Next i

End Sub
Avatar billede jjjakobsen Mester
08. marts 2018 - 20:09 #7
Jens48
Tak for hjæpen!
Avatar billede finb Ekspert
09. marts 2018 - 08:44 #8
giv jens point, ikke dig selv
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
Afskrivningskurve Af tummes1983 i Excel 0 I går 13:28 -
Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel 6 20/10/202511:14 20/10/202518:52
HVIS + LOPSLAG til flere værdier Af SQF i Excel 4 09/10/202510:50 14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel 9 08/10/202519:21 10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel 3 01/10/202512:22 03/10/202513:32
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 21:35 Nokia 6.1 rcs Af rasmuso i Mobilnetværk
I går 13:55 Samsung Galaxy A21s ændre ringetone Af nu_igen i Mobiltelefoner
I går 13:43 Windows 11 lokalkonto-opret Af Uvanga i Windows
I går 13:28 Afskrivningskurve Af tummes1983 i Excel
30/1022:39 Officepakke køb - opdateres de? Af Uvanga i Office & Kontorpakker
White papers
Flere white papers »