Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zu- und Abrechnung von Mehrwertsteuer

Gruppe

Berechnen

Problem

Aus ausgewählten Werten soll die Mehrwertsteuer wahlweise heraus- oder hinzugerechnet werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub ZuNetto()
   Const cd As Double = 1.16
   Dim rng As Range
   For Each rng In Selection.Cells
      If IsEmpty(rng) = False Then
         If IsNumeric(rng) Then
            rng.Value = rng.Value / cd
         End If
      End If
   Next rng
End Sub

Sub ZuBrutto()
   Const cd As Double = 1.16
   Dim rng As Range
   For Each rng In Selection.Cells
      If IsEmpty(rng) = False Then
         If IsNumeric(rng) Then
            rng.Value = rng.Value * cd
         End If
      End If
   Next rng
End Sub