Gruppe
Funktion
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.
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