Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon CBP vom 05.07.2019, 14:51 Options

Wie lässt man Excel nur ausgefüllte Registerseiten ausdrucken?

Ich habe eine Excel Arbeitsmappe mit ca 60 Registerseiten geschrieben. Diese Mappe ruf ich mir dann als Vorlage auf und schreibe auf einzelne Registerseiten, je nach Bedarf, einzelne Daten hinzu. Wenn ich dann drucken will, würde ich gerne dass Excel "Automatisch" nur die Seiten (Registerseiten) ausdruckt, in die ich Daten geschrieben habe.
Wie könnt das klappen ????? Hilfe.. :o)

Antwort schreiben

Antwort 1 von nighty vom 05.07.2019, 15:45 Options

hi all :-)

eine variante

gruss nighty

einzufuegen alt+f11/projektexplorer/DeineArbeitsMappe

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim SammelSheets As String
Dim ShIndex As Integer
For ShIndex = 1 To Sheets.Count
If VarInex(ShIndex) = True Then SammelSheets = SammelSheets & Worksheets(ShIndex).Name & ","
Next
If SammelSheets <> "" Then
SammelSheets = Mid(SammelSheets, 1, Len(SammelSheets) - 1)
Worksheets(Split(SammelSheets, ",")).Select
End If
End Sub

einzufuegen alt+f11/projektexplorer/DeineArbeitsMappe

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
VarInex(ActiveSheet.Index) = True
End Sub

einzufuegen alt+f11/projektexplorer/AllgemeinesModul

Public VarInex(256) As Boolean

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken