Sheet wählen
13.08.2003 13:58:44
Daniel Meier
------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim llCount As Long
Dim lsZinssatzCell As String
Dim lsKursCell As String
On Local Error Resume Next
For llCount = 12 To 30
lsZinssatzCell = "D" + Trim(Str(llCount))
lsKursCell = "L" + Trim(Str(llCount))
If UCase(Range(lsZinssatzCell).Value) = "" Then
ActiveSheet.Range(lsKursCell).NumberFormatLocal = "0.00"
Else
ActiveSheet.Range(lsKursCell).NumberFormatLocal = "0.00%"
End If
Next llCount
End Sub
Anzeige