31.08.2015, 11:02
Guten Morgen.
Ich benutze in einer Excel-Tabelle folgende Makros:
--------------------------------------------
Public dDate As Date
Public dTime As Date
Sub Sortieren()
'Startet die Sortierung und wiederholt sie alle 10 Sekunden
'
Range("A2:R200").Sort Key1:=Range("I2"), Order1:=xlDescending, _
Key2:=Range("Q2"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
dTime = Now + TimeValue("0:0:10")
Application.OnTime dTime, "Sortieren"
End Sub
Sub StopSortierenAndCloseDocument()
Application.OnTime dTime, "Sortieren", , False
ActiveWorkbook.Close (False)
End Sub
----------------------------------
Funktioniert auch alles einwandfrei.
Jetzt habe ich eine zweite Tabelle in einer neuen Datei erstellt, den Makrocode kopiert und die Makros umbenannt. Anschließend habe ich zwei Befehlsschaltflächen erstellt und mit den Makros verknüpft.
Bei Klick auf die Befehlsschaltfläche, die mit dem Makro "Sortieren" verknüpft ist, erfolgt mit Klicken der Schalftfläche die Sortierung. Wenn nach 10 Sekunden allerdings die Aktualisierung erfolgen soll, kommt nur die Fehlermeldung:
Das Makro "X:\....." kann nicht ausgeführt werden. Das Makro ist m öglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert.
In den Optionen sind aber alle Makros aktiviert.
Was mache ich falsch?
Ich benutze in einer Excel-Tabelle folgende Makros:
--------------------------------------------
Public dDate As Date
Public dTime As Date
Sub Sortieren()
'Startet die Sortierung und wiederholt sie alle 10 Sekunden
'
Range("A2:R200").Sort Key1:=Range("I2"), Order1:=xlDescending, _
Key2:=Range("Q2"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
dTime = Now + TimeValue("0:0:10")
Application.OnTime dTime, "Sortieren"
End Sub
Sub StopSortierenAndCloseDocument()
Application.OnTime dTime, "Sortieren", , False
ActiveWorkbook.Close (False)
End Sub
----------------------------------
Funktioniert auch alles einwandfrei.
Jetzt habe ich eine zweite Tabelle in einer neuen Datei erstellt, den Makrocode kopiert und die Makros umbenannt. Anschließend habe ich zwei Befehlsschaltflächen erstellt und mit den Makros verknüpft.
Bei Klick auf die Befehlsschaltfläche, die mit dem Makro "Sortieren" verknüpft ist, erfolgt mit Klicken der Schalftfläche die Sortierung. Wenn nach 10 Sekunden allerdings die Aktualisierung erfolgen soll, kommt nur die Fehlermeldung:
Das Makro "X:\....." kann nicht ausgeführt werden. Das Makro ist m öglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert.
In den Optionen sind aber alle Makros aktiviert.
Was mache ich falsch?