Das heutige Datum in einem excel-makro

Ich versuche, fügen Sie ein dem heutigen Datum in die Spalte A in Tabelle2 jedes mal mein makro einfügen die Auswahl der Tabelle1 in Spalte B der neuen Zeile der Tabelle2.

Mein Skript arbeiten, fügen Sie die neue Zeile und fügen Sie meine Auswahl in Tabelle2, aber ich kann nicht herausfinden, wie konnte ich das Datum in Spalte A für diese neue Zeile von Tabelle2. Hier ist das Skript in meinem makro;

Sub move()  
        Dim i As Integer 
        Application.ScreenUpdating = False
        ActiveWorkbook.Sheets("Sheet1").Range("A1,A2,A3,A4,A5").Copy

        Sheets("Sheet2").Select
        i = 3
        While Range("B" & i).Value <> ""
            i = i + 1
        Wend
        Range("B" & i).Select

        Selection.PasteSpecial (xlValues), Transpose:=True

        Worksheets("Sheet1").Range("A1:A5").Clear

End Sub

Jede Hilfe ist willkommen. Dank

Haben Sie versucht, mit der Now() Funktion? wie Range("A2").Value = Format(Now(),"MM/DD/YYYY"). Bei Bedarf ändern.
Danke David, genau das was ich suchte;
Wenn meine Antwort dein problem gelöst, bitte beachten Sie die Kennzeichnung als "Akzeptiert" unten.

InformationsquelleAutor G M | 2013-10-24

  1. 7

    Versuchen die Date Funktion. Es wird Ihnen das heutige Datum im MM/TT/JJJJ format. Wenn Sie auf der Suche für das heutige Datum im MM-DD-YYYY-format versuchen Date$. Now() beinhaltet auch die aktuelle Zeit (die Sie vielleicht nicht brauchen). Es hängt alles davon ab, was Sie brauchen. 🙂

    InformationsquelleAutor ARich

  2. 2

    Hier ist ein Beispiel stellt die Now() Wert in Spalte A. 

    Sub move()
    Dim i As Integer
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim nextRow As Long
    Dim copyRange As Range
    Dim destRange As Range

    Application.ScreenUpdating = False

        Set sh1 = ActiveWorkbook.Worksheets("Sheet1")
        Set sh2 = ActiveWorkbook.Worksheets("Sheet2")
        Set copyRange = sh1.Range("A1:A5")

        i = Application.WorksheetFunction.CountA(sh2.Range("B:B")) + 4

        Set destRange = sh2.Range("B" & i)

        destRange.Resize(1, copyRange.Rows.Count).Value = Application.Transpose(copyRange.Value)
        destRange.Offset(0, -1).Value = Format(Now(), "MMM-DD-YYYY")

        copyRange.Clear

    Application.ScreenUpdating = True

End Sub

    Gibt es bessere Wege, um die Letzte Zeile in Spalte B, als mit einem While Schleife, viele Beispiele hier in der Nähe. Einige sind besser als andere aber davon abhängen, was Sie tun und was Ihr Arbeitsblatt Struktur aussieht. Habe ich eine hier, die davon ausgegangen, dass die Spalte B ist ALLES leer, außer die Zeilen/Datensätze, die Sie bewegen. Wenn das nicht der Fall ist, oder wenn B1:B3 haben einige Werte für Sie, würden Sie brauchen, zu ändern oder eine andere Methode verwenden. Oder Sie können einfach verwenden Sie Ihre Schleife, aber ich würde die Suche nach alternativen 🙂

    InformationsquelleAutor David Zemens

Schreibe einen Kommentar