Søg
Avatar billede mrkr Juniormester
30. september 2008 - 19:46 Der er 5 kommentarer og
1 løsning

indsætte ugedag ud fra dato i cellen nedenfor

Jeg har en masse datoer som står i kolonne C
Jeg kunne godt tænke mig en ugedag (MANDAG el TIRSDAG) til at stå ovenfor hver enkelt dato.

Sub ugedag()
Dim cell As Range
For Each cell In Range("c6:c500")
If cell = "" And cell.Offset(-1, 0) <> "" Then
'??????  "cell.Offset(-1, 0) = cell.Format(Date, "dddd")"
Else
End If
Next
End Sub

Er der nogen der kan løse gåden ?
Avatar billede kabbak Professor
30. september 2008 - 20:14 #1
Sub ugedag()
    Dim I As Long
    For I = 500 To 1 Step -1
        If Cells(I, "C") <> "" Then
            Cells(I, "C").Rows.Insert Shift:=xlDown
            Cells(I, "C") = Format(Cells(I, "C").Offset(1, 0), "dddd")
        End If
    Next
End Sub
Avatar billede mrkr Juniormester
30. september 2008 - 20:37 #2
Ja, den den tager rigtig nok fat i ugedagen.
Men den gør det ikke helt rigtigt

alle datoer er allerede samlet i grupper.
Der er 2 mellemrum mellem de enkelte dage.

Det jeg gerne vil have er at den indsætter ugedagen lige over hver gruppe, så de bliver en slags overskrift (med fed)
Avatar billede kabbak Professor
30. september 2008 - 22:51 #3
Sub ugedag()
    Dim I As Long
    For I = 500 To 1 Step -1
        If Cells(I, "C") = "" Then
            Cells(I, "C") = Format(Cells(I, "C").Offset(1, 0), "dddd")
            Cells(I, "C").Font.Bold = True
        End If
    Next
End Sub
Avatar billede kabbak Professor
30. september 2008 - 22:53 #4
ådan, jeg så ikke lige at der var 2 tomme

Sub ugedag()
    Dim I As Long
    For I = 500 To 2 Step -1
        If Cells(I, "C") = "" And Cells(I, "C").Offset(-1, 0) = "" Then
            Cells(I, "C") = Format(Cells(I, "C").Offset(1, 0), "dddd")
            Cells(I, "C").Font.Bold = True
        End If
    Next
End Sub
Avatar billede mrkr Juniormester
01. oktober 2008 - 21:50 #5
jep, så var den der.
Mange tak for hjælpen
Avatar billede kabbak Professor
01. oktober 2008 - 23:03 #6
selv tak
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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
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 16:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
I går 14:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
15/0513:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
15/0511:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
White papers
Flere white papers »