Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Userform nicht mehr öffnen wenn bestimmte Tageszeit erreicht.
#1
Gute Abend, 

ich bilde über Userform ein Schichtbuch ab. 

Userform2 wird unter 2 Vorrassetzungen vor der eigentlichen Eigabe Userform1 gezeigt. 

Nun würde ich noch gern Userform2 nicht zwischen 6Uhr und 12Uhr anzeigen. 

Uhrzeit steht mittels =Heute() in Zeile A1

Wie wäre dort der Code für?


Vielen dan für Eure Hilfe
Antworten Top
#2
Hallo,

Code:
Sub aaa()
  If Time < TimeValue("6:00") Or Time > TimeValue("12:00") Then
    UserForm2.Show
  End If
End Sub

Das =HEUTE() würde nicht viel bringen, da es keine Uhrzeit enthält. Wink

Gruß, Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Xenon85
Antworten Top
#3
Moin,

du hast mindestens zu deinen letzten vier Threads keine Rückmeldung gegeben. Entspricht das deiner Vorstellung von einem Forum? Kostenloser Code-Liederservice?

Viele Grüße
derHöpp
Antworten Top
#4
Mir ist gerade aufgefallen das ich das noch mit einer weiteren Bedingung verknüpfen muss.

wäre das so richtig?

Zitat:Private Sub Eintragen_Click()
If Time < TimeValue("6:00") Or Time > TimeValue("13:55") And ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value <> "nein" Then
    Userform2.Show
  End If
End Sub
Antworten Top
#5
(19.02.2024, 06:40)Xenon85 schrieb: Mir ist gerade aufgefallen das ich das noch mit einer weiteren Bedingung verknüpfen muss.

wäre das so richtig?
Woher sollen wir das wissen? Beschreib doch mal in Worten, wie die Bedingung lauten soll.

Vielleicht hilft dir das:
https://learn.microsoft.com/de-de/office...precedence
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipediadie Tafeln oder aktion-deutschland-hilft.de
Antworten Top
#6
Hallöchen,

du brauchst noch eine Klammerung um die Oder-Zeiten

If (Time < TimeValue("6:00") Or Time > TimeValue("13:55")) And ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value <> "nein" Then

(in Analogie zu Punkt/Strichrechnung, logische Priorität NOT/AND/OR)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Xenon85
Antworten Top
#7
Super genau so fuktioniert es super. Krass was so zwei Klammern ausmachen.

Vielen Dank
Antworten Top
#8
Für Leute die rechnen können:

Code:
Sub M_snb()
  MsgBox Int(Time * 4) <> 1
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#9
Zitat:du brauchst noch eine Klammerung um die Oder-Zeiten
Das hätte auch „krass“ falsch sein können.

13:55 ist die neue Forderung.
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipediadie Tafeln oder aktion-deutschland-hilft.de
Antworten Top
#10
(20.02.2024, 12:34)EarlFred schrieb: Das hätte auch „krass“ falsch sein können.

13:55 ist die neue Forderung.

Hab nur etwas an den Zeiten rumgespielt um festzustellen ob die Formel mein Problem löst.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste