Trauerränder ersetzen

Forumthread: Trauerränder ersetzen

25.10.2012 12:38:36

Josef

Hallo,
mein Vorgänger hat über 200 Tabellen mit scheusslichen Trauerrändern versehen.
Mit einem Makro möchte ich sämtliche Ränder (links, rechts, oben, unten) durch die fein "gestrichelte" Linie ersetzen.
Gibt es dafür ein Makro?
Wenn ja, besten Dank im voraus
Josef

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Trauerränder ersetzen

25.10.2012 13:04:54

Klaus

AW: Trauerränder ersetzen

25.10.2012 13:04:54

Klaus

Hi Josef,
probier mal das:

Sub TrauerMakro()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.Borders(xlEdgeTop).Weight = xlMedium Then r.Borders(xlEdgeTop).Weight = xlHairline
If r.Borders(xlEdgeLeft).Weight = xlMedium Then r.Borders(xlEdgeLeft).Weight = xlHairline
If r.Borders(xlEdgeRight).Weight = xlMedium Then r.Borders(xlEdgeRight).Weight = xlHairline
If r.Borders(xlEdgeBottom).Weight = xlMedium Then r.Borders(xlEdgeBottom).Weight = xlHairline
Next r
End Sub

Grüße,
Klaus M.vdT.

Forumthread: Trauerränder ersetzen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread