Nur ausgewählte Tabellenblätter mit Inhalt drucken

Hallo!
Es geht um eine Datei, in der viele verschiedene Tabellenblätter aufgelistet sind.
Aus einer Tabelle werden Teilnehmer (max. 20) aufgelistet (inkl. allen persönlichen Daten). Nun erstellt Excel, wenn bestimmte Felder ausgefüllt sind, Urkunden für jeden einzelnen Teilnehmer (1 Teilnehmer, 1 Tabellenblatt), die ich dann drucken möchte.
Die Urkunden-Formulare sind, wenn kein Teilnehmer hinterlegt ist, völlig leer und ohne Inhalt.
Also:
Tabellenblatt: Teilnehmer (Daten)
Tabellenblatt: TN 1
Tabellenblatt: TN 2
Tabellenblatt: TN 3
...
Tabellenblatt: TN 20
Nun habe ich aber nicht immer 20 Teilnehmer, sondern manchmal nur 12, 17 oder 19 (Beispiel).
Jetzt möchte nur auf einen Button drücken und Excel druckt exakt die Anzahl der ausgefüllten Urkunden aus.
Ich habe schon einiges hin und her probiert mit Makros, leider komme ich immer nur so weit, dass er auf Button-Klick alle 20 Urkunden druckt - auch die weißen.
Kann mir jemand helfen?
Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
deine Blätetr sind wahrscheinlich nicht leer, sondern es sind Formeln mit Ergebnis "" vorhanden.
Du muss in dein Druckmakro Prüfungen auf den Inhalt einer Zelle einbauen, bei den zu druckenden Blättern immer einne Inhalt anzeigt.
Gruß
Franz

Sub DruckenUrkunde()
Dim wks As Worksheet
If MsgBox("Urkunden drucken?" & vbLf & vbLf _
& "Drucker: " & Application.ActivePrinter, vbQuestion + vbOKCancel) = vbCancel Then Exit  _
Sub
For Each wks In ActiveWorkbook.Worksheets
If Left(wks.Name, 2) = "TN" And wks.Range("C4").Value  "" Then 'Zelle ggf. anpassen _
- diese Zelle muss auf allen Blätter, die gedruckt werden sollen, ausgefüllt sein.
wks.PrintOut
End If
Next
End Sub
Sub DruckenUrkunde_ein_Druckjob()
Dim wks As Worksheet
Dim arrBlatt() As String, intBlatt As Integer
If MsgBox("Urkunden drucken?" & vbLf & vbLf _
& "Drucker: " & Application.ActivePrinter, vbQuestion + vbOKCancel) = vbCancel Then Exit  _
Sub
For Each wks In ActiveWorkbook.Worksheets
If Left(wks.Name, 2) = "TN" And wks.Range("C4").Value  "" Then 'Zelle ggf. anpassen _
- diese Zelle muss auf allen Blätter, die gedruckt werden sollen, ausgefüllt sein.
intBlatt = intBlatt + 1
ReDim Preserve arrBlatt(1 To intBlatt)
arrBlatt(intBlatt) = wks.Name
End If
Next
If intBlatt > 0 Then
ActiveWorkbook.Sheets(arrBlatt).PrintOut
End If
End Sub

Sub DruckenUrkunde_ein_Druckjob() Dim wks As Worksheet Dim arrBlatt() As String, intBlatt As Integer On Error GoTo Beenden If Application.Dialogs(xlDialogPrinterSetup).Show = False Then GoTo Beenden For Each wks In ActiveWorkbook.Worksheets If Left(wks.Name, 2) = "TN" And wks.Range("C4").Value "" Then 'Zelle ggf. anpassen _ - diese Zelle muss auf allen Blätter, die gedruckt werden sollen, ausgefüllt sein. intBlatt = intBlatt + 1 ReDim Preserve arrBlatt(1 To intBlatt) arrBlatt(intBlatt) = wks.Name End If Next If intBlatt > 0 Then ActiveWorkbook.Sheets(arrBlatt).PrintOut End If Beenden: With Err Select Case .Number Case 0 'alles OK Case 1004 'MsgBox "Druckvorgang wurde abgebrochen" Case Else MsgBox "Fehler.Nr.: " & .Number & vbLf & .Description End Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Nur ausgewählte Tabellenblätter mit Inhalt drucken

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur ausgewählte Tabellenblätter mit Inhalt drucken

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread