Zeile markieren innerhalb einer intelligenten Tabelle

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Zeile markieren innerhalb einer intelligenten Tabelle

    Hallo,

    ich habe diesen Code der mir die angewählte Zeile markiert in der Farbe meiner Wahl.

    Ich nutze Intelligente Tabellen auf meinen Arbeitsblättern und möchte nur die Zeile innerhalb der Intelligenten Tabelle farblich markieren.
    Leider habe ich nicht verstanden wie ich die Tabelle "tblDevices" als Arbeitsbereich für den Code einschränke.

    Visual Basic-Quellcode

    1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    2. If Target.Cells.Count > 1 Then Exit Sub
    3. Application.ScreenUpdating = False
    4. Cells.Interior.ColorIndex = 0
    5. With Target
    6. .EntireRow.Interior.ColorIndex = 24
    7. End With
    8. Application.ScreenUpdating = True
    9. End Sub


    Vielen Dank im Voraus.
    Ich verstehe schon mal das ich per ListObject die Tabelle ansprechen kann und sogar nur den DataBodyRange in dem die Markierung passieren soll.

    Mein neuer Ansatz sieht folgendermaßen aus, führt nur leider nicht zum Erfolg.
    Laufzeitfehler 91 , Objektvariable oder With-Blockvariable nicht festgelegt. 8|

    Visual Basic-Quellcode

    1. Private Sub SelectionChange()
    2. Dim tbl As ListObject
    3. tbl.Name = "tblSwitch"
    4. Set tbl = ActiveSheet.ListObjects("tblSwitch").DataBodyRange.Select
    5. ' Tabelle (Body) ansprechen
    6. If tbl.Cells.Count > 1 Then Exit Sub
    7. Application.ScreenUpdating = False
    8. ' Andere Farben löschen
    9. Cells.Interior.ColorIndex = 0
    10. With tbl
    11. ' Zeilen Farbe
    12. .EntireRow.Interior.ColorIndex = 8
    13. End With
    14. Application.ScreenUpdating = True
    15. End Sub