Gibt es die Möglichkeit in einer Tabelle bestimmte Zellen, die einen Inhalt haben (z.b. B3, N15,...) nicht mit auszudrucken?
Gruß
Kira
Sub HL()
Dim c As Range
For Each c In Selection
If c.Hyperlinks.Count > 0 Then
c.Font.ColorIndex = 2
End If
Next
''drucken....
For Each c In Selection
If c.Hyperlinks.Count > 0 Then
c.Font.ColorIndex = 5
End If
Next
End Sub