gesucht Makro: Dicke Rahmenlinie bei Seitenumbruch

Hallo zusammen,
ich pflege in der Firma Maschinen Abnahme Protokolle (MAP).
In diesem MAP sind je nach Maschine zwischen 15-25 Tabellenblätter.
Die Spaltenanzahl ist je Tabellenblatt unterschiedlich.
Kann mal 4 Spalten sein, mal 18 Spalten.
Oft muss ich das MAP durch weitere Zeilen ergänzen.
Dann verrutschen auch die Seitenumbrüche.
Wenn ich das MAP dann in ein PDF umwandel, ist öfters die Tabelle an einem Seitenende unten offen.
Da diese MAP´s bis zu 70 Seiten haben, blättere ich das PDF bei vielen Änderungen sicherheitshalber kpl. durch.
Beispiel:
Zwischen Zeile 132 und 133 befindet sich ein erzwungener Seitenumbruch.
Jetzt muss ich über Zeile 132 eine weitere Zeile einfügen.
Aus optischen Gründen verschiebe ich den Seitenumbruch zwischen Zeile 125 und 126.
Jetzt kann es sein, dass im PDF die Zeile 125 unten offen ist, wenn ich zu seiner Zeit den dicken Rahmen um 126 gemacht habe.
Wenn dieses Tabellenblatt von Spalte A:K geht, markiere ich dann den Bereich A125:K125, mache dann "Alle Rahmenlinien" und dann "Dicke Rahmelinie".
Die offene Seite sieht man leider nur in der Seitenansicht oder im PDF.
Ich denke, bzw. bin mir sicher, es geht auch per Makro.
Liebes Makro, beende jede Seite in jedem Tabellenblatt bitte immer mit einer dicken Rahmenlinie.
PS: Alle Tabellenblätter werden von oben nach unten gedruckt.
Wenn es viele Spalten sind, sind diese entsprechend schmall, dass sie auf eine Seite passen.
Ich hoffe ich habe mich verständlich ausgedrückt.
Gruß Marcy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub rahmen_bei_Umbruch() Dim HP As HPageBreak For Each HP In ActiveSheet.HPageBreaks With Intersect(HP.Location.Offset(-1, 0).EntireRow, Range("A:K")) .Borders(xlEdgeBottom).Weight = xlMedium End With Next End Sub

Hallo Daniel,
so oder ähnlich findet man Deine Lösung auch im Internet. Die Sache hat aber einen Haken.
Fügt man einen manuellen horizontalen Seitenumbruch hinzu, dann verschluckt sich Excel
und produziert einen Vba-Fehler; egal in welcher Excel-Version (getestet in Excel 2003 - 2010).
In der Excel-Vba-Hilfe steht dies:
"Beim Hinzufügen eines Seitenwechsels, der den Druckbereich nicht überschneidet, wird das
neu hinzugefügte HPageBreak-Objekt nicht in der HPageBreaks-Auflistung für den
Druckbereich angezeigt. Der Inhalt der Auflistung kann sich ändern, wenn die Größe des
Druckbereichs geändert oder der Druckbereich neu definiert wird."
Deshalb mache ich es so:


Sub Sub_H()
Dim hpb As HPageBreak
Dim i1 As Integer, i2 As Integer
With Sheets("Tabelle1")
'letzte Zeile in Spalte 'A'
loletzte = .Range("A" & .Rows.Count).End(xlUp).Row
'wichtig: Druckbereich neu definieren bzw. anpassen
.PageSetup.PrintArea = "$A$1:$Z$" & loletzte
'wichtig: Cursor hinter die letzte Zeile setzen, ansonsten
'werden nur die Seitenumbrüche bis zur Cursorzeile berücksichtigt
.Range("A" & loletzte + 1).Select
'Arbeitsmappe sichern
ThisWorkbook.Save
'alle Unterstriche entfernen, falls manuelle Umbrüche gelöscht wurden
'die Randeinstellung für diese Zellen bleiben sonst erhalten
.Range("A1" & ":E" & loletzte + 10).Borders.LineStyle = xlLineStyleNone
'Rahmen für Umbrüche neu setzen
For Each hpb In .HPageBreaks
With hpb.Location.Offset(-1, 0).Resize(, 5)
.Borders(xlEdgeBottom).Weight = xlMedium
End With
Next
End With
Set hbp = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

gesucht Makro: Dicke Rahmenlinie bei Seitenumbruch

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread