Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrwertsteuer und Bruttobetrag nach Nettowerteingabe

Gruppe

Change

Problem

Bei Eingaben im Bereich E6:E50 soll in Spalte F die 16%ige Mehrwertsteuer und in Spalte G der Bruttobetrag ausgeworfen werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

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