Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatisches drucken zusammengehöriger Zeilen

automatisches drucken zusammengehöriger Zeilen
07.06.2005 16:06:48
DonPepe
Hallo,
ich habe ein Tabellenblatt, das aus ca. 3500 Zeilen besteht.
Das Tabellenblatt ist nach den Spalten A und anschl. B sortiert.
Nun möchte ich, dass die zusammengehörigen Zeilen automatisch auf jeweils ein einzelnes Blatt gedruckt werden, ohne, dass ich jedesmal denn Druckbereich neu definieren muss.
Beispiel:
Zeile A Zeile B
1. 1 30
2. 1 30
3. 1 31
4. 1 31
5. 2 00
6. 2 00
Somit sollen die Zeilen 1 und 2, die Zeilen 3 und 4 und die Zeilen 5 und 6 jeweils zusammen auf ein Blatt ausgedruckt werden.
Kann mir jemand helfen?
Danke für Eure Antworten!
Gruß.....Olaf

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches drucken zusammengehöriger Zeilen
09.06.2005 08:51:06
MichaV
Hi,
dieses Makro in "DieseArbeitsmappe" einfügen:



      
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Zeile As Range
'Makro nur bei Tabelle1 ausführen
If Not ActiveSheet.Name = "Tabelle1" Then Exit Sub
With ActiveSheet
  
For Each Zeile In Intersect(.UsedRange, .Range("a:a"))
    
If (Not (Zeile.Offset(1, 0) = Zeile) And (Not Zeile.Offset(1, 0) = "")) Then
      .HPageBreaks.Add before:=Zeile.Offset(1, 0)
    
End If
  
Next Zeile
End With
End Sub 
Gruss- Micha
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige