koppeling zoeken

[jen]

In heb een bestand gemaakt in Excel met een aantal koppelingen naar andere Excel documenten. Kan je aangeven waar die koppelingen staan? Er moeten een aantal koppelingen verwijderd worden omdat de bestanden waar deze naar verwijzen niet meer bestaan.

 

[Ingrid B]

Met deze macro worden alle cellen in de selectie met een koppeling naar een ander document rood gekleurd.

Sub test()
Dim c As Range
  For Each c In Selection
    If c.HasFormula And c.Formula Like "*[[]*" Then _
      c.Interior.ColorIndex = 3
  Next
End Sub

 

[Colombe]

Handig zo'n makro! Ik vergeet nog wel eens dat er dergelijke verwijzingen in mijn worksheets zitten.
Heb je nu ook nog een makro om alles weer in de oude staat terug te brengen?
In het verlengde daarvan zou een makro om alle cellen met een formule een opvulkleur (of tekstkleur) te geven (en weer terug natuurlijk) ook handig zijn.
Als je me kan helpen, graag

 

[Ingrid B]

Voor elke optie een afzonderlijke macro.
Hiermee wordt zowel de tekstkleur als de achtergrondkleur aangepast, verwijder een regel indien gewenst.
Let wel op als je reeds kleuren hebt gebruikt in je document, want deze gaan onherroepelijk verloren.

Sub KoppelingenMarkeren()
Dim c As Range
  For Each c In Selection
    If c.HasFormula And c.Formula Like "*[[]*" Then
      c.Interior.ColorIndex = 3
      c.Font.ColorIndex = 6
    End If
  Next
End Sub

Sub KoppelingenNormaal()
Dim c As Range
  For Each c In Selection
    If c.HasFormula And c.Formula Like "*[[]*" Then
      c.Interior.ColorIndex = xlNone
      c.Font.ColorIndex = xlAutomatic
    End If
  Next
End Sub

Sub FormulesMarkeren()
Dim c As Range
  For Each c In Selection
    If c.HasFormula Then
      c.Interior.ColorIndex = 3
      c.Font.ColorIndex = 6
    End If
  Next
End Sub

Sub FormulesNormaal()
Dim c As Range
  For Each c In Selection
    If c.HasFormula Then
      c.Interior.ColorIndex = xlNone
      c.Font.ColorIndex = xlAutomatic
    End If
  Next
End Sub

Voor het selecteren van formules kan je eventueel ook als volgt te werk gaan:

• selecteer een reeks cellen
• ga naar Bewerken/Ga naar en druk op de knop Speciaal
• selecteer nu de optie Formules en klik op OK

 

[Colombe]

Bedankt Ingrid.

 

[jen]

Het werkt perfect. Heel erg bedankt!