Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Drucken in UF mit Ausgeblendeten Blättern

Forumthread: Drucken in UF mit Ausgeblendeten Blättern

Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:45:50
Heinz
Hallo Leute
Gibt es eine Möglichkeit auch aus einer UF Blätter auszudrucken,wenn diese Ausgeblendet sind ?
Blätter heissen genau so wie in den CheckBoxen.
Also 311,312A usw.
Danke,Heinz

Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
Unload Me
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:58:28
Dieter
Hi,
ausgeblendete Blätter können nicht gedruckt werden.
mfg Dieter
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 21:01:15
Heinz
Hallo Dieter
Danke für Deine Antwort.
Na Schade dann muss ich halt alle eingeblendet lassen.
Danke & Gruss,Heinz
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 21:18:05
PeterW
Hallo Heinz,
schalte die Bildschirmaktualisierung )Application.ScreenUpdating = False) aus, blende die Blätter ein, drucke sie, blende sie wieder aus und schalte die Bildschirmaktualisierung wieder ein ( = True).
Gruß
Peter
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 21:14:42
Reinhard
Hi Heinz,
wieso das denn? Blende sie doch alle vor den If-Abfragen ein (hidden oder visible, verwechsle das immer*g, siehe in der Hilfe nach), dann druckst du aus, dann versteckst du sie wieder mit "xlveryhidden".
Und application.screenupdating=false bzw am Codeende =true benutzen.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 21:29:01
Heinz
Hallo Reinhard
Habe unteren Code geändert,habe wahrscheinlich irgendwo Blödsinn gemacht.
Könntest Du mir da bitte weiterhelfen?
Danke,Heinz

Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
Application.ScreenUpdating = False
Application.Visible
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
Unload Me
Application.xlVeryHidden
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
25.02.2006 01:35:36
Reinhard
Hi Heinz,
Option Explicit
Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
Dim n
Application.ScreenUpdating = False
For n = 1 To ThisWorkbook.Worksheets.Count
Worksheets(n).Visible = True
Next n
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
For n = 1 To Worksheets.Count
'wiedereinblenden geht nur mit vba, ansonsten Worksheets(n).Visible = false
Worksheets(n).Visible = xlVeryHidden
Next n
Unload Me
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
25.02.2006 06:05:21
Heinz
Hallo Reinhard
Recht herzlichen Dank,für Deine Hilfe !!!
Gruss,Heinz

Forumthreads zu verwandten Themen

Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 07:59:45
Thread-ID: 1024010
2 Beiträge
Summieren in Listen mit ausgeblendeten Zeilen
Rudi

Hallo Excel-Forum.
ich habe eine Excel-Liste mit ausgeblendeten Zeilen (nicht gefilter!). Gibt es für das Summieren der angezeigten Zeilen auch eine Funktion?
Gruß Rudi
29.06.2009 11:24:38
Thread-ID: 1085012
2 Beiträge
Hyperlinks von ausgeblendeten Tabellenblättern
ausgeblendeten

Hallo zusammen,
ich habe ein Excel Dokument, mit mehreren ausgeblendten Tabellenblättern. [worksheets("a").visible = false]
Auf einem (eingeblendeten) Tabellenblatt listet ein Makro alle vorhandenen Tabellenblätter auf und wandelt diese Liste in Hyperlinks um.
Wenn ich solch einen...
15.09.2009 18:50:23
Thread-ID: 1103014
3 Beiträge
find match in ausgeblendeten Zeilen
chris

Hallo Spazialisten,
ich bekomme es einfach nicht hin und bitte euch um Hilfe.
Ich habe eine Datei.In dieser sind 2 Sheets.
In dieser stehen in sheet 1 Nummen die auch in Sheet zwei auftauchen.
Ich blende jetzt alle Zeilen aus in Sheet 2
ws2.Rows("6:50000").EntireRow.Hidden =...
22.02.2010 12:14:41
Thread-ID: 1140259
9 Beiträge
Anzeige
druck von ausgeblendeten Arbeitsblättern
ausgeblendeten

Hallo,
da mein Excel Wissen, und vor allem die Makroprogramierung doch zumindest leicht eingerostet sind bräuchte ich eure Hilfe.
Wie mach ich, dass dieses Makro auch funktioniert wenn ich die zu druckenden Blätter ausblende.
Private Sub Antrag_Click() Worksheets(Array("3. Antrag",...
24.06.2010 12:04:53
Thread-ID: 1163821
3 Beiträge
SVERWEIS in ausgeblendeten Zellen
trompete

Hallo nochmal und alle Genie's
mit der freundlichen Unterstützung von Hary habe ich eine Code bekommen der mir, in Anbhängigkeit vom Inhalt einer bestimmten Zelle, eine Bereich vordefinierter Zeilen ausblendet. Soweit so gut, nur habe ich jetzt im dem Bereich der auszublenden Zeilen einen S...
26.09.2010 22:07:54
Thread-ID: 1179463
4 Beiträge
Problem mit ausgeblendeten Zellen
Matthias

Hallo
Ich habe einen Katalog der zum jeweiligen Artikel ein Bild läd.
Die Bildnummer steht in eimem Bereich in dem die Zellen ausgeblendet sind.
Beim Abfragen mit .Value bekomme ich die Bildnummer geliefert und .Text nicht.
Blende ich die Zellen ein geht es auch mit .Text.
W...
08.11.2010 16:14:14
Thread-ID: 1185697
2 Beiträge
Suchen in ausgeblendeten Spalten
Gregor

Hallo
Diese Frage wurde im Forum 2005 gestellt, jedoch ohne Antwort. Bei folgendem Code
Spalte_Eigner = .Rows(1).Find(What:="Eigner", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Column
...
12.04.2011 13:52:58
Thread-ID: 1209991
5 Beiträge
Anzeige
Suchen in ausgeblendeten Spalten
Florian

Hallo Experten,
ich suche mit VB wie folgt:
-----
With ActiveSheet.Range("b:b")
Set zelle = .Find(suchwert, lookin:=xlValues)
End With
-----
Soweit, so gut... nur leider ist bei mir die Spalte B (also der Suchbereich) eine ausgeblendete Spalte!
Das Makro...
24.05.2002 11:52:19
Thread-ID: 123347
2 Beiträge
Sicherung bei einem ausgeblendeten Tabellenblatt
chris58

Kann leider den Tread nicht mehr aufmachen. Habe daher die letzte Antwort hier reinkopiert.
Hallo Reinhard !
Wenn ich das
if Sheets(i).visible=true Then Sheets(i).copy
eingebe, dann sichert er mir zwar, aber die Datei wird geschlossen.
........................................
04.07.2011 13:10:38
Thread-ID: 1220811
8 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum