in bestimmter Reihenfolge drucken
02.10.2014 09:39:38
Matthias
Hallo Wissende,
ich habe folgenden Code, dieser soll in der von mir bestimmten Reihenfolge
Tabellenblätter einer Mappe ausdrucken, er macht es aber nicht, was mach ich
falsch??
Sub DruckenEigeneReihenfolge()
Dim Blätter, namen(), Original()
Blätter = Array("22", "58", "NAT") 'gewünschte Reihenfolge
ReDim namen(UBound(Blätter))
ReDim Original(UBound(Blätter))
'Blattnamen der gewünschten Reihenfolge ermitteln
'Originalreihefolge speichern,
For t = 0 To UBound(Blätter)
namen(t) = Sheets(Blätter(t)).Name
Original(t) = Sheets(t + 1).Name
Next
'Blätter umsortieren
For t = 0 To UBound(Blätter)
Sheets(namen(t)).Move before:=Sheets(t + 1)
Next
'Blätter in geänderter Reihenfolge ausdrucken :
Sheets(namen()).PrintOut , , , False
'Ursprüngliche Reihenfolge wieder herstellen
For t = 1 To UBound(Blätter)
Sheets(Original(t)).Move after:=Sheets(Original(t - 1))
Next
End Sub
SGMatthias