Live-Forum - Die aktuellen Beiträge
Datum
Titel
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?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckschleife erstellen

Druckschleife erstellen
24.05.2017 15:31:33
Paul
Ein Weiteres :)
Ich würde gerne eine Druckschleife erstellen, d.h. ich habe ein Bericht, in welchem ich die jeweilige Region vorgeben muss.
Tabelle1 hat alle vorhanden Regionen gelistet (Untereinander) Zelle A1 bis Zelle A10 (Also Region 1 - 10)
Jetzt möchte ich gerne, dass er in Tabelle2 in die Zelle R15 nacheinander die Regionen einträgt und jedes mal einen Druck erzeugt. Also erstmal Region 1 eintragen und drucken dann Region 2 und wieder drucken usw.
Der Druckbefehl an sich lautet wie folgt: 
Sub Berichte_speichern()
Dim Ab As String
Ab = Worksheets("Kosten_Pivot").Range("L12").Value
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="L:\Team VK\" & Ab & ".pdf", _
Quality:=xlQualityhigh, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.DisplayAlerts = True
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckschleife erstellen
24.05.2017 17:05:31
UweD
Hallo
- Im Namen muss noch z.B. der Wert aus R15 vorhanden sein, sonst wird die PDF-Datei immer wieder überschrieben.
- xlQualityhigh meldet bei mir Fehler deshalb hab ich xlQualityStandard eingetragen
Sub Berichte_speichern()
    On Error GoTo Fehler
    Dim TB1, TB2, i%
    Dim SP%, ZE&, LR&
    Dim Ab As String
    
    '*** Stammdaten Anfang 
    Set TB1 = Sheets("Tabelle1")
    Set TB2 = Sheets("Tabelle2")
    SP = 1 'Spalte A 
    ZE = 2 'ab Zeile 2 wegen ggf. Überschrift 
    '*** Stammdaten Ende 
    
    LR = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    Ab = Worksheets("Kosten_Pivot").Range("L12").Value
    
    For i = ZE To LR
        TB2.Range("R15") = TB1.Cells(i, SP)
        Application.DisplayAlerts = False
 
        TB2.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="L:\Team VK\" & Ab & " " & TB2.Range("R15") & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    
        Application.DisplayAlerts = True
    Next
    
    '*** Fehlerbehandlung 
    On Error GoTo Fehler
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Druckschleife erstellen
24.05.2017 17:07:54
ChrisL
Hi Paul
Schade, dass du über Zelle L12 nichts schreibst. Vielleicht so...
Sub Berichte_speichern()
Dim Ab As String
Dim i As Integer
Application.DisplayAlerts = False
For i = 1 To 10
Worksheets("Tabelle2").Range("R15") = Worksheets("Tabelle1").Cells(i, 1)
Ab = Worksheets("Kosten_Pivot").Range("L12").Value & i
Worksheets("TabelleUnbekannt").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="L:\Team VK\" & Ab & ".pdf", Quality:=xlQualityhigh, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
Application.DisplayAlerts = True
End Sub
cu
Chris
Anzeige
AW: Druckschleife erstellen
29.05.2017 09:42:58
Paul
Hey Danke!!!
L12 gibt einfach eine darauf abgestimmte individuelle Bezeichnung für den Namen der Datei vor.
Habe erstmal den Code von ChrisL verwendet
Das funktioniert schon super mit dem Code, müsste nur noch eingeben, dass er aufhören soll, falls in Tabelle1 nichts mehr vorgegeben ist. Er zieht das ja jetzt gnadenlos durch bis zur ZelleA10. Super wäre, wenn er stoppt, falls bereits ab ZelleA9 alles leer ist.
AW: Druckschleife erstellen
29.05.2017 10:16:22
ChrisL
Hi Paul
For i = 1 To Worksheets("Tabelle1").Cells(Rows.Count,1).End(xlup).Row
cu
Chris
AW: Druckschleife erstellen
29.05.2017 11:12:35
Paul
So ist es...funktioniert einwandfrei!!!
Herzlichsten Dank!!!
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige