Auswahl Tabellenblätter aus Range markieren
Jockel
ich erzeuge mit per VBA Makro ein PDF:
Sub PDF()
Sheets("DECKBLATT").Select
Dim mySheets(), wks As Worksheet, n As Integer
ReDim mySheets(1 To Worksheets.Count - 8)
For Each wks In Worksheets
Select Case UCase(wks.Name)
Case "QUELLE", "TEMPLATE01", "TEMPLATE02", "TEMPLATE03", "TEMPLATE04", "TEMPLATE05", " _
TEMPLATE06", "TEMPLATE07"
Case Else
n = n + 1
mySheets(n) = wks.Name
End Select
Next
Sheets(mySheets).PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
End Sub
Hier sollen alle Tabellenblätter in das PDF komnmen, die nicht "QUELLE", "TEMPLATE01", "TEMPLATE02 ...... sind.
das Funktioniert soweit.
Nun will ich ein PDF erzeugen, bei dem nur eine bestimmte Auswahl an Tabellenblätter in Frage kommt.
Die Namen der Tabellenblätter stehen im Tabellenblatt "Auswahl" in Range G7:G20 drin.
Wie kann ich alle Tabellenblätter, deren Namen sich in diesem Range befinden, markieren und dann wieder als PDF an den Druckertreiber (wie oben) senden.
Danke schon mal für Eure Hilfe
Gruß
Jockel