Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lange Tabelle, Umrandung am Seitenende

Lange Tabelle, Umrandung am Seitenende
Julian
Hallo liebe Excel Anwender,
ich wäre euch sehr dankbar, wenn Ihr mir bei einem Layout Problem in Excel helfen könntet.
Ich habe eine lange Tabelle mit mehreren Hundert Zeilen. Die Tabelle soll außen herum einen dicken Rand haben.
Mein Problem: Ich möchte die dicke Umrandung am Ende einer jeden Seite haben und nicht nur auf der letzten Seite. Eine manuelle Erstellung der Linie am Ende jeder Seite kommt wegen der Länge der Tabelle nicht in Betracht.
Herzlichen Dank für Eure hilfreichen Ratschläge
Grüße, Julian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Lange Tabelle, Umrandung am Seitenende
11.09.2009 13:11:25
Rudi
Hallo, 
Sub RahmenSeitenende()
'©Rudi Maintaire 11/09/2009
Dim i As Integer
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
i = 1
With ActiveSheet
With .UsedRange
With .Borders(xlTop)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With .Borders(xlLeft)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With .Borders(xlRight)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With .Borders(xlBottom)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With .Borders(xlInsideHorizontal)
.Weight = xlThin
.LineStyle = xlNone 'xlThin
End With
With .Borders(xlInsideVertical)
.Weight = xlThin
.LineStyle = xlNone 'xlThin
End With
End With
Do
With .HPageBreaks(i).Location.Resize(, .UsedRange.Columns.Count)
With .Offset(-1).Borders(xlBottom)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With .Borders(xlTop)
.Weight = xlMedium
.LineStyle = xlContinuous
End With
End With
i = i + 1
Loop Until i > .HPageBreaks.Count
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige