Schleife mit Zeitintervall
01.12.2002 15:30:19
Birgit
Nun habe ich eine Datei in welcher der Starttag mit Startzeit sowie der Endtag und Endzeit als Dropdown-Feld eingegeben werden können.
Nun möchte die Daten alle 15 Minuten abspeichern in dem Zeitraum der vorher in den Dropdown-Feldern angegeben wurde.
Ohne Startzeit und 15 Minuten Intervall klappt es schon:
Sub Daten_speichern()
Windows("Progamm zur Datenspeicherung.xls").Activate
Sheets("gesicherte Daten").Select
Range("A2:D2").Select
Selection.Copy
wb.Activate
Range("a4:d4").Select
Selection.Insert Shift:=xlDown
End Sub
und auch zu einer bestimmten Zeit geht es:
Application.OnTime TimeValue("15:33"), "ProzedurDatenspeicherung"
Diese Prozedur erstellt eine Datei mit dem aktuellen Datum und einer Überschrift
Kann mir jemand helfen?
Anzeige