Laufzeitfehler 1004, Anwendungs und obj.
14.12.2007 23:47:00
HannaG
Sub sort()
Hallo, kriege beim Compilieren immer den folgenden Fehler "Laufzeitfehler 1004. Anwendungs- _
und objektdefinierter Fehler.
Der Code soll, einmal gestartet, die 5 Zeilen alle 5 Sekunden aktualisieren. Irgendwas stimmt _
nicht?
Gruß
Hanna
Rows("1:5").Select
Selection.sort Key1:=Range("L1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Call Timer
End Sub
Sub Timer()
Dim NextTime As Date
If Not bolTimer Then Exit Sub
NextTime = Now + TimeValue("00:00:05")
Application.OnTime NextTime, "Tabelle1.sort"
End Sub