Markera villkorsstyrt formaterat cellområde

Markera villkorsstyrt
formaterat cellområde

Här demonstreras hur vi kan markera samtliga celler och cellområden som har samma villkorsstyrda formatering som en cell har.

Antag att vi har flyttat och kopierat enstaka celler och cellområden i ett arbetsblad och att vi följaktligen inte vet var alla cellerna återfinns. I denna situation kommer detta tips väl till hands.

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2003 All rights Colo - Used by permission)

Option Explicit

Sub Markera_Villkorsstyrt_Formaterat_Cellomrade()

   '© 2004 Alla rättigheter XL-Dennis

   Dim wbBook As Workbook

   Dim wsSheet As Worksheet

   Dim rnFormat As Range

   Set wbBook = ThisWorkbook

   Set wsSheet = wbBook.Worksheets(1)

   With wsSheet

      'Denna cell har det villkorsstyrda cellformateringen som

      'ska eftersökas i hela det aktuella arbetsbladet.

      Set rnFormat = .Range("A2")

   End With

   'Här markeras samtliga celler med samma format.

   rnFormat.SpecialCells(xlCellTypeSameFormatConditions).Select

End Sub