Hallo Zusammen!
Dank der Hilfe hier im Forum konnte ich die nachfolgend gezeigten Code's für mich anpassen.
Dim Daten() As Variant, avntValues As Variant 'Ab hier läuft die Prozedur zum Befüllen der ListBox
Dim lng, lngCount As Long
With frmGruppenphase
With Worksheets("Daten")
avntValues = .Range(.Cells(1, 45), .Cells(146, 57)).Value
End With
.ListBox3.ColumnCount = 14
.ListBox3.ColumnWidths = "60;62;57;61;125;160;50;25;30;30;30;30;25;25"
.ListBox3.Clear
For lng = LBound(avntValues) To UBound(avntValues)
If Sheets("Daten").Cells(lng, 41) = ComboBox2.ListIndex + 1 Then
lngCount = lngCount + 1
ReDim Preserve Daten(0 To 15, 1 To lngCount)
Daten(0, lngCount) = avntValues(lng, 1)
Daten(1, lngCount) = avntValues(lng, 2)
Daten(2, lngCount) = avntValues(lng, 3)
Daten(3, lngCount) = Format(avntValues(lng, 4), "hh:mm")
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) = lng
End If
Next lng
.ListBox3.Column = Daten
End With
With frmGruppenphase
With Worksheets("Daten")
avntValues = .Range(.Cells(1, 72), .Cells(360, 81)).Value
End With
.ListBox4.ColumnCount = 10
.ListBox4.ColumnWidths = "60;62;57;61;125;160;50;25;30"
.ListBox4.Clear
For lng = LBound(avntValues) To UBound(avntValues)
If Sheets("Daten").Cells(lng, 68) = ComboBox2.ListIndex + 1 And Sheets("Daten").Cells(lng, 69) = ComboBox3.ListIndex + 1 Then
lngCount = lngCount + 1
ReDim Preserve Daten(0 To 15, 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(13, lngCount) = lng
End If
Next lng
.ListBox4.Column = Daten
End With
Wenn ich den für KistBox3 unf für ListBox4 einzeln laufen lasse funzt es bestens, Schreibe ich die beiden Code's so w. o. zusammen in die Prozedur eines Buttons dann wird mir in ListBox4 auch alles aus ListBox3 angezeigt. Das soll aber nicht so sein! Wer kann erkennen wo mein Fehler liegt? Danke schon im Vorraus!
Gruß Frank H.