Mehrere Tabellenblätter markieren

Hallo,

ich stehe leider derzeit auf dem Schlauch. Ich hab eine Excel Datei mit 52 Tabellenblättern als Kalenderwochen (von 1 bis 52 nummeriert). Zusätzlich hab ich dann noch ca 20 weitere Tabellenblätter mit richtigen Namen.

Die aktuelle Kalenderwoche wird ausgelesen und als String als KWPDF gespeichert.

Jetzt möchte ich, dass Excel alle Kalenderwochen von der aktuellen Kalenderwoche bis zur Kalenderwoche 52 alle markiert und dann alle als eine einzige PDF Datei speichert.

Ich hab es bisher so probiert:

Dim m As Integer
Dim arrSH(1 to 52) As Variant

KWPDF = Kalenderwoche_berechnen(Date)

Fit m = KWPDF to 52
arrSH(m) = m
Next
Worksheets(arrSH).Select

Und danach kommt quasi noch Selection.ExportAs blablabla

Leider bekomm ich immer die Fehlermeldung Index außerhalb des gültigen Bereichs bei arrSH(m) = m

Könnt ihr mir irgendwie weiterhelfen??

Danke vorab?

LG Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim m As Integer Dim arrSH() As String Dim KWMax as Long KWMax = CLng(Format("31.12." & Year(Date), "ww")) KWPDF = CLng(Date, "ww")) Redim arrSH(KWPDF TO KWMax) FOR m = KWPDF to KWMax arrSH(m) = CStr(m) Next Worksheets(arrSH).Select

Public Sub test() Dim lngZähler As Long Dim arrSH() As String Dim lngAb As Long Dim lngMAX As Long Dim wb As Workbook 'FEHLT !! 'KWPDF = Kalenderwoche_berechnen(Date) lngMAX = 7 lngAb = 1 ReDim arrSH(lngMAX - lngAb) Set wb = ThisWorkbook For lngZähler = 0 To UBound(arrSH) arrSH(lngZähler) = wb.Worksheets(lngAb + lngZähler).Name Next lngZähler Sheets(arrSH).Select Sheets(arrSH(0)).Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ wb.Path & "\PDFExportAlleBlätter.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub

Sub Unit() Dim currentWeek As Integer, maxWeek As Integer, i As Integer Dim arrSH() As String, Sh As Object currentWeek = DatePart("ww", Date) maxWeek = Application.Max(52, DatePart("ww", DateSerial(Year(Date), 12, 31))) For Each Sh In Sheets If IsNumeric(Sh.Name) Then If Int(Sh.Name) >= currentWeek And Int(Sh.Name) = maxWeek Then ReDim Preserve arrSH(i) arrSH(i) = CStr(Sh.Name) i = i + 1 End If End If Next Sheets(arrSH).Select End Sub

du kannst es über eine Hilfstabelle sag mal am elegantestes lösen...

du lädst nach und nach alle Daten die du in eine
PDF willst,
chronologisch in eine neue Tabelle, merkst die Start Zeile und Spalte
merkst die End Zeile und Spalte

markierst die und machst daraus eine PDF..
danach löscht die Tabelle wieder..

Das ist natürlich ein "Umweg" aber hat
a) den Vroteil, das du keine Daten in den Tablellenblättern änderst, sie nur "kopierst"
b) du das Design entsprechend deiner Programmierung sogar noch ändern kannst (z.B. Spalte/Zeilen Weg lassen/hinzufügen etc...)

Ich persönlich bin immer ein großer Fan davon, Datenhaltung und Ausgabe in ein von mir gewünschtes Format zu trennen, so das die Daten bei Änderung der Zusammenstellung oder Sortierung etc... nicht verändert sind(also konsistent sind) und nicht durch kleine unbeabsichtliche Fehler verändert werden..
Dazu gehe ich den Umweg und hole mir die Daten aus der konsistente Tabelle/Datei und ordne und designe die Ausgabe wie ich es brauche..
Das ist mitunter etwas langsamer, aber für die Datensicherer... Für kleine Datenmengen, ist der langsamere Zeitaufwand zu vernachlässigen...

Beliebteste Forumthreads (12 Monate)

Mehrere Tabellenblätter markieren

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Tabellenblätter markieren

35 Beiträge zum Forumthread Beiträge zu diesem Forumthread

61 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread