Listbox über Auswahl Combobox füllen
02.02.2019 14:31:42
Markus
ich trage über eine Userform Projektkosten in eine Tabelle ein. In Spalte A steht die Projektnummer, in Spalte B das Datum, Spalte C die Kostenart,... und Spalte F die jeweiligen Kosten.
Zur Auswertung möchte ich gerne über eine neue Userform zum einen alle Kosten zum Projekt auflisten und mir aus diesen Kosten in einer TextBox die Gesamtkosten zum Projetkt ausgeben lassen. Die Auswahl des Projekt liefert mir eine Combobox.
Bisher ist es mir zwar gelungen die Listbox mit allen Werten der Tabelle zu aber nicht nach der Projektnummer zu filtern. Auch für die Addition aller zugehörigen Werte und Ausgabe in der Textbox fällt mir nichts gescheites ein.
bisher habe ich folgenden Code in der Userform stehen:
Option Explicit
Private Sub UserForm_Initialize()
'Projektauswahl in combobox
Dim lngZeilemax As Long
lngZeilemax = Sheets("Projekte").UsedRange.Rows.Count
With ComboBox_PjNr
.RowSource = "Projekte!A3:A" & lngZeilemax
.ListIndex = -1 'beginnt in der ersten Zeile
.ListRows = 5 '5 Nummern werden angezeigt dann dropdown
ListBox1.ColumnWidths = "0,5cm;2cm;2cm;4cm;2cm;2cm;3cm;5cm"
End With
End Sub
Private Sub UserForm_Activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("B2").CurrentRegion
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns. _
Count)
intColums = rngSource.Columns.Count
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub
Wäre super wenn mir jemand weiterhelfen könnte.
Gruß Markus
Anzeige