Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenansicht alle Tabellen

Forumthread: Seitenansicht alle Tabellen

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.SelectedSheets.PrintPreview
End Sub

nun habe ich aber immer ander Tabellennamen und eine wechselnde Anzahl von Tabellen. Wie kann ich dies lösen.
Speziell: Es hat viel Tabellen, die ausgeblendet sind. Diese sollen nicht in der Setienansicht erscheinen.
Grüsschen aus der Schweiz
Martin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Seitenansicht alle Tabellen
14.12.2010 12:18:38
Rudi
Hallo,
so: 
Sub ttt()
Dim strSheets As String, wks As Worksheet
For Each wks In Worksheets
If wks.Visible Then
If strSheets = "" Then
strSheets = wks.Name
Else
strSheets = strSheets & "," & wks.Name
End If
End If
Next
Sheets(Split(strSheets, ",")).PrintPreview
End Sub

Gruß
Rudi
Anzeige
AW: Seitenansicht alle Tabellen
15.12.2010 14:07:57
Martin
Danke Rudi hat gut geklappt und sorry wollte eingendlich nur einmal posten
Hier aber noch eine kleine weitere Frage:
Ich möche nun mit der gleichen Methode PDF's erstellen.
Sub PDF()
Dim strSheets As String, wks As Worksheet
For Each wks In Worksheets
If wks.Visible Then
If strSheets = "" Then
strSheets = wks.Name
Else
strSheets = strSheets & "," & wks.Name
End If
End If
Next
Sheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Dokumente und Einstellungen\ _
mulmer\Desktop\Offerten-JELD-WEN-20111.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Irgenwie ist aber das falsch . . .
Anzeige
AW: Seitenansicht alle Tabellen
15.12.2010 15:41:38
Rudi
Hallo, 
Ich möche nun mit der gleichen Methode PDF's erstellen.

keine Ahnung wie das geht.
Du solltest dich aber an meinen Code halten und .PrintPreview durch das ExportAsFixedFormat-Geraffel ersetzen. Vielleicht klappt's ja.
Gruß
Rudi
Anzeige
AW: Seitenansicht alle Tabellen
16.12.2010 10:08:57
Martin
Danke für deine hilfe hat mit deinem Code geklappt, richtig kopieren wirkt Wunder . . . ;-)
;

Forumthreads zu verwandten Themen

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...
11.09.2009 13:11:25
Thread-ID: 1101830
2 Beiträge
Anzeige
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
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
Anzeige
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
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
Anzeige
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