Tabellen selektieren mit bedinungen

Hallo,
ich möchte mit ein VBA mit ein Kriterium die Tabellen selektieren und in pdf ausgeben.
z.B ich habe verschieden Tabellen (Tabelle1 , Tabelle2 ....Tabelle6)
Nur die Tabelle welche in der Zelle F6 ein wert 0 müssen selektiert und ausgegeben.
in diesem Fall Tabelle 1 - 3 - 5 - 6 (die Werte sind nicht immer gleich)
Leider kann ich nicht den richtigen Code finden
Kann mir jemand helfen
PS ich kann kein file Uploaden ( Format xlsm oder xlsb)
Vielen Dank

Sub a3_TabelleCopy()
Dim Test As String
Test = InputBox("MM_MMMMJJ eingeben") '01_Januar19
Dim VarFileLog As Variant
VarFileLog = Descamps & ".pdf"
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
ChDir "C:\Temp\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\Tabelle_" & VarFileLog, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Tabelle1").Select
If Range("f6")  0 Then
Sheets(Array("Tabelle1", "Tabelle2")).Select
ChDir "C:\Temp\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\Test_" & VarFileLog, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Export_PDF() Dim ws As Worksheet Application.ScreenUpdating = False 'leeren des PDF_Export Blattes Worksheets("PDF_Export").Cells.Clear 'Schleife über die Blätter For Each ws In ThisWorkbook.Worksheets 'Blatt "PDF_Export" von der Schleife ausnehmen If ws.Name "PDF_Export" Then 'Prüfung ob Wert in F6 größer 0 If ws.Range("F6").Value > 0 Then 'wenn ja, kompletten Bereich kopieren ws.UsedRange.Copy 'kopierten Bereich ins Export Blatt einfügen, nur Werte With Worksheets("PDF_Export") .Cells(.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row, 1).PasteSpecial _ Paste:=xlPasteValues Application.CutCopyMode = False End With End If End If Next ws 'hier dann das Blatt PDF_Export als PDF exportieren End Sub

Public Sub Export_PDF() Dim ws As Worksheet Application.ScreenUpdating = False 'leeren des PDF_Export Blattes Worksheets("PDF_Export").Cells.Clear 'Schleife über die Blätter For Each ws In ThisWorkbook.Worksheets 'Blatt "PDF_Export" von der Schleife ausnehmen If ws.Name "PDF_Export" Then 'Prüfung ob Wert in F6 größer 0 If ws.Range("G33").Value 0 Then 'wenn ja, kompletten Bereich kopieren ws.Range("A1:H52").Copy 'ws.UsedRange.Copy 'kopierten Bereich ins Export Blatt einfügen, nur Werte With Worksheets("PDF_Export") .Cells(.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row, 1).PasteSpecial _ Paste:=xlPasteValues Application.CutCopyMode = False End With End If End If Next ws 'hier dann das Blatt PDF_Export als PDF exportieren End Sub

Public Sub Export_PDF() Dim ws As Worksheet, wksZiel As Worksheet Application.ScreenUpdating = False 'Zielblatt festlegen Set wksZiel = ThisWorkbook.Worksheets("PDF_Export") 'leeren des PDF_Export Blattes wksZiel.Cells.Clear 'Schleife über die Blätter For Each ws In ThisWorkbook.Worksheets 'Blatt "PDF_Export" von der Schleife ausnehmen If ws.Name "PDF_Export" Then 'Prüfung ob Zahl in G33 If IsNumeric(ws.Range("G33")) Then 'Prüfen ob Zahl ungleich 0 If ws.Range("G33").Value 0 Then 'wenn ja, kompletten Bereich kopieren 'und im Zielblatt einfügen ws.Range("A1:H52").Copy _ wksZiel.Cells(wksZiel.Cells(wksZiel.Rows.Count, 1) _ .End(xlUp).Offset(1).Row, 1) End If End If End If Next ws 'hier dann das Blatt PDF_Export als PDF exportieren End Sub

Hallo Werner,
vielen Dank
aber irgendwie funktioniert nicht
es werden die Bilder Kopiert und der Text wird überschrieben
https://www.herber.de/bbs/user/127886.xlsb
Es sollen die Tabellen 14+13+12 kopiert auf PDF_Export Tabelle
(dann in pdf ausgedruckt 1 File mit 3 Seiten)
Ich konnte jede Tabelle in pdf ausgeben
Sheets("Tabelle12").Select
If Range("g33") 0 Then
Sheets("Tabelle12").Select
ChDir "C:\Temp\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\Test_" & VarFileLog, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
Ich möchte aber die 3 pdf zusammenführen
Vielleicht kann man alle pdf welche in C/Temp sich befinden mit ein VBA zusammenführen
Viele Grüße
Giuppy

Sub PDF_Export() Dim MyWorkbookName As String MyWorkbookName = ActiveWorkbook.Name MyWorkbookName = Left(MyWorkbookName, Len(MyWorkbookName) - 5) Dim I As Integer Dim ii Dim arr ReDim arr(1) For I = 1 To Sheets.Count If Sheets(I).Range("G33") 0 Then 'If Sheets(I).Visible Then ReDim Preserve arr(ii) arr(ii) = Sheets(I).Name ii = ii + 1 End If Next I Sheets(arr).Select Sheets(1).Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyWorkbookName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

Beliebteste Forumthreads (12 Monate)

Tabellen selektieren mit bedinungen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen selektieren mit bedinungen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread