Hallo Excel Freunde,

ich erstelle mit diesem Makro.

'---------------------------------------------------------------------------------------------------------
With Tabelle1
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
End If
End With
'Tabelle1.Range("$A$5:$g$5").AutoFilter Field:=7, Criteria1:=""
Tabelle1.Range("$A$5:$g$5").AutoFilter Field:=7, Criteria1:="falsch", Operator:=xlFilterValues

'-------------------------------------------------------------------------

Dim sFileName$, sPfad$


sFileName = ActiveWorkbook.Name

Sheets("tabelle1").Range("A1:G200").Select ' Wähle den gewünschten Bereich aus

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=sFileName, OpenAfterPublish:=True
On Error GoTo 0

Beep
'----------------------------------------------------------------------------------------------------------------------------------------------------
eine PDF Datei. Nun möchte ich dies gern diese PDF aus einem anderen ( nicht dem Aktiven) Tabellenblatt erstellen.

Kann jemand dieses so umgestalten das ich nicht immer erst zum Tabellenblatt 1 wechseln muss?

Habt schon mal im Voraus besten dank für eurer Interesse

mfg thomas