Hallo und Guten Abend zusammen!
Ich möchte eine ListBox abhängig des Jahres in ComboBox - cbJahr - befüllen.
Meine Code dazu:
im lng As Long
Dim c, m, y As Byte
c = 55
m = cbJahr.ListIndex * 12 + cbMonat.ListIndex
y = c + m
Dim Daten() As Variant, avntValues As Variant
Dim lngCount As Long
With Worksheets("Kontoführung")
avntValues = .Range(.Cells(14, 53), .Cells(48, y)).Value
End With
With frmFixkosten
.ListBox1.ColumnCount = 15
.ListBox1.ColumnWidths = "100;90;70;60;30;120;50;85;85;85;85;120;120;140"
.ListBox1.Clear
For lng = LBound(avntValues) To UBound(avntValues)
lngCount = lngCount + 1
ReDim Preserve Daten(0 To 14, 1 To lngCount)
Daten(0, lngCount) = avntValues(lng, 1)
Daten(1, lngCount) = avntValues(lng, 2)
Daten(2, lngCount) = avntValues(lng, 3)
Daten(3, lngCount) = avntValues(lng, 4)
Daten(4, lngCount) = avntValues(lng, 5)
Daten(5, lngCount) = avntValues(lng, 6)
Daten(6, lngCount) = avntValues(lng, 7)
Daten(7, lngCount) = avntValues(lng, 8)
Daten(8, lngCount) = avntValues(lng, 9)
Daten(9, lngCount) = avntValues(lng, 10)
Daten(10, lngCount) = avntValues(lng, 11)
Daten(11, lngCount) = avntValues(lng, 12)
Daten(12, lngCount) = avntValues(lng, 13)
Daten(13, lngCount) = avntValues(lng, 14)
Daten(14, lngCount) = lng + 2
Next lng
On Error Resume Next
.ListBox1.Column = Daten
End With
In der Originaltabelle stehen die Daten genau an der Stelle wie im beigefügten Beispiel.
https://www.herber.de/bbs/user/108771.xlsx
Irgendwie wechselt mein Code nicht ins nächste Jahr. Kann mal jemand drüber schauen und mir auf die Sprünge helfen! Danke
Gruß Frank H.