Hej
Jag är lite novis i vb och har försökt att skapa en automatisering i excelVb. Tanken är att jag skriver Januari-03 i en cell och sedan skall det automatiskt komma upp veckodagen i en annan cell. Därefter auomatiskeras 30 dagar med följande veckodagar. Detta fungerar men jag kan inte få första datumet att stämma.
Någon som kan hjälpa.
Koden

Private Sub Workbook_Open()

Dim JanDate
Worksheets("Rooster").Range("C8").Activate

JanDate = Range("B2").Value '#1/1/2003# ' Assign a date.


Range("C8") = Weekday(JanDate)

If Month(JanDate) = 1 Or Month(JanDate) = 3 Or Month(JanDate) = 5 _
Or Month(JanDate) = 7 Or Month(JanDate) = 8 Or Month(JanDate) = 10 _
Or Month(JanDate) = 12 Then

For TheDay = 1 To 30
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AE9") = "29"
Range("AF9") = "30"
Range("AG9") = "31"
Else
If Month(JanDate) = 2 Then
For TheDay = 1 To 27
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AE8:AG9") = ""
Else
If Month(JanDate) = 4 Or Month(JanDate) = 9 Or Month(JanDate) = 11 Then
For TheDay = 1 To 29
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AG8:AG9") = ""
Range("AE9") = "29"
Range("AF9") = "30"
End If
End If
End If

End Sub

Är det ett måste att du använder VB?

Excel erjbuder många smidiga funktioner utan kod. Som om detta skulle räcka är det nog enklare... ;-)

Skriv ett datum i t ex A2
I A3 skriver du = A2+1
Fyll denna formel neråt så långt du vill ha den
I B2 skriver du =A2
Formatera B2 till att visa veckdagen
Dubbeklicka i den lilla svarta punkten i B2 - och formeln är fylld så långt det finns värde i A-kolumnen...

Vet inte om det är ett alternativ...

Hej Lizzu och tack för ditt snabba svar
Programmet jag gjort är ett schema över arbetade dagar och genom att fylla i B2 med datumet (ex January-03) så skall programmet automatiskt fylla i dagarna för den månaden. Fyller jag i Februari-03 så skall dagarna för denna visas. Jag har också gjort så att "rätt" antal dagar fylls i ( 28 för februari osv...) Så det ligger en viss automatik i det hela. Men jag löste lite av problemet tack vare ditt svar. Skriver jag Jan-03 blev svaret 2003-01-03, och det ville jag inte ha. Men skriver jag Jan-2003 så blev det rätt.
Som sagt, jag är en novis i programmering men det är tillfredsställande att lösa problem.

Tack än en gång
Ejnar

Hej!

Kul att det kunde hjälpa dig! Det finns ju som sagt många sätt att lösa saker och ting - visst är det härligt att man aldrig blir fullärd! ;-)