hab da einen code der klappt bei Office XP aber nicht bei Excel 97 da kommt immer eine fehlermeldung (Typen unverträglichkeit). Könnt ihr mir helfen ?
Gruß Merlin
Sub uuu()
Selection.Value = 100
Dim zelle As Range
For Each zelle In Range("c4:ag28")
If zelle.Value = 100 And Cells(zelle.Row, 38) = "" Then (Diese Zeile wird Gelb)
MsgBox "Keine Urlaubseingabe !!! Kein Eintrag möglich"
zelle.ClearContents
End If
Next zelle
End Sub