VBA Excel Immer den Tag aus einem Datum

Habe ich folgende VBA-Code generiert eine Liste der Termine, was ich will, ist, wie ich drucken Sie jedes date, um drucken Sie das Datum im format Tag, d.h. 01/10/2002 wäre Montag:

Sub loopDates()
    Dim Stdt    As Date
    Dim Edt     As Date
    Dim n       As Date
    Dim c       As Long
    Stdt = Range("A1")
    Edt = Range("A2")
    For n = Stdt To Edt
            c = c + 1
            Range("C" & c) = n
            Range("B" & c).Formula = "=TEXT(C1,""dddd"")"
    Next n
End Sub

Ich die Zeile ändern möchten:

Range("B" & c).Formula = "=TEXT(C1,""dddd"")"

So, dass C1 in diesem Beispiel ändern Sie jedes mal, wenn die Schleife iteriert wird, so würde es ändern mit dem Wert c, für Beispiel würde es wie folgt Aussehen: =TEXT(C " & c &, "dddd"), aber ich Schaffe es nicht, die Formatierung Recht,

Kann jemand eine Lösung vorschlagen, um das problem zu beheben?

Was hast du in A1 und A2? In Sie Beispiel Sie behoben C1 bis Datum drucken. Haben Sie versuchen, Format(ZELLE, "dd/MM/yyyy")?
Antwortete es unten, vielen Dank für Ihre Zeit, um sich die Frage, war ich entschlossen, Sie zu beantworten

InformationsquelleAutor cwiggo | 2013-09-02

  1. 1

    Habe ich es geschafft, aus hier , können Sie einfach legen Sie das format der Zelle. Ich habe die Zeile in der erwähnten original-Beitrag:

    Range("B" & c) = Format(n, "dddd")

    Dieser nimmt das Datum aus der Spalte und der index von C und Drucke den Tag im richtigen format an die Spalte und der index von B

    Vielen Dank für die Beantwortung

    InformationsquelleAutor cwiggo

Schreibe einen Kommentar