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. Als Zeitgeber kann man z.B. das TimerControl verwenden.

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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)