Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nummer hochzählen nach Druck

Nummer hochzählen nach Druck
Klaus-Dieter
Hallo,
ich benötige mal wieder eure Hilfe.
Anbei eine Datei
https://www.herber.de/bbs/user/76932.xlsm
damit Ihr mein Problem seht. Wenn ich auf den Button "laufende Nummer" drücke sollte die Datei gedruckt werden und danach hochzählen. Mein Problem ist nun daß die Druckauswahl aufgeht und ich den Druck auch starte. Der Zähler wird hochgezählt aber der Druck findet nicht statt. Es erscheint auch keine Fehlermeldung. Den VBA Code habe ich über Google gefunden. Da ich mit VBA keine Erfahrung habe finde ich den Fehler nun nicht.
Wäre schön wenn mir jemand einen Tipp geben könnte.
vielen Dank vorab
Klaus-Dieter

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

Betreff
Benutzer
Anzeige
AW: Nummer hochzählen nach Druck
10.10.2011 11:18:09
Tino
Hallo,
versuch mal so, beachte wo der entsprechende Code hinkommt.
Der Code im Modul wird dem Button auf der Tabelle zugewiesen.
kommt als Code in DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    If Druck = False Then 
        Cancel = True 
        MsgBox "Drucken ist nur über den vorgesehenen Button Möglich!" 
    Else 
        Druck = False 
    End If 
End Sub
kommt als Code in ein Modul

Option Explicit 
 
Public Druck As Boolean 
 
Sub Rechnungsnummer() 
Dim RechNr As Long 
Dim Jahr As Integer 
    Jahr = ActiveWorkbook.BuiltinDocumentProperties(6) 
    RechNr = ActiveWorkbook.BuiltinDocumentProperties(5) 
    Druck = Application.Dialogs(xlDialogPrinterSetup).Show 
    If Druck = False Then Exit Sub 
    If Jahr <> Year(Date) Then 
        RechNr = 0 
        Jahr = Year(Date) 
        ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr 
    End If 
    RechNr = RechNr + 1 
    ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr 
    Range("G4") = Format(RechNr, "00000") & "/" & Jahr 
    ActiveSheet.PrintOut 
End Sub
Gruß Tino
Anzeige
AW: Nummer hochzählen nach Druck
10.10.2011 11:37:13
Klaus-Dieter
Hallo Tino,
vielen herzlichen Dank, hat geklappt.
Grüsse
Klaus-Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige