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

Ausgeblendete Tabellen Drucken VBA

Forumthread: Ausgeblendete Tabellen Drucken VBA

Ausgeblendete Tabellen Drucken VBA
20.11.2014 14:00:36
BER
Hallo Leute,
ich hab es ja hinbekommen das die schaltfläche sichbar wird für die ausgeblendeten Tabellen gerade versucht zu drucken das geht leider nicht :(
die vorschau geht ebenfalls nicht aber das drucken ist mir wichtiger....
hier die datei mit dem VBA geht es mit nem code das man einblendet druckt udn wieder ausblendet anhand dem code in meiner datei ?!?
LG
https://www.herber.de/bbs/user/93911.xls

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Tabellen Drucken VBA
20.11.2014 14:54:01
Rudi
Hallo, 
Sub Drucken(Optional Vorschau As Boolean = False)
Dim Blaetter(), j%, i%, wks
Dim arrSheets()
ReDim arrSheets(1 To Sheets.Count, 1 To 2)
j% = 0
For i = 1 To Sheets.Count
arrSheets(i, 1) = Sheets(i).Name
arrSheets(i, 2) = Sheets(i).Visible
Next i
Set wks = ActiveSheet
For i = 0 To Me.ListBox_Tabellen.ListCount - 1
If Me.ListBox_Tabellen.Selected(i) = True Then
j = j + 1
ReDim Preserve Blaetter(1 To j)
Blaetter(j) = Me.ListBox_Tabellen.List(i, 0)
Sheets(Blaetter(j)).Visible = xlSheetVisible
End If
Next
Me.Hide
If Me.OB_Druck_gruppiert = True Then
If Vorschau = True Then
ActiveWorkbook.Sheets(Blaetter).PrintPreview
Else
ActiveWorkbook.Sheets(Blaetter).PrintOut
End If
Else
For i = LBound(Blaetter) To UBound(Blaetter)
If Vorschau = True Then
ActiveWorkbook.Sheets(Blaetter(i)).PrintPreview
Else
ActiveWorkbook.Sheets(Blaetter(i)).PrintOut
End If
Next i
End If
wks.Select
For i = 1 To UBound(arrSheets)
Sheets(arrSheets(i, 1)).Visible = arrSheets(i, 2)
Next
End Sub

Gruß
Rudi

Anzeige
So macht es eben der Profi... ;-)) owT
20.11.2014 16:02:33
robert

AW: So macht es eben der Profi... ;-)) owT
21.11.2014 08:38:01
BER
wow super, das ist Perfekt zeigt unsichtbare tabellen als vorschau an und alles genau was ich haben wollte :)
das kann nur ein Profi sein ;)
Vielen Lieben dank !!!!

Forumthreads zu verwandten Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
mehrere ausgeblendete Blätter auf einmal
Jakob

Hallo,
wie kann man in Excel mehrere bzw. alle ausgeblendete Blätter auf einmal einblenden?
Gruß,
Jakob
03.09.2008 17:27:04
Thread-ID: 1007177
4 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
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 06:59:45
Thread-ID: 1024010
3 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Anzeige
Rechnen ohne Ausgeblendetes
Klemens

Hallo,
wenn ich eine Funktion benutze (z. B. SUMME), werden Werte, die in ausgeblendeten Zeilen oder Spalten stehen, in die Berechnung einbezogen. Wie kann ich dies verhindern?
mfg
Klemens Baake
20.11.2008 11:28:51
Thread-ID: 1026351
6 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
kkleinste (ohne ausgeblendete Spalten)
Rainer

Hallo,
suche nach einer Möglichkeit, kkleinste jedoch ohne Berücksichtigung ausgeblendeter SPALTEN zu nutzen.
Habe in einem anderen Forum schon gepostet und bekam nur die Funktion TEILERGEBNIS mitgeteilt. Diese wiederrum klappt wohl nur mit Zeilen. Deshalb habe ich weiter gesucht und bi...
07.02.2009 19:33:00
Thread-ID: 1048127
14 Beiträge
Diagramm-Datenquelle ausgeblendet
Alex

Hallo an alle,
ich habe eine Frage:
auf meinem Tabellenblatt habe ich einige Diagramme erstellt, die ich per Makro ein und ausblenden kann.
Die Datenquelle befindet sich ebenfalls auf diesem Sheet, nur viel weiter rechts.
Problem: Ich möchte die Daten rechts gern ausgeblendet ha...
01.03.2009 23:43:48
Thread-ID: 1055391
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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