Apply condition to range

[looping]

Hello,

I have two ranges containing data to plot in a chart:

With ActiveChart.SeriesCollection.NewSeries
    .XValues = rngXData
    .Values = rngYData
End With

Now, I want to display only those data values, who match two conditions: " > LowerThres" and "<intupperthres".
<intupperthres".
<intupperthres".
<intupperthres".
< UpperThres".

I already experimented with find and Autofilter but I did not got it to work.</intupperthres".
</intupperthres".
</intupperthres".
</intupperthres".

 

[looping]

I found a solution: I define two new ranges with are set up by the parts of rngXData and rngYData that meet the specifications:

Private Sub redrawChart(strChartName As String, rngXData As Range, rngYData As Range)
    Dim i As Integer
    Dim j As Integer
    Dim rngXSel As Range
    Dim rngYSel As Range
    ' delete old data
    ActiveSheet.ChartObjects(strChartName).Activate
    For i = ActiveChart.SeriesCollection.Count To 1 Step -1
        ActiveChart.SeriesCollection(i).Delete
    Next
    ' write new data
    For i = 1 To lbxGrenzen.ListCount - 1
        ' rngXSel und rngYSel store the subranges that contain points in the actual interval
        Set rngXSel = Nothing
        Set rngYSel = Nothing
        For j = 1 To rngXData.rows.Count
            If rngXData(j, 1) >= CDbl(lbxGrenzen.List(i - 1)) And rngXData(j, 1) <= CDbl(lbxGrenzen.List(i)) Then
                If rngXSel Is Nothing Then
                    Set rngXSel = rngXData(j, 1)
                Else
                    Set rngXSel = Union(rngXSel, rngXData(j, 1))
                End If
                If rngYSel Is Nothing Then
                    Set rngYSel = rngYData(j, 1)
                Else
                    Set rngYSel = Union(rngYSel, rngYData(j, 1))
                End If
            End If
        Next
        With ActiveChart.SeriesCollection.NewSeries
            .XValues = rngXSel
            .Values = rngYSel
        End With
    Next
End Sub

It might not be the most elegant solution, but it works

PS: Where is the button to close a thread respectively change it's status to "answer"?