Makro verändern
30.07.2003 22:42:39
Didi
mit folgenden Makro wird eine Dateneingabe verhindert, wenn sich eine Zelle darüber der Text Sa oder So befindet.
Was muß am Makro verändert werden, um die Dateneingabe zu verhindern, wenn die Hintergrundfarbe der Zelle rot ist ?
Also anstatt: (Sa oder So) (roter Hintergrund).
Danke für Euere Hilfe
Gruß Didi
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo exitsub
If ActiveCell(-0, 1).Text = "Sa" Or ActiveCell(-0, 1).Text = "So" _
Then MsgBox ("Wochenende !"), 16, ("Achtung !")
exitsub:
Exit Sub
End Sub