过滤后标记数据点

Question

我想基于过滤后的数据标记图形。不幸的是，我的代码使用的是ALL数据而不是过滤后的数据，因此映射错误。

对于标记，我想使用第二列和第三列的第一个字母。数据从第三行开始。您能告诉我一个仅使用可见数据的解决方案吗？

Sub BeschriftungDiagramm()

    Dim lngPunkt As Long
    Dim data As Worksheet
    Set data = ActiveWorkbook.Worksheets("Gehaltsdaten")

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        .ApplyDataLabels
        For lngPunkt = 1 To .Points.Count
            .Points(lngPunkt).DataLabel.Text = Left(data.Cells(lngPunkt + 2, _
                2), 1) & " " & Mid(data.Cells(lngPunkt + 2, 3), 2, 1)
        Next lngPunkt
    End With

End Sub

希望您能获得足够的信息来理解我的问题。预先谢谢你：）