Probleme mit Schleife
06.09.2007 18:02:14
Benjamin
kann mir jemand mit diesem Programm weiterhelfen. Möchte das es jede Minute ausgeführt wird aber ich komme nicht weiter.
Sub Test01()
Application.OnTime Now + TimeValue("00:01:00"), "Test02"
Do While (True)
Loop
End Sub
Sub Test02()
ChDir "C:\Download\Excel Projekt"
Workbooks.Open Filename:="C:\Download\Excel Projekt\kanal_4.xls"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]>=1,1,0)"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F500"), Type:=xlFillDefault
Range("F1:F44").Select
Range("H1").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-2])"
Range("H2").Select
ActiveWorkbook.SaveAs Filename:="C:\Download\Excel Projekt\kanal_4_001.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Schonmal Danke im Voraus
Anzeige