stehe wieder einmal vor einem kleinen Problem.
Ich möchte ein Makro nur ausführen, wenn das aktuelle PC Datum ein "Freitag" ist.
hat von euch jemand eine Idee ?
Danke
LG
Georg
If Weekday(date,vbMonday)5 Then Exit Sub
Um ein Makro in Excel VBA auszuführen, wenn ein bestimmter Wochentag erreicht ist, kannst du folgende Schritte befolgen:
Öffne den VBA-Editor in Excel, indem du ALT + F11 drückst.
Erstelle ein neues Modul, indem du mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)" klickst und "Einfügen" > "Modul" wählst.
Füge den folgenden Code in das Modul ein:
Sub MakroAnFreitagAusführen()
If Weekday(Date, vbMonday) <> 5 Then Exit Sub
' Hier kommt der Code für dein Makro
End Sub
Speichere die Änderungen und schließe den VBA-Editor.
Du kannst das Makro jetzt manuell ausführen oder es mit einem Ereignis verknüpfen.
Problem: Das Makro wird an einem Freitag nicht ausgeführt.
Lösung: Stelle sicher, dass du die Funktion Weekday(Date, vbMonday) korrekt verwendest. Der Wert 5 steht für Freitag, wenn du vbMonday als Starttag nutzt.
Problem: Fehlermeldung bei der Ausführung.
Lösung: Überprüfe, ob der Code innerhalb eines gültigen Moduls steht und ob du die richtigen Berechtigungen hast, um Makros auszuführen.
Falls du nicht mit VBA arbeiten möchtest, gibt es auch andere Möglichkeiten:
Ein häufiges Beispiel ist, ein Makro für den Geburtstag eines Kollegen zu erstellen. Hier ein Beispielcode, der überprüft, ob heute der Geburtstag eines Kollegen ist:
Sub GeburtstagÜberprüfen()
Dim geburtstag As Date
geburtstag = DateValue("18.05") ' Beispielgeburtstag
If Month(Date) = Month(geburtstag) And Day(Date) = Day(geburtstag) Then
MsgBox "Heute ist der Geburtstag!"
End If
End Sub
Application.OnTime, um dein Makro zu bestimmten Zeiten auszuführen.1. Wie kann ich herausfinden, welcher Wochentag heute ist?
Du kannst die Funktion Weekday(Date) verwenden, um den aktuellen Wochentag zu ermitteln.
2. Kann ich das Makro so anpassen, dass es an mehreren bestimmten Wochentagen ausgeführt wird?
Ja, du kannst weitere Bedingungen in der If-Anweisung hinzufügen, um mehrere Wochentage zu berücksichtigen.
3. Was bedeutet vbMonday in der Funktion Weekday?
vbMonday legt fest, dass die Woche am Montag beginnt und die Wochentage von 1 (Montag) bis 7 (Sonntag) nummeriert werden.