Re: Formatierungsproblem
03.06.2002 14:01:20
Daniel R.
Also ich gehe davon aus, dass ein Verhältnis dann negativ ist, wenn der Wert der ersten Verhältniszahl kleiner "1" ist z.B. "0.7". Damit ist "0.7" aber immer noch keine negative Zahl. Insofern lässt sich Dein Problem nicht über benutzerdefinierte Formate lösen, würde ich jetzt mal behaupten.
Schreibe deshalb den folgenden Code in ein Tabellenmodul:Private Sub Worksheet_Change(ByVal target As Excel.Range)
wert = ActiveCell.Value
Dim bereich1 As Range
Set bereich1 = Range("e1:e10")
If Not Intersect(target, bereich1) Is Nothing Then
If wert >= 1 Then
Selection.NumberFormat = "0"":1"""
Else
Selection.NumberFormat = "0.0"":1"""
End If
Else
Exit Sub
End If
End Sub
Wenn Du im Bereich E1-E10 eine Zahl eingibts und die Entertaste drückst, wird die Zahl entsprechend Deinen Wünschen formatiert, insofern ich das mit dem negativen Verhältnis richtig verstanden habe.
Gruss Daniel R.