=AUFRUNDEN(A1;2)
Gruß
Franz
Private Sub WorkSheet_Change(ByVal Eintrag As Range)
Application.EnableEvents = False
If IsNumeric(Eintrag) Then
If Not Int(Eintrag) = Eintrag Then
Eintrag = Int(100 * Eintrag) / 100 + 0.01
End If
End If
Application.EnableEvents = True
End Sub
Das Makro wird immer dann ausgelöst, wenn ein Eintrag gemacht wird. Wurde eine Zahl eingegeben, wird sie auf zwei Nachkommastellen aufgerundet.
(Das Makro einfach kopieren und in den Code von Tabelle1 einfügen, und fertig. Dafür den VBA-Editor aufrufen, links im Fenster "Projekt" doppelt auf die Tabelle klicken, in der es sein soll. Dann den Code einfügen.)
Ich hoffe es funktioniert,
Gruß, Kai
Private Sub WorkSheet_Change(ByVal Eintrag As Range)
If IsNumeric(Eintrag) Then
If Eintrag WorksheetFunction.RoundUp(Eintrag, 2) Then
Application.EnableEvents = False
Eintrag = WorksheetFunction.RoundUp(Eintrag, 2)
Application.EnableEvents = True
End If
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort