title image


Smiley Eingabe in einer Zelle per Makro prüfen
Hallo,



entweder du nimmst den Weg, den Worti vorgeschlagen hast oder du machst es per Makro:







Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

For Each c In Target

    If c.Address(0, 0) = "J5" And 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





C steht für alle Zellen im selektierten Bereich. Das braucht man nur für den Fall einer Mehrfacheingabe.
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: