Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Keine Eingabe durch bestimmten Datumsbereich

Keine Eingabe durch bestimmten Datumsbereich
27.06.2019 19:22:27
Andreas
Hallo liebe Community,
ich benötige eure Hilfe.
Bei einem Skript soll geprüft werden, ob das das jetzige Datum ein Donnerstag und das ab diesem Zeitpunkt keine Einträge mehr für die nächste Woche gehen.
Leider funktioniert das nicht so wie ich mir das vorstelle (gar nicht). 
If CDate(Me.txt_Datum) = Date And CDate(Date) = 5 And CDate(Me.txt_Datum) > 10 Then
MsgBox "Eintragung Aufgrund von Veröffentlichung nicht möglich"
Else
End If
Habt Ihr eine lösung für mich.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keine Eingabe durch bestimmten Datumsbereich
27.06.2019 19:33:20
ChrisL
Hi Andreas
Bedingung 1:
If WorksheetFunction.Weekday(Date) = 5 Then
Bedingung 2:
... das ab diesem Zeitpunkt keine Einträge mehr für die nächste Woche gehen.
unverständlich.
Button "Zum File-Upload" nicht vergessen.
cu
Chris
AW: Keine Eingabe durch bestimmten Datumsbereich
27.06.2019 19:59:28
Andreas
Hallo zusammen,
vielen Dank für eure schnelle Meldung.
Prinzipiell soll es so aussehen:
If
1.Ist jetzt zwischen Donnerstag und Sonntag der laufenden/jetzigen Woche
2. Ist der Eintrag für nächste Woche (Textboxbezug = Me.txt_Datum)
then
MsgBox "Eintragung Aufgrund von Veröffentlichung nicht möglich"
Exit Sub
else
End if
Hier mal ein Bild zur Visualisierung
Userbild
Ich freue mich über eure Rückmeldung.
Anzeige
AW: Keine Eingabe durch bestimmten Datumsbereich
28.06.2019 13:59:49
ChrisL
Hi Andreas
Den Jahreswechsel habe ich ignoriert, womit der Code in 98 % der Fälle funktionieren sollte :)
If Weekday(Date, vbMonday) >= 4 And _
DatePart("ww", CDate(txt_Datum), vbMonday, vbFirstFourDays) - 1
cu
Chris
AW: Keine Eingabe durch bestimmten Datumsbereich
27.06.2019 19:34:45
Hajo_Zi 

CDate(Date) = 5
das trifft nur am 05.01.1900 zu.
Vielleich Weekday(date,2)=5
CDate(Me.txt_Datum) > 10
dies triff für alle Daten nach dem 10.01.1900 zu


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Keine Eingabe durch bestimmten Datumsbereich
27.06.2019 20:46:00
Andreas
Hallo zusammen,
vielen Dank für eure schnelle Meldung.
Prinzipiell soll es so aussehen:
If
1.Ist jetzt zwischen Donnerstag und Sonntag der laufenden/jetzigen Woche
2. Ist der Eintrag für nächste Woche (Textboxbezug = Me.txt_Datum)
then
MsgBox "Eintragung Aufgrund von Veröffentlichung nicht möglich"
Exit Sub
else
End if
Hier mal ein Bild zur Visualisierung
https://www.herber.de/bbs/user/130619.jpg
Ich freue mich über eure Rückmeldung.
AW: Keine Eingabe durch bestimmten Datumsbereich
28.06.2019 14:06:45
Hajo_Zi
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Gruß Hajo
Anzeige
AW: Keine Eingabe durch bestimmten Datumsbereich
28.06.2019 10:31:21
Pierre
Hallo Andreas,
wenn ich das richtig verstehe, sollen Eintragungen ab dem folgenden Montag wieder möglich sein?
Dann die erste Zeile so vielleicht? 
If Weekday(Now, vbMonday) > 3 Then

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige