VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mehrwertsteuer und Bruttobetrag nach Nettowerteingabe

Gruppe

Ereignis

Bereich

Change

Thema

Mehrwertsteuer und Bruttobetrag nach Nettowerteingabe

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change