Supportnet / Forum / Tabellenkalkulation

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)

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

• Tabelle als pdf speichern UND ausdrucken
• Aus excel Datei Adressetiketen importieren?
• formular drucken
• Excel Druck markierter Arbeitsblätter