Gruppe
Ereignis
Problem
Bei Eingaben im Bereich E6:E50 soll in Spalte F die 16%ige Mehrwertsteuer und in Spalte G der Bruttobetrag ausgeworfen werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngInput As Range
Set rngInput = Range("E6:E50")
On Error GoTo ERRORHANDLER
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(rngInput, ActiveCell) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsEmpty(Target) Then
Range(Target, Target.Offset(0, 2)).ClearContents
Else
Target.Offset(0, 1) = Target.Value * 0.16
Target.Offset(0, 2) = Target.Value + Target.Offset(0, 1).Value
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub