Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lange Tabelle, Umrandung am Seitenende

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Tabelle, Größenachse auf andere Seite
best

Hallo,
habe eine Datentabelle, deren Daten (Preisentwicklung eines Produktes) in einem Diagramm gezeigt werden.
Neue Preise sind links (wie ich das geändert habe kann ich im Moment nicht mehr nachvollziehen), aber nun stehen die Werte (die Größenachse Y) rechts der tabelle, die hätte ic...
25.05.2010 09:17:25
Thread-ID: 1158612
2 Beiträge
Anzeige
Kann Code einfach nicht anpassen: auf Tabelle2;D7!
RoB

Hallo Leute,
Ich habe einen Code bekommen, der in der Rohfassung perfekt lief, habe nun aber versucht ihn an meine Datei anzupassen: Excel soll statt in Spalte 1:1 von Tabelle "Tabelle 2" die makro-funktion erstmals in der Zelle D7 anwendet. Wie bekomme ich das hin?
Hier der Code:
...
12.07.2010 12:08:22
Thread-ID: 1166591
3 Beiträge
Anzeige
Seitenansicht alle Tabellen
Martin

Hallo Zusammen
Frohe Vorweihnachtszeit . . .
Ich habe folgenden Code aufgezeichnet. Ziel alle sichtbaren Tabellen in der Seitenansicht zeigen.
Sub Makro2() ' Makro2 Makro Sheets(Array("Deckblatt", "Türe (2)", "Rahmen", "Element")) .Select Sheets("Deckblatt").Activate ActiveWindow.Se...
14.12.2010 12:18:38
Thread-ID: 1191365
5 Beiträge
Anzeige
Seitenansicht alle Tabellen
Martin

Hallo Zusammen
Frohe Vorweihnachtszeit . . .
Ich habe folgenden Code aufgezeichnet. Ziel alle sichtbaren Tabellen in der Seitenansicht zeigen.
Sub Makro2() ' Makro2 Makro Sheets(Array("Deckblatt", "Türe (2)", "Rahmen", "Element")) .Select Sheets("Deckblatt").Activate ActiveWindow.Se...
14.12.2010 13:05:35
Thread-ID: 1191377
2 Beiträge
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Anzeige
Code anpassen (Seitenansicht)
Thomas

Hallo Excelfreunde,
hier im Forum hab ich diesen Code gefunden der auch funktoniert wenn ich die Tabs ausblende die ich nicht in der Seitenansicht haben möchte.
Wie muss der Code lauten wenn ich ("Tab1" , "Tab3" , "Tab4") in der Seitenansicht/Druckvorschau sehen will?
Ich hab es nic...
22.01.2012 13:09:53
Thread-ID: 1247446
5 Beiträge
Tabelle an Bildschirmgröße anpassen ?
Matthias

Hallo an Alle,
das Excel sich an den Bildschirm anpasst und die geöffnete Tabelle im Maximierten Zustand zeigt ist soweit klar.
Was ich aber erreichen möchte ist , das im Sheet "HauptMenue" der Bereich A1:Q41 sich an die Bilsschirmauflösung anpasst oder nochmal anders erklärt, auf einen...
07.03.2012 19:14:15
Thread-ID: 1254076
3 Beiträge
gefilterte Pivottabellen auf einer Seite drucken
Hendrik

Hallo
ist es möglich, gefilterte Pivottabellen aus mehreren Tabellenblättern auf einer Seite anzuordnen, um die zu drucken?
Auf einer Seite ließen sich die verschiedenen Pivottabellen schwerlich direkt einbauen, da entweder riesige Zwischenräume entstehen würden (bei Filtern) oder aber...
02.09.2013 14:36:02
Thread-ID: 1329201
2 Beiträge
Code anpassen-Zugriff auf anderes Tabellenblatt
Bon

Hallo zusammen,
ich habe ein Problem, dass für euch Experten sicher kein Problem darstellt:
Ich habe einen Code gefunden und möchte ihn nun so anpassen, dass er nicht auf das aktuelle Tabellenblatt, sondern auf ein anderes zugreift.
Der Command Button ist in Tabelle1 der Zieldatei,...
09.07.2014 15:36:13
Thread-ID: 1369523
3 Beiträge
Commandbutton Seite auf DIN A4 anpassen
Chris

Hallo Zusammen,
Ich hoffe mir kann hier jemand weiterhelfen, ich kriegs leider nicht hin :/
Mein Code im Commandbutton:
" Private Sub CommandButton1_Click() With Sheets("QKT2-1") .PageSetup.PrintArea = "$B$3:$E$10" .PrintOut .PageSetup.PrintArea = "" End With End Sub
"
Da...
18.01.2017 20:59:08
Thread-ID: 1535936
5 Beiträge
Seitenumbrüche auf alle Tabellen anwenden...?
TiloT

Hallo zusammen,
ich habe mal eine Frage die ich auch noch Recherche nicht beantworten konnte.
Ich habe eine Datei mit 13 Tabellen
Jede Tabelle ist eine Jahreskalender 2018 bis 2030
Die Tabelle 2018 ist sauber Skaliert und Seitenumbrüche sind eingefügt um jeden Monat einzeln im D...
01.11.2017 10:48:30
Thread-ID: 1588938
2 Beiträge
Tabellenfilter/ Sortierung aneinander anpassen
Joost

Moin Zusammen,
Ich habe ein Frage bezüglich Tabellenfiltern. Ich habe In meinem Exceldokument mehrere Tabellen mit exakt dem gelichen Aufbau. Ich blende alle Tabellen aus bis auf einer, sodass der Anwender des Tools nur diese sehen kann. Der Inhalt dieser Tabelle enspricht dem Inhalt einer...
02.04.2019 15:37:01
Thread-ID: 1684684
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige