Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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 . . . ;-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige