Falzmarken in Excel korrekt einfügen
Schritt-für-Schritt-Anleitung
Um Falzmarken in Excel einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code erstellt Linien, die du als Falzmarken nutzen kannst:
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
Um die Falzmarken innerhalb des linken Seitenrandes zu platzieren, musst du die Koordinaten anpassen. Z.B.:
Set Sh = ActiveSheet.Shapes.AddLine(Columns("B").Left, t, Columns("C").Left, t)
Hiermit wird die Linie zwischen den Spalten B und C erstellt.
Häufige Fehler und Lösungen
-
Problem: Die Falzmarken erscheinen nicht wie gewünscht.
- Lösung: Überprüfe die Koordinaten im Code. Du kannst die Spaltenbreite und die Positionen anpassen, um die Falzmarken korrekt zu platzieren.
-
Problem: Die Falzmarken sind außerhalb des Druckbereichs.
- Lösung: Stelle sicher, dass die Falzmarken innerhalb der Druckeinstellungen von Excel liegen. Der Seitenrand wird nicht zum Druckbereich gezählt, daher ist eine Anpassung notwendig.
Alternative Methoden
Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch manuell Linien zeichnen:
- Gehe zu Einfügen > Formen und wähle die Linie aus.
- Zeichne die Linie an die gewünschte Stelle, indem du die Maus ziehst.
- Du kannst die Linie formatieren, um sie als Falzmarke zu kennzeichnen.
Diese Methode ist weniger flexibel, bietet aber eine schnelle Lösung, wenn du nur wenige Falzmarken benötigst.
Praktische Beispiele
-
Beispiel 1: Wenn du eine Falzmarke in der Mitte einer Seite setzen möchtest, könntest du folgende Koordinaten verwenden:
Set Sh = ActiveSheet.Shapes.AddLine(Columns("C").Left, t, Columns("D").Left, t)
-
Beispiel 2: Um mehrere Falzmarken zu erstellen, kannst du den Loop im Code anpassen, um die Intervallen zu variieren, sodass jede Falzmarke an der richtigen Stelle erscheint.
Tipps für Profis
- Experimentiere mit verschiedenen Linienstilen und -farben für die Falzmarken, um sie visuell hervorzuheben.
- Nutze das Seitenlayout, um sicherzustellen, dass die Falzmarken beim Drucken nicht abgeschnitten werden.
- Denke daran, dass du die Word Falzmarken entfernen kannst, wenn du die Markierungen nicht mehr benötigst, indem du einfach die Shapes im Excel-Dokument löschst.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Falzmarken gleichzeitig einfügen?
Du kannst die Schleife im VBA-Code anpassen, um mehrere Falzmarken in einem Durchgang zu erstellen.
2. Sind die Falzmarken druckbar?
Ja, solange die Falzmarken innerhalb des Druckbereichs liegen, können sie beim Drucken angezeigt werden. Achte darauf, dass sie nicht im Seitenrand platziert sind.