Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 22:12:12
Datei Attribute auslesen
29.04.2024 20:24:42
Datum nach Tag Monat Jahr sortieren
29.04.2024 19:27:41
Farbvorkommen innerhalb einer Produktkategorie
29.04.2024 17:40:50
Formel Index mit Vergleich kombiniert mit Addition
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Tag ungleich Wochentag

Wenn Tag ungleich Wochentag
16.12.2022 00:33:42
Elias
Hallo,
ich beabsichtige ein Makro auszuführen, wenn der Tag nicht Sonntag entspricht.
Dazu hatte ich mir folgenden Code überlegt der nicht funktioniert:

If Not Weekday(Now()) = vbSunday Then
Hat jemand ne Idee was daran falsch ist?
Gruß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Tag ungleich Wochentag
16.12.2022 00:42:08
ralf_b
Weekday hat einen 2ten Parameter

 If Weekday(Date, vbMonday)  vbSunday Then

AW: Wenn Tag ungleich Wochentag
16.12.2022 00:46:05
Elias
Kannst du mir den Code mal kurz erklären? Wieso nur vbMonday?
Vllt missverstehe ich das ja, aber der Code soll an allen Tagen ausgeführt werden, außer Sonntags.
AW: Wenn Tag ungleich Wochentag
16.12.2022 01:02:19
Elias
Ok danke.
Aber dennoch funktioniert der von dir oben aufgeführte Code nicht. Das Makro wird heute nicht ausgeführt.
Anzeige
AW: Wenn Tag ungleich Wochentag
16.12.2022 01:19:00
ralf_b
na gut dan halt so 

If WorksheetFunction.Weekday(Date, 11)  7

AW: Wenn Tag ungleich Wochentag
16.12.2022 01:46:32
Elias
Super das funktioniert. Danke vielmals.
Heißt das jetzt laut Code Weekday(jetziges Datum, Montag bis Sonntag) ungleich Samstag? Sei mir net bös, aber ich versuche die Zusammenhänge zu verstehen.
Und eine Sache noch:
Das Makro soll ausgeführt werden an allen Wochentagen außer Sonntag. Sonntags soll es auch nur zwischen 05:30 bis 17:30 Uhr nicht ausgeführt werden. Hierzu hatte ich den Zusatz geniert:

If Worksheet(Date, 11)  7 And Time > TimeSerial(5, 30, 0) And Time
Jetzt startet er allerdings nicht mehr. Was daran liegt, das ich sehr wahrscheinlich den ersten Part nicht verstanden habe :-)
Anzeige
AW: Wenn Tag ungleich Wochentag
16.12.2022 07:53:48
hary
Moin
Weshalb schreibst du "If Worksheet(Date, 11) 7"
Davon hat Ralf nix geschrieben.

'--Weekday(Date, 2) die 2 bedeutet Woche faengt Montags an
'-- also Mo=1 Di=2 usw. So = 7
'--vergleicht ob Wochentag kleiner 7(also kleiner Sonntag)
'--oder Wochentag =7 (also Sonntag) und Zeit >=5:30 und Zeit = TimeSerial(5, 30, 0) And Time
gruss hary
AW: Wenn Tag ungleich Wochentag
16.12.2022 08:09:39
ralf_b
Moin,
Es gibt Unterschiede ob man Weekday als VBA-Funktion aufruft oder als Arbeitsblattfunktion(Worksheetfunction). Ich wußte das auch nicht so genau.
Deshalb hatte ich anfangs etwas Murks geschrieben.
hier ein link der dir die Unterschiede verdeutlichen könnte. https://www.techonthenet.com/excel/formulas/weekday.php
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige