Formatierung mit Code Zellweise umgehen
25.08.2006 22:55:31
Andreas
freundlicher Weise hat mir Beate Schmitz einen Code zur Verfügugn gestellt, der mir bei eingabe einer 5 die Zahl in 0,5 umwandelt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("G7:AD30")) Is Nothing Then
If Target.Value = 5 Then
Application.EnableEvents = False
Target.Value = 0.5
Application.EnableEvents = True
End If
End If
End If
End Sub
Nun ist es aber so, daß im Bereich von G7:AD30 keine Dezimalstelle mehr angezeigt werden sollen. Wie kann man diesen Code abändern, damit er diese Formatierung umgeht und eben in diesen Zellen wo man 5 eingibt dennoch eine 0,5 einträgt? Zur Info, in dem angegebenen Zellbereich werden nur 0,1 und 5er eingegeben.
Vielen Dank für eure Hilfe
Andreas