videotext daten minütlich aufzeichnen
01.06.2005 20:36:12
Simon
die daten, die eine reihe tiefer gesetzt wurden müssen dann wiederum in die reihe davor kopiert werden aber nur als VALUE - sie dürfen sich nicht mehr aktualisieren.
im prinzip würde es so gehen:
Sub Macro1()
Range("A2:AQ2").Select
Selection.Cut Destination:=Range("A3:AQ3")
Range("A3:AQ3").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Start = Timer
Do
DoEvents
Zeit = Timer - Start
Loop Until Zeit >= 60
Range("A3:AQ3").Select
Selection.Cut Destination:=Range("A4:AQ4")
Range("A4:AQ4").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Start = Timer
Do
DoEvents
Zeit = Timer - Start
Loop Until Zeit >= 60
Range("A4:AQ4").Select
Selection.Cut Destination:=Range("A5:AQ5")
Range("A5:AQ5").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
u.s.w.
das sind aber nur 2 minuten und ich müßte ein paar stunden abdecken. Wie kann man das macro also so vereinfachen das man nicht für jede minute ein neues macro schreiben muß!?