Quartalsweise Auswertung
26.10.2016 23:25:35
Markus
ich habe folgendes Anliegen: Ich würde gerne meine zeitliche Auswertung (angehängte Datei) um eine quartalsweise Auswertung (innerhalb eines Jahres) erweitern.
Quartal 1: Januar, Februar, März
Quartal 2: April, Mai, Juni
Quartal 3: Juli, August, September
Quartal 4: Oktober, November, Dezember
Dabei kann man das Quartal durch eine Checkbox auswählen. Die Ergebnisse sollen dann in der Listbox erscheinen und anschließend die Möglichkeit bestehen, den Gesamtumsatz des Quartals zu berechnen. Leider weiß ich nicht, wie ich da vorgehen kann.
https://www.herber.de/bbs/user/109048.xlsm
Public bLoad As Boolean
Private Sub ComboBox1_Change()
Call LbLaden
End Sub
Private Sub ComboBox2_Change()
Call LbLaden
End Sub
Private Sub CommandButton1_Click()
With WorksheetFunction
TextBox1 = .Sum(.Index(ListBox1.Column, 3))
End With
End Sub
Private Sub UserForm_Initialize()
Dim iZeile As Long
bLoad = True
With Worksheets("Tabelle1")
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(iZeile, 1)
ComboBox2.AddItem .Cells(iZeile, 1)
Next iZeile
End With
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = ComboBox2.ListCount - 1
ListBox1.ColumnCount = 3
bLoad = False
Call LbLaden
End Sub
Private Sub LbLaden()
Dim iZeile As Long
Dim iCounter As Long
Dim arList() As Variant
If bLoad Then Exit Sub
With Worksheets("Tabelle1")
ListBox1.Clear
If CDate(ComboBox1) > CDate(ComboBox2) Then
MsgBox "Start darf nicht grösser Ende sein"
Exit Sub
End If
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(iZeile, 1) >= CDate(ComboBox1) And .Cells(iZeile, 1)