title image


Smiley Re: wochentag bei der eingabe prüfen!! bei sa oder so warnung mit msgbox!!!
Hi,







Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

For Each c In Target

    If IsDate(c.Value) Then

        If WorksheetFunction.Weekday(c.Value, 2) > 5 Then

        MsgBox "Das ist ein Wochenendtag"

        c.Select

    End If

    End If

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0






Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: