Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Trauerränder ersetzen

Trauerränder ersetzen
25.10.2012 10: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
Anzeige
AW: Trauerränder ersetzen
25.10.2012 11: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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige