Wolfgang
12-07-2005, 07:17 AM
hi experts...
the h-c has struck again:
he dug out some code which was developed using e-97 and he wants to run it on his e-2003 machine, which of course, failed...
i have no clue what-so-ever about the error message...
would you kindly have a look at this, please:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim criterium As String
On Error GoTo ErrorHandler
criterium = Target.Name.Name
Select Case criterium
Case "$A$30:$B$30"
If IsEmpty(Target.Value(1, 1)) Then Target.Formula = "=TODAY()"
End Select
Exit Sub
ErrorHandler:
criterium = Target.Address
Resume Next
End Sub
thank you very much..
best,
wolfgang
the h-c has struck again:
he dug out some code which was developed using e-97 and he wants to run it on his e-2003 machine, which of course, failed...
i have no clue what-so-ever about the error message...
would you kindly have a look at this, please:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim criterium As String
On Error GoTo ErrorHandler
criterium = Target.Name.Name
Select Case criterium
Case "$A$30:$B$30"
If IsEmpty(Target.Value(1, 1)) Then Target.Formula = "=TODAY()"
End Select
Exit Sub
ErrorHandler:
criterium = Target.Address
Resume Next
End Sub
thank you very much..
best,
wolfgang