Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Falz- und Lochmarken

Falz- und Lochmarken
13.12.2003 22:14:47
patrick
Hallo ! Ich habe folgendes Problem:
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Falz- und Lochmarken
13.12.2003 22:20:31
ManuelaM
Hallo,

füg den Code in ein Standardmodul ein. Wenn du das in allen Mappen
verwenden willst, in die Arbeitsmappe PERSONL.XLS und dann am besten
ein Symbol in die Menüleiste und dem das Makro zuordnen:

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


Gruß Manu
Anzeige
AW: Falz- und Lochmarken
14.12.2003 12:28:55
Patrick
Vielen Dank ! Das werde ich gleich mal probieren :)

Gruß Patrick
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Falz- und Lochmarken in Excel einfügen


Schritt-für-Schritt-Anleitung

Um in Excel Falzmarken einzufügen, kannst du ein Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:
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
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Um das Makro auszuführen, drücke ALT + F8, wähle Falzmarken aus der Liste und klicke auf Ausführen.

Häufige Fehler und Lösungen

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.


Alternative Methoden

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.


Praktische Beispiele

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.


Tipps für Profis

  • Speichere deine Excel-Datei als Arbeitsmappe mit Makros (Dateiendung .xlsm), um das Makro zu behalten.
  • Du kannst das Makro anpassen, um mehr als nur zwei Falzmarken hinzuzufügen, indem du die Schleife im Code erweiterst.
  • Wenn du oft mit Falzmarken arbeitest, erstelle eine Schaltfläche in der Schnellzugriffsleiste, um das Makro schnell auszuführen.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige