Ich brauch ein Makro das mir in einer Exceltabelle Falz- bzw. Lochmarken einfügt ! Gibt es sowas überhaupt für Excel ..? Habe bisher nur solche Makros für Word gefunden.
Vielen Dank
Gruß Patrick
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 in Excel Falzmarken einzufügen, kannst du ein Makro verwenden. Folge diesen Schritten:
ALT + F11
, um den VBA-Editor zu öffnen.Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.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
ALT + F8
, wähle Falzmarken
aus der Liste und klicke auf Ausführen
.Fehler: Das Makro wird nicht ausgeführt.
Lösung: Stelle sicher, dass du die Makros in Excel aktiviert hast. Überprüfe die Sicherheitseinstellungen in Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen
.
Fehler: Die Linien erscheinen nicht.
Lösung: Überprüfe, ob das Makro erfolgreich ausgeführt wurde. Achte darauf, dass du die richtigen Einstellungen für TopMargin
und Line.Weight
verwendest.
Wenn du keine Makros verwenden möchtest, kannst du auch manuell Linien für Falzmarken in Excel zeichnen. Wähle dazu die Registerkarte Einfügen
, klicke auf Formen
und wähle die Linie aus. Du kannst dann die Linie an die gewünschte Stelle ziehen.
Für die Erstellung von Lochmarken kannst du ebenfalls Linien oder Formen verwenden. Alternativ kannst du in Word die Funktion "Loch und Falzmarken einfügen" nutzen und das Dokument dann als PDF exportieren.
Beispiel 1: Du möchtest eine Falzmarke bei einem A4-Dokument einfügen. Verwende das oben angegebene Makro, um die Linien automatisch in der gewünschten Position zu platzieren.
Beispiel 2: Wenn du eine Vorlage für eine Broschüre erstellen möchtest, kannst du das Makro für die Falzmarken verwenden und anschließend manuell die Lochmarken zeichnen.
.xlsm
), um das Makro zu behalten.1. Kann ich das Makro auch in Word verwenden?
Das Makro ist speziell für Excel geschrieben. Für Word gibt es jedoch ähnliche Funktionen, um Falz- und Lochmarken automatisch einzufügen.
2. Wie kann ich die Falzmarken entfernen?
Du kannst die Falzmarken einfach löschen, indem du im Excel-Arbeitsblatt die Linien auswählst und die Entf
-Taste drückst. Alternativ kannst du das Makro anpassen, um alle Falzmarken zu entfernen, bevor neue hinzugefügt werden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen