Chris.L hat mir freundlicherweise den nachfolgenden Code gebastelt.
Wie kann ich hier einen Fehler abfangen (Index außerhalb des gültigen Bereiches), wenn in dem besagten Tabellenblatt (hier "Angebote") der ausgewählte Kunde noch keinen Eintrag hat.
Sobald ein Eintrag vorhanden ist,läuft der Code einwandfrei.
Sub AngeboteFilter()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, iZaehler As Long
Set WS1 = Worksheets("Daten")
Set WS2 = Worksheets("Angebote")
ReDim Arr(WorksheetFunction.CountIf(WS2.Columns(9), WS1.Range("I2")) - 1, 4)
For iZeile = 1 To WS2.Range("I65536").End(xlUp).Row
If WS2.Cells(iZeile, 9) = WS1.Range("I2") Then
Arr(iZaehler, 0) = WS2.Cells(iZeile, 1)
Arr(iZaehler, 1) = WS2.Cells(iZeile, 3)
Arr(iZaehler, 2) = WS2.Cells(iZeile, 5)
Arr(iZaehler, 3) = Format(WS2.Cells(iZeile, 6), "#,##0.00 ")
Arr(iZaehler, 4) = WS2.Cells(iZeile, 19)
iZaehler = iZaehler + 1
End If
Next iZeile
With ListBox1
.ColumnCount = 5
.List = Arr
End With
End Sub
Bin für jeden Tipp dankbar!
Gruß
Dieter.K