heutiges Datum an kopierte Werte schreiben
17.01.2019 12:18:19
Tim
ich kopiere einzelne Spalten aus einem Tabellenblatt in ein weiteres Tabellenblatt (Masterdatei), das funktioniert wunderbar. Jetzt stehe ich vor der Herausforderung, dass ich gern an die kopierten Werte, in Spalte A das heutige Datum gern geschrieben hätte, wer kann mir dabei helfen?
Sub Daten_importieren()
Dim WbQ As Worksheet
Dim WsZ As Worksheet
Set WbQ = Worksheets("Daten importieren")
Set WsZ = Worksheets("Rohdaten")
With WbQ.Range("A1").CurrentRegion.Columns(1)
.Offset(1, 0).Resize(.Rows.Count, 1).Copy
WsZ.Cells(1, 1).End(xlDown).Offset(1, 1).PasteSpecial ( _
xlPasteValuesAndNumberFormats)
.Offset(1, 4).Resize(.Rows.Count, 1).Copy
WsZ.Cells(1, 1).End(xlDown).Offset(1, 2).PasteSpecial ( _
xlPasteValuesAndNumberFormats)
.Offset(1, 5).Resize(.Rows.Count, 1).Copy
WsZ.Cells(1, 1).End(xlDown).Offset(1, 3).PasteSpecial ( _
xlPasteValuesAndNumberFormats)
.Offset(1, 7).Resize(.Rows.Count, 1).Copy
WsZ.Cells(1, 1).End(xlDown).Offset(1, 4).PasteSpecial ( _
xlPasteValuesAndNumberFormats)
.Offset(1, 8).Resize(.Rows.Count, 1).Copy
WsZ.Cells(1, 1).End(xlDown).Offset(1, 5).PasteSpecial ( _
xlPasteValuesAndNumberFormats)
End With
Set WbQ = Nothing
Set WsZ = Nothing
End Sub