Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur bestimmte Blaetter per VBA drucken

nur bestimmte Blaetter per VBA drucken
11.08.2014 10:31:14
Andreas
Hallo,
ich habe eine Arbeitsmappe mit x Blaettern und manche von denen sind ausgeblendet.
Ich habe eine userform mit einer druckerauswahl. Nun moechte ich gerne die ausgeblendeten Blaetter mit CommandButton1 ausdrucken, aber nur wenn diese in Zelle "A4" Daten enthalten.
Kann mir vielleicht jemand bei dem fehlenden Code helfen? Leider reichen meine VBA Kenntnisse nicht, um mit Loop in ein Array die ausgeblendeten mit Daten in A4 zu schreiben.
Vielen Dank,
Andreas
Hier die Datei. Ich habe Kommentar an die Stelle gesetzt wo ich nicht weiter komme.
https://www.herber.de/bbs/user/92011.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur bestimmte Blaetter per VBA drucken
11.08.2014 10:53:45
Daniel
Hi
Im Prinzip so: 
dim sh as Worksheet
For each sh in activeworkbook.worksheets
if sh.visible  xlsheetvisible then if sh.cells(4, 1)  "" then sh.printout
Next
Gruß Daniel

das will ich sehen, ...
11.08.2014 11:07:55
Rudi
Hallo,
... wie du ein ausgeblendetes Blatt druckst.
Gruß
Rudi

Ausgeblendete...
11.08.2014 11:10:50
Case
Hallo, :-)
... Tabellenblätter müssen zum ausdrucken erst eingeblendet werden - dann einfach wieder ausblenden.
Servus
Case

AW: Ausgeblendete...
11.08.2014 11:27:40
Andreas
Ich glaube ich lasse die Blaetter eingeblendet, da ich nicht herausfinde, wie man alle ausgeblendete Blaetter aktualisiert (sie werden bei Aktivierung automatisch mit Daten gefuellt).
Das Drucken von sichtbaren Blaettern in Abhaengigkeit zum Inhalt der jeweiligen Zellen A1 klappt!
Danke

Anzeige
AW: Ausgeblendete...
11.08.2014 11:31:43
fcs
Hallo Andreas,
hier ein angepasster Code für die Schaltfläche.
Es werden alle zutreffenden ausgeblendeten Blätter eingeblendet, in einem Druckjob gedruckt und wieder ausgeblendet.
Gruß
Franz 
Private Sub CommandButton1_Click()
Dim sOldPrinter As String
Dim arrSheets() As String, intSh As Integer
Dim wks As Worksheet, sheetAktiv As Object
sOldPrinter = Application.ActivePrinter ' Alten Drucker merken
Set sheetAktiv = ActiveSheet 'aktives Blatt merken
On Error GoTo Fehler:
If ComboBox1.ListIndex = -1 Then
MsgBox "Kein Printer gewählt", vbExclamation
Exit Sub
End If
'############################################################################################### _
'hier sollen ausgeblendete Blaetter gedruckt werden, aber nur wenn in den jeweiligen Blaettern  _
in "A4" Daten existieren
For Each wks In ActiveWorkbook.Worksheets
If wks.Visible  xlSheetVisible Then
If wks.Range("A4")  "" Then
intSh = intSh + 1
ReDim Preserve arrSheets(1 To intSh)
arrSheets(intSh) = wks.name
wks.Visible = xlSheetVisible
End If
End If
Next
If intSh > 0 Then
ActiveWorkbook.Sheets(arrSheets).PrintOut , , , , ComboBox1.Text ' auf den gewünschten  _
Drucker drucken
Else
MsgBox "Keine ausgeblendeten Blätter mit Wert in A4 gefunden"
End If
'############################################################################################### _
Aufraeumen:
'gedruckte Blätter wieder ausblenden
If intSh > 0 Then
For intSh = 1 To UBound(arrSheets)
ActiveWorkbook.Sheets(arrSheets(intSh)).Visible = xlSheetHidden
Next
End If
sheetAktiv.Activate 'gemerktes Blatt wieder aktivieren
Application.ActivePrinter = sOldPrinter ' Wieder zurücksetzen
Unload Me  'Userform schließen
Exit Sub
Fehler:
MsgBox Err.Description
Resume Aufraeumen
End Sub

Anzeige
AW: Ausgeblendete...
11.08.2014 11:41:48
Andreas
Wow
vielen Dank Franz,
das hilft mir schon einmal sehr mich in VBA reinzufuchsen.
Super Danke!

302 Forumthreads zu ähnlichen Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 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
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
Drucken nicht zusammenhängender Bereiche
reiner

Hallo Leute,
ich will auf der Vorderseite eines Blattes die mit "Bereich 1" und "Bereich 2" bezeichneten Zellbereiche drucken.
Auf der Blattrückseite soll "Bereich 3" sowie "Bereich 4" von Tabelle2 untereinander gedruckt werden.
Ist es überhaupt möglich Tabellenblatt-übergreifend D...
10.06.2009 14:24:46
Thread-ID: 1080504
3 Beiträge
2D - Array aber nur bestimmte Spalten einlesen
Axel

Hallo,
ich möchte ein Datenblatt einlesen. Dieses besteht aus 1800 Zeilen und 9 Spalten.
Diese lesen ich in einen Variant ein. Dim Daten As Variant Daten = Worksheets("Tabelle1").Range("A3:I1874")
allerdings brauche ich die Spalte H nicht. Meiner Meinung nach habe ich jetzt zwei Mö...
04.09.2009 11:44:00
Thread-ID: 1100595
9 Beiträge
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
22
11
3
6
7
5
2
8
29
1
7
8
7
2
1
4
1
2
4
1
9
3
2
4