Hallo,
ich bin wieder auf dem alten Problem gelandet eine vorgegene Zahl so abzugleichen, daß die Eingabe in der Zelle automatisch durch 1,2 teilbar wird.
Das klappt mit dem alten Makro von Hans wirklich gut:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim GZelle As Range
Application.EnableEvents = False
Target = WorksheetFunction.RoundUp(Target / 1.2, 0) * 1.2
Application.EnableEvents = True
End Sub
jetzt soll das Makro aber mit einem Wert rechnen der aus einer Zelle übernommen wird.
Soweit habe ich das teil angepasst:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim GZelle As Range
Dim intZahl As Integer
intZahl = Sheets("PUR Schalen").Range("L10").Value
Application.EnableEvents = False
Target = WorksheetFunction.RoundUp(Target / intZahl, 0) * intZahl
Application.EnableEvents = True
End Sub
Komischerweise wird bei Zellinhalt 1,2 nur die 1 erkannt und auch mit 1 gerechnet. Die ,2 fällt unter den Tisch.
Habe versucht per Formatierung etwas zu erreichen, klappt nicht.
Wer weiss Rat?
Wilhelm