Office: Makro durch Datum & Uhrzeit starten

mcsmccs · 11. Februar 2007

*rolleyes.gif* Hallo *biggrin.gif*

Folgende Frage: Wäre es möglich, am Anfang eines Makros eine Abfrage zu stellen - die es möglich macht durch Rückfrage auf DATUM & ZEIT, dass Makro zu sperren (bzw. auch die Länge der Sperrzeit festzustelllen) und durch eine MSG-Box zu melden "Die Zeit ist noch nicht reif" oder so ähnlich !?!??. Also das ich der Reihe nach verschiedene Sperrzeiten und deren
Länge eingegeben kann und dementsprechend soll das Makro starten oder nicht.

Besten Dank im voraus mcsmccs

:)

chris-kaiser · 13. Februar 2007

hiho

Code:

Sub til()
If Time < TimeValue("9:00") Then
MsgBox "erst ab 9:00 kann gestartet werden"
Exit Sub
End If
MsgBox "nun geht es"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mcsmccs · 14. Februar 2007

Besten Dank - probier ich gleich aus - eine Frage noch - wie kann
noch ein Datum hinzufügen und dann ab dem Startpunkt noch 2 Stunden warten und dann kommt die Freischaltung

Für deine Bemühungen, besten Dank im voraus

mcsmccs

chris-kaiser · 14. Februar 2007

hiho

bedingt!!!

Code:

Sub til()
Dim MyDate As Date
MyDate = "16.02.2007"

If MyDate > Date Then
MsgBox "kann erst am " & MyDate & " gestartet werden"
Exit Sub
Else
MsgBox "in 2 Std. geht es los"
Application.OnTime Now + TimeValue("02:00:00"), "speedmakro"

End If

End Sub

Private Sub speedmakro()
MsgBox " 2 Std. Später"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nur wenn die Mappe geschlossen wird wartet, man wieder 2 Std.!!!!!

wäre auch noch lösbar entweder über customdocumentproperties
oder über die regestry

Nur wenn Du beschreiben würdest was wirklich gemacht werden sollte (wozu)
gibt es sicher eine noch bessere Möglichkeit

z.B über den Taskplaner (Scheduler)

mcsmccs · 26. Februar 2007

Danke erstmal - also genau soll folgendes passieren und zwar: Es gibt ein
3-Schicht System und 2 Schichten sollen auf das Programm zugreifen können, aber bei der dritten Schicht soll in dem Zeitraum der 8 Std. Arbeitszeit diese Sperrmeldung erscheinen. Soll als ca. 6 Monate gültig sein und würde ich es wieder entfernen. Dei Schichtzeiten gehen immer von 6:00 Uhr, 14:00 Uhr und 22 Uhr jeweils 8 Stunden. Da wäre es gut wenn ich im Vorlauf auf einen Monat schon einmal die Startzeiten mit Datum (oder vielleicht über eine Abfrage der Stunden - 16 Stunden frei, 8 Stunden gesperrt) die Werte eingeben könnte. Vielleicht fällt dir dazu eine Lösung.

Tschau bis bald mcsmccs........

chris-kaiser · 26. Februar 2007

hiho

reicht nicht das?

Code:

Sub Nur_nicht_in_der_Nachtschicht()
'ab diesem Datum immer
If Date > CDate("16.05.07") Then
machwas
Exit Sub
End If
If Time > TimeValue("22:00") Or Time < TimeValue("6:00") Then
MsgBox "erst ab 6:00"
Exit Sub
Else
Call machwas
End If
End Sub

Private Sub machwas()
MsgBox "dein Makro"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mcsmccs · 17. März 2007

Hallo Chris-Kaiser

Endlich melde ich mich wieder, viel privaten Stress gehabt. Soweit funktioniert
alles, habe nur ein Problem, daß das Datum nicht aktiviert wird, aber da probiere ich noch ein bisschen rum. Erstmal besten Dank für deine Mühe..

Tschau mcsmccs

Office: Makro durch Datum & Uhrzeit starten

Makro durch Datum & Uhrzeit starten

Makro durch Datum & Uhrzeit starten

Makro durch Datum & Uhrzeit starten

Makro durch Datum & Uhrzeit starten - Similar Threads - Makro Datum Uhrzeit

Dokumente und Blatt umbenennen

Zellen per Makro in Tabelle zum jeweiligen Datum kopieren

Tabellenübersicht aus mehreren Tabellen nach Datum sortieren

Makro Arbeitsmappe speichern unter mit Datum und Dateinamen

Hyperlink oder Makro zum aktuellen Datum springen bei verbundenen Zellen

Datum über Makro filtern

Mit Makro auf anderes Tabellenblatt zu aktuellem Datum springen