VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zu- und Abrechnung von Mehrwertsteuer

Gruppe

Allgemein

Bereich

Berechnen

Thema

Zu- und Abrechnung von Mehrwertsteuer

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen