Mehrere Tabellenblätter per VBA aus Auflistung in einem anderen Tabellenblatt auswählen und...

Hallo Olaf,

im Code wird nach kleine "x" abgefragt. Falls du in der Tabelle große "X" hast, ändere das im Code.

Claus

Hallo Claus,

...nicht alle. Bei meinem Beispiel T1 und T3 da ja nur die ein "X" in Spalte B haben.

Aber das hast Du sicher so gemeint.

Mein Problem.

Ich erhalte nach Einbau und Ablauf die Fehlermeldung:

Laufzeitfehler '13'

Typen unverträglich

gehe ich auf debuggen ist die Zeile:

Sheets(varTMP).copy gelb markiert

Außerdem läuft das Makro danach noch weiter und bezieht sich auf Tabellenblätter die NICHT markiert wurden. Diese sind durch die Selektierung hoffentlich nicht verloren gegangen. Sonst

habe ich gleich das nächste Problem.

Sorry. Aber ich hatte gedacht die Lösung wäre ganz simpel. Das dass so schwierig wird, hätte ich

nicht gedacht...

Vielen Dank für Deine Geduld und Deine Bemühungen.

Olaf

Hallo Claus,

vielen Dank aber wahrscheinlich bin ich zu doof.

nachfolgend habe ich mal einen Versuchsaufbau gestrickt.

Vielleicht kannst Du deine Befehle genau auf diese Angaben abstimmen,

dann bekomme ich es bestimmt auch hin, diese auf meine Tabelle anzupassen.

Als Dateinamen nehmen wir mal Testdatei.xls

(wenn Du mir eine andere Dateiform vorschlägst, nehme ich auch die. Also z.B.
*.xlsx oder *.xlsm)

Als Verzeichnis, im dem sich die Datei Testdatei befindet und in das anschließend auch die

PDF soll: C:\Daten

Die Register/Tabellenblätter heißen:

Datei (darin befindet sich die Auflistung [siehe Tabelle unten])

T1

T2

T3

T4

Im Register/Tabellenblatt Datei ist nun folgende Tabelle:

[table][tr][td] [/td][td]A[/td][td]B[/td][/tr][tr][td]1[/td][td]Tabellenname[/td][td]drucken?[/td][/tr][tr][td]2[/td][td]T1[/td][td]x[/td][/tr][tr][td]3[/td][td]T2[/td][td] [/td][/tr][tr][td]4[/td][td]T3[/td][td]x[/td][/tr][tr][td]5[/td][td]T4[/td][td] [/td][/tr][/table]

Es sollen also die Tabellenblätter T1 und T3 zu einer PDF umgewandelt werden.

(Anmerkung: die Tabellenblätter T1 bis T4 sind teilweise schreibgeschützt. Wenn das

ein Problem darstellt, kann ich diesen Schreibschutz [nehmen wir als Passwort hier

einmal das beliebte Passwort an] aber vorher selbst aufheben)

Könntest Du Deine Formeln bzw. Befehle auf genau dieses Beispiel anpassen?

Vielen Dank im Voraus

Olaf

Hallo Olaf,

wenn du eine Fehlermeldung beim Kopieren bekommst, stimmen deine Blattnamen nicht mit den Namen in Druck überein. Kontrolliere mal auf führende oder nachfolgende Leerzeichen.

Einen VBA-Code testet man immer an einer Kopie der Mappe!

Wenn du das nicht mit VBA hinbekommst, selektiere die gewünschten Blätter mit gedrückter STRG-Taste => Verschieben/Kopieren => In neue Arbeitsmappe => Kopie erstellen und speichere dann diese neue Arbeitsmappe als PDF => Optionen => Gesamte Arbeitsmappe.

Claus

Hallo Olaf,

du willst also alle Blätter in einer PDF-Datei speichern?

Dann musst du die ausgewählten Blätter in ein neues Workbook kopieren und dann die komplette Mappe als PDF drucken:

Sub Test()

Dim varSh As Variant, varTmp() As Variant

Dim i As Integer, n As Integer

Dim Pfad As String, FN As StringPfad = ThisWorkbook.Path & "\"

'Hier die Dateiendung deiner Excel-Datei anpassen

FN = Replace(ThisWorkbook.Name, ".xls", "")varSh = Sheets("Druck").Range("A1:B10")

For i = LBound(varSh) To UBound(varSh)

   If varSh(i, 2) = "x" Then

      ReDim Preserve varTmp(n)

      varTmp(n) = varSh(i, 1)

      n = n + 1

   End If

Next

Sheets(varTmp).Copy

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

   Pfad & FN & ".pdf", Quality:=xlQualityStandard, _

   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

   False

ActiveWorkbook.Close savechanges:=False

End Sub

Claus