automat. Runden von Eingabewerten
02.01.2006 11:41:20
Eingabewerten
ich möchte die Zahlenwerte eines Eingabeblocks automatisch runden lassen. Hierfür habe ich eine entsprechende Ereignisprozedur für jede betroffene Zelle (IF NOT INTERSECT..) geschrieben. Leider ist dies unpraktikabel, da bei jeder Eingabe das System fur gewisse Zeit beschäftigt ist und die weitere Eingabe nur zeitverzögert vorgenommen werden kann. Weiß jeman, wie man den VBA-Code optimieren kann.
Original-Code für die erste Eingabezelle:
If Not Intersect(Target, [E13]) Is Nothing And Len(Trim(Sheets(1).Cells(13, 5).Value)) > 0 Then
Sheets(1).Cells(13, 5) = Application.WorksheetFunction.Round(Sheets(1).Cells(13, 5), Sheets(1).Cells(15, 1))
End If
Vielen Dank vorweg und ein frohes neues Jahr wünscht
Jörg