Zeitstempel im VBA ?

[ultrabest]

Hallo zusammen,

 In diesem Zeitstempel in der Formelösung :

[Excel] Zeitstempel / Datumsstempel per Formel

ausprobiert habe ich. Die Spalte D muss frei sein. In Spalte E setzt ich die Formel ein. Kapiert habe ich das nicht, aber es funktioniert.

Wie sieht eine VBA Lösung Zeitstempel  im Modul1 aus?

Viele Grüße 

ultrabest

[derHoepp]

Moin,

kannst du deine Frage etwas präzisieren? Was willst du erreichen?
Das aktuelle Datum und die Uhrzeit erhältst du mit der Now()-Funktion. In Zellen schreibst du, in dem du der .Value-Eigenschaft eines Range-Objektes etwas zuweist:

Code:

Range("A1").Value = "Hier ein Beispieltext"
Cells(2,1).Value = 20
Selection.Value = RueckgabeEinerFunktion()

Insgesamt ist das ein so grundlegendes Vorgehen, das wahrscheinlich in jedem VBA-Kurs innerhalb der ersten halben Stunde geklärt ist.

Viele Grüße
derHöpp

[UweD]

Hallo

so?

Code:

Sub Datei_kopieren()

    ' zwischen 2 offenen Arbeitsmappen
    
    Dim rng As Range, rng2 As Range
    
    'Range der Quelldatei definieren
    Set rng = Workbooks("TestB.xlsm").Worksheets(3).UsedRange 'Daten von Tabelle1 werden angesprochen
    'Daten ohne Header kopieren und einfügen
    'Daten von Tabelle1 werden kopiert nach Zieldatei Tabelle3!
   
    Set rng2 = ThisWorkbook.Worksheets(3).Range("A" & ThisWorkbook.Worksheets(3).Rows.Count).End(xlUp).Offset(1)
    Intersect(rng, rng.Offset(1)).Copy rng2
    rng2.Offset(0, 3).Resize(rng.Rows.Count - 1, 1) = Now
    
End Sub

LG UweD