Frage zu Excel (erfolgreich beantwortet)

**Alina**

Moin Jungs.

Ich habe mal eine Frage. Kennt sich wer gut in Excel aus.

Ich habe folgendes vor:
Anlegen eines Tabellenblattes "Jahr", wo in A1 das Jahr steht, in A3 - A .... untereinander 1, 2, 3, .... und in B3 soll der erste Tag des Jahres eingetragen werden, der kein Sonntag ist, sowie da drunter in Folge alle weiteren Tag des Jahres, ohne Sonntag. Feiertage, die auf kein Sonntag fallen, sollen mit aufgeführt werden. Hier fehlt mir die Formel zum runter ziehen und für "Excel - Zauberbuch" ist das auch eine .

Zeitriss

Hi,

Ist VB eine Option?

Code

Sub MyMakro()
    InputYear = Range("A1")
    myDate = "01.01." & InputYear
    Row = 3
    Count = 1
    While (DateTime.Year(myDate) = InputYear)
       If DateTime.Weekday(myDate) <> 1 Then
            Range("A" & Row) = Count
            Range("B" & Row) = myDate
            Row = Row + 1
            Count = Count + 1
        End If
        myDate = DateTime.DateAdd("d", 1, myDate)
    Wend
End Sub

Alles anzeigen

**chip**

Schau dir das mal im Anhang an Alina.

**Alina**

Danke, habe die VR von Zeitriss verwendet.