Auswahl von Arbeitsblättern Excel

Hallo Liebes Excel Forum,
ich stehe vor einem Problem mit einer Excel Tabelle und komme nicht weiter. Vielleicht hat hier jemand den zündenden Funken der mir weiterhilft.
Für die Kalkulation von Angebotspreisen habe ich eine Excel Tabelle aus mehreren Arbeitsblättern.
Es gibt 15 Arbeitsblätter von PB1 bis PB15. Im Arbeitsblatt "Gesamt" wird die Übersicht der einzelnen Preisblätter (PB) zusammengefasst dargestellt.
Es werden aber nur die Preisblätter angezeigt, in denen eine Berechnung/Kalkulation durchgeführt wurde.
Ist ein PB leer, wird dieses nicht weiter bearbeitet. Manchmal nutze ich für einfache Kalkulationen nur ein Preisblatt, manchmal mehrere.
Ich kann die Arbeitsmappe per Mail als PDF versenden und habe mir dazu eine VBA Routine aufgebaut.
Was ich nicht hinkriege, ist, dass ich nur die Preisblätter als PDF exportiere in denen auch ein Wert steht.
Für den PDF Export habe ich folgenden Code angewendet:
Sheets(Array("Gesamt", "Deckblatt", "Materialkostenübersicht", "PB1", "PB2", "PB3", "PB4"...., "PB15")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=AWS, _ ' AWS ist der String zum Dateinamen und Speicherpfad
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Wie lassen sich die Parameter "PB1", "PB2" usw. als Variable anwenden und nur dann mit exportieren wenn zum Beispiel in der Zelle "L14" eines Preisblattes ein Wert größer Null steht, bzw. das Blatt nicht exportieren wenn der Wert Null ist?
Liebe Grüße Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim obj_wks As Worksheet Dim bol_speichern As Boolean For Each obj_wks In ThisWorkbook.Worksheets If Left(obj_wks.Name, 2) = "PB" And obj_wks.Range("L14") "" Then bol_speichern = True ElseIf obj_wks.Name = "Deckblatt" Or obj_wks = "Gesamt" Or obj_wks.Name = "Materialkostenü _ bersicht" Then bol_speichern = True Else bol_speichern = False End If If bol_speichern = True Then obj_wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next

Dim larPBs() As String, lboNot As Boolean, liSh As Integer, liIdx As Integer ReDim larPBs(0) For liSh = 1 To Sheets.Count If Left(Sheets(liSh).Name, 2) = "PB" then For liIdx = 0 To UBound(larPBs) If Sheets(liSh).Name = larPBs(liIdx) Then lboNot = True Exit For End If Next If lboNot = True Then lboNot = False Else larPBs(UBound(larPBs)) = Sheets(liSh).Name ReDim Preserve larPBs(UBound(larPBs) +1) End If End If Next larPBs(UBound(larPBs)) = "Gesamt" ReDim Preserve larPBs(UBound(larPBs) +1) larPBs(UBound(larPBs)) = "Deckblatt" ReDim Preserve larPBs(UBound(larPBs) +1) larPBs(UBound(larPBs)) = "Materialkostenübersicht" Sheets(larPBs).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=AWS, _ ' AWS ist der String zum Dateinamen und Speicherpfad Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False

Beliebteste Forumthreads (12 Monate)

Auswahl von Arbeitsblättern Excel

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread