Office: Zelle prüfen ob Wochenende

Hallo Zusammen,

hab trotz längerer Suche im Forum nichts wirklich passendes gefunden.

Ich gebe in einer Zelle ein Datum ein und möchte per vba Prüfen, ob dieses auf ein Wochenende fällt. Wenn dies Zutrifft soll eine Meldung kommen und die Zelle wieder geleert werden.

Ungefähr so...

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range)
Dim dDatum as Date

dDatum = Target.Value

If dDatum = ?Wochenende?  then
MsgBox "Wert fällt auf ein Wochenende, bitte korrigieren!", vbokonly
Target = ""
Exit Sub
End If

End Sub


:)

 

Hallo 13. Semmel,

mit weekday(Datum) kannst du den Tag der Woche ermitteln, 1 = Sonntag, 7 = Samstag.


Berti

 

Hallo,

etwas genauer kann das so aussehen:

'Sa=6, So=7 bei Typ 2
If Weekday(dDatum, 2) > 5 Then

 

Danke woody für die Korrektur,

hatte auf die Schnelle nicht gefunden, wie die Einstellung des ersten Tages der Woche auszusehen hat.


Berti

 

Hi danke klappt soweit einwandfrei.

hab nun ne kleine Erweiterung zu machen, hab in der Tabelle 'Info' in dem Bereich 'Feiertage' die Feiertage dieses Jahres drin stehen. Diese sollten auch noch berücksichtigt werden. Also wenn der eingegebene Tag auf einen dieser Tage fällt sollte ebenfalls die Meldung kommen?!?

Danke schon mal.

MFG
Semmel

 

Hi, kann mir bitte jemand sagen, was daran falsch sein soll??? *rolleyes.gif*

PHP:

         If dDatum = Sheets("Info").Range("Feiertage").Value Then
MsgBox "Blöd aber auch...", vbOKOnly
End If


 

Du könntest den benannten Bereich Worksheets("Info").Range("Feiertage") von i = 1 bis Worksheets("Info").Range("Feiertage").Count durchgehen und dDatum auf Übereinstimmung mit Worksheets("Info").Range("Feiertage").Cells(i) prüfen...


Berti

 

Hallo Semmel,

ich nehme mal stark an, hinter dem Namen "Feiertage" verbirgt sich nicht nur eine einzelne Zelle, sondern ein Zellbereich mit mehreren Zellen. Dann musst du die einzelnen Zellen des Bereiches in einer Schleife abklappern:
Code: