| Cell.HasFormula, Cell.Formula Like "*[=^/*+-/()><, ]#*" |
|
|
| Function CellUsesLiteralValue(Cell As Range) As Boolean |
| If Not Cell.HasFormula Then |
| CellUsesLiteralValue = False |
| Else |
| CellUsesLiteralValue = Cell.Formula Like "*[=^/*+-/()><, ]#*" |
| End If |
| End Function |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
zurück