ich habe mal wieder ein VBA-Problem.
In meiner Datei sind mehrere Tabellenblätter vorhanden, die in der Fußzeile über eine Seitenzahl verfügen. Beim Drucken habe ich bezüglich der Seitenzahlen zwei Möglichkeiten:
a) Wenn ich zum Drucken Blätter als Array zusammen fasse, werden die Seitenzahlen beim Drucken blattübergreifend ausgegeben.
b) Druck ich die Tabellen einzeln, sind die Seitenzahlen logischerweise nicht blattübergreifend.
In meiner Datei habe ich eine Userform, mit der ich meine Blätter auswählen und dann über einen auszuwählenden Drucker drucken kann (habe ich im Netz gefunden, siehe auch Beispieldatei). Leider druckt der Code gemäß b).
Kann mir jemand folgenden Code so ändern, dass die Auswahl in der Userform als Array erfasst und damit blattübergreifende Seitenzahlen ausgibt.
Private Sub CommandButton4_Click()
Me.Hide
End Sub
Private Sub UserForm_Activate()
Dim sh As Worksheet
Set wb = ActiveWorkbook
ListBox1.Clear
NichtAusführen = True
For Each sh In ActiveWorkbook.Worksheets
'hier die Blätter eintragen, die nicht aufgelistet werden sollen
If sh.Name "Druck" Then _
ListBox1.AddItem sh.Name
Next
ListBox1.ListIndex = 0
'ListBox1.Height = 4 + 13 * ListBox1.ListCount
NichtAusführen = False
End Sub
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set wb = ActiveWorkbook
ListBox1.Clear
NichtAusführen = True
For Each sh In ActiveWorkbook.Worksheets
If sh.Name "Druck" Then _
ListBox1.AddItem sh.Name
Next
'ListBox1.Height = 4 + 13 * ListBox1.ListCount
NichtAusführen = False
End Sub
Private Sub CommandButton3_Click()
Dim iTable As Integer, bPrinted As Boolean
Dim x As Variant
x = Application.Dialogs(xlDialogPrinterSetup).Show
If x = True Then
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
Sheets(ListBox1.List(iTable)).PrintOut
End If
Next iTable
If Not (bPrinted) Then MsgBox "Es ist kein Tabellenblatt zum Drucken gewählt!"
End If
'nachfolgend auskommentiert, damit beim Schließen der Userform Excel nicht verschwindet _
(gem. Netz)
'Application.Visible = False
End Sub
Hier die Beispieldatei mit den Codes: https://www.herber.de/bbs/user/72770.xls
Vielen Dank im Voraus an alle Hilfsbereiten ... und darüberhinaus ein schönes Fest und guten Rutsch.
Tobias