VBA Summen im Formular nach Datum /Namen

Hardy · 2021-02-27T13:28:08+00:00

Hallo, in einer Arbeitsmappe habe ich eine Tabelle (Nr.4) mit variabler Länge und 36 Spalten. in der Spalte A stehen Datumsangaben (ein Datum kann mehrfach vorkommen) und in der Spalte C stehen Namen und in der Spalte F stehen Beträge. Ich möchte jetzt folgendes, 1. in einem Formular habe ich 12 TextBoxen Januar bis Dezember die sollen mit den Summen der einzelnen Monate gefüllt werden. 2. wenn ich jetzt im Formular einen Namen in einer ComboBox wähle, sollen nur die Summen der Person in die Monats TextBoxen eingetragen werden Ich hab schon geschaut aber ich finde irgenwie nicht die richtige Lösung . Kann jemand helfen ? Gruß Hardy

Hallo,
hier mal der Code:

Option Explicit
Private Sub ComboBox1_Change()
Dim i As Long, loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
If Me.ComboBox1  "" Then
For i = 1 To 12
Me.Controls("TextBox" & CStr(i)) = _
Evaluate("=SUMPRODUCT((MONTH(A2:A" & loLetzte & ")=" & i & ")*((B2:B" _
& loLetzte & ")=""" & Me.ComboBox1 & """)*(C2:C" & loLetzte & "))")
Next i
Else
Call UserForm_Initialize
End If
End Sub
Private Sub UserForm_Initialize()
Dim varValues As Variant, varItem As Variant
Dim objDictionary As Object, i As Long, loLetzte As Long
Set objDictionary = CreateObject("Scripting.Dictionary")
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
varValues = .Range("B2:B" & loLetzte)
For Each varItem In varValues
objDictionary.Item(varItem) = vbNullString
Next
Me.ComboBox1.List = objDictionary.Keys
For i = 1 To 12
Me.Controls("TextBox" & CStr(i)) = _
Evaluate("=SUMPRODUCT((MONTH(A2:A" & loLetzte & ")=" _
& i & ")*(C2:C" & loLetzte & "))")
Next i
End With
Set objDictionary = Nothing
End Sub

In deiner Userform die Textboxen bitte umbenennen und zwar von TextBox1 (Januar) bis TextBox12 (Dezember) forlaufend.
Die ComboBox fülle ich über ein Dictionary. Ein Dictionary kann keine doppelten Werte aufnehmen. Das hat den Vorteil, dass du dann die Namen in Spalte B nicht mehrfach in der ComboBox hast.
Beim Laden der Userform werden die Monatsbeträge in den entsprechenden TextBoxen angezeigt. Wählst du einen Namen in der ComboBox aus, dann sind in den TextBoxen die Monatsbeträge der entsprechenden Person.
Löschst du den Eintrag in der ComboBox, dann werden dir wieder die Monatsbeträge in den TextBoxen angezeigt.
Gruß Werner

VBA Summen im Formular nach Datum /Namen

Forumthread: VBA Summen im Formular nach Datum /Namen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Summen im Formular nach Datum /Namen

Forumthread: VBA Summen im Formular nach Datum /Namen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread