VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mehrwertsteuerberechnung von Brutto und Summierung der Mwst.

Gruppe

Funktion

Bereich

SUMMEWENN

Thema

Mehrwertsteuerberechnung von Brutto und Summierung der Mwst.

Problem

In einer Tabelle soll die Nettopreis- und Mehrwertsteuerberechnung von Bruttobeträgen vorgenommen werden. Die Mehrwertsteuer soll in Abhängigkeit des Mwst.-Satzes summiert werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Sub CallForm()
   frmSort.Show
End Sub

ClassModule: frmSort

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdSort_Click()
   Application.ScreenUpdating = False
   Workbooks.Add
   Range(Cells(1, 1), Cells _
      (lstSort.ListCount, 2)).Value = lstSort.List
   Range("A1").Sort key1:=Range("A1"), _
      order1:=xlAscending, key2:=Range("B2"), _
      order2:=xlAscending
   lstSort.List = Range("A1").CurrentRegion.Value
   ActiveWorkbook.Close savechanges:=False
End Sub

Private Sub UserForm_Initialize()
   lstSort.List = Range("A1").CurrentRegion.Value
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SUMMEWENN