Hallo,
habe gerade dieses Markro mal ausprbiert.
Nachteil ist, das die Falzmarken in der ersten Tabellenspalte liegen.
Im zweifelsfall halt die erste Spalte frei lassen.
Anstelle des Makros kannst du auch einfach einen Strich aus den Formen einfügen, das Makro macht im End nichts anderes.
Option Explicit
Const SC As Long = 0
Const LW As Double = 1.43
Sub Falzmarken()
Dim t As Double, s As Byte, tm As Double, Sh As Shape
For Each Sh In ActiveSheet.Shapes
With Sh
If .Type = 9 And .Line.Weight = LW And _
.Line.ForeColor.SchemeColor = SC Then
.Delete
End If
End With
Next
tm = ActiveSheet.PageSetup.TopMargin
t = 281 - tm
For s = 1 To 2
Set Sh = ActiveSheet.Shapes.AddLine(0, t, 24, t)
With Sh
.Line.Weight = LW
.Line.DashStyle = 1
.Line.Style = 1
.Line.ForeColor.SchemeColor = SC
.Placement = 3
End With
t = t + 281
Next
End Sub
Da ich kein VBA kann, kann ich die leider auch nicht sagen, ob es möglich ist die Markierungen außerhalb der Tabelle zu platzieren.
Gruß Michael