Thomas Risi Softwareentwicklung

Daten zyklisch speichern

Aus einer Frage in einem Forum ...

Es soll der Inhalt des Bereiches "B4:B9", der sich ständig aktualisiert (über SPS), alle 15 Minuten in einer Liste abgespeichert werden. Die Liste beginnt mit Bereich "D4:K4", wobei "D4" das aktuelle Datum und "E4" die aktuelle Zeit beinhaltet.

Option Explicit Sub WriteValuesToList() Dim rng As Range Set rng = Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4) rng = Date rng.Offset(0, 1) = Time rng.Offset(0, 2) = Range("B4") rng.Offset(0, 3) = Range("B5") rng.Offset(0, 4) = Range("B6") rng.Offset(0, 5) = Range("B7") rng.Offset(0, 6) = Range("B8") rng.Offset(0, 7) = Range("B9") End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)