Arbeitsmappe mit VBA in html darstellen

[felle83]

Ich kann es erst am Montag testen. Vielen Dank erstmal. 

Gibt es noch Alternativen zum html? Ich fand die Version mit html ganz gut, da man alles auf einen Blick hat und man nicht alle Dokumente einzeln öffnen muss.

[snb]

Warum speicherst du keine Kopie? (in VBA: SaveCopyAs)

Jeder kann das lesen ohne das du beschränkt wirdst beim Makro laufen lassen.

[felle83]

Ich hab zur Zeit ein Makro, was eine Kopie woanders ablegt. Wen jemand die Kopie geöffnet hat, kann ich mein Makro nicht ausführen. Deswegen wollte ich eine html Kopie erstellen. Jedoch wird die aus seltsamen Gründen extrem groß, was zu extremen Ladezeiten der html Kopie führt.

[snb]

Ich hab zur Zeit ein Makro, was eine Kopie woanders ablegt. Wen jemand die Kopie geöffnet hat, kann ich mein Makro nicht ausführen.

Das kann nicht stimmen.
Die Dateien sind anabhängig von einander wenn es um eine richtige Kopie handelt.

Die einzige Möglichkeit: du kannst die Kopie nicht überschreiben wenn die geöffnet ist.

[felle83]

Genau das ist ja das Problem an meinem jetzigen Makro

[felle83]

Moin!
Folgendes flauschige Makro erstellt den Pfad
C:\Users\MeinUsername\Desktop\Test-PDF\April\
und speichert alle Blätter einzeln mit den Dateinamen 1 bis x.pdf
Vorhandene Dateien werden überschrieben.
Der Blattschutz interessiert nicht:
Gruß Ralf

das mit den pdf abspeichern läuft perfekt. dein makro speichert ja alle Tabellenblätter von 1-31 ab. Ich hab jetzt noch ein weiteres Blatt was Statistik heißt. Wie kann ich verhindern, dass das makro dieses mit als pdf speichert?

[RPP63]

Tach!  :19:
Nun, die Statistik dürfte ja entweder ganz links oder ganz rechts einsortiert sein.
Und dann gibt es ja auch Monate mit weniger als 31 Tagen …
Und wiederum warte ich ab, bis konkretere Hinweise kommen, denn als Hellseher bin ich eher nicht geeignet.
Man könnte den .Name des Sheets innerhalb eines Select Case abfragen.
Und immer noch bin ich der Meinung, dass man das Datum im Dateinamen des .PDF verwursten sollte.

Bis dahin,
Ralf

[felle83]

Statistik Tabelle steht am Ende. Der Arbeitsplan ist eine fortlaufende arbeitsmappe, die  bisher mit Tabelle 1—31 lief. Der Plan wird auch maximal 5 Tagen im Voraus geschrieben, so dass es keine Probleme mit 28 oder 31 Tagen gibt. Sie ist nur tagesbassierend Under nicht monatsbassierend. Soll auch so bleiben.

Deine fortlaufende Nummerierung ist also perfekt, jedoch wandelt er die 32. Tabelle auch mit um. Prinzipiell stört das niemand, jedoch kann man das auch vermeiden. Bin morgen wieder in der Arbeit und teste nochmal. Wenn ich es nicht hinbekomme, würde ich mich nochmal melden.

[Käpt'n Blaubär]

Hallo,

Du schreibst, daß Du das letzte Blatt bei der PDF-Umwandlung unberücksichtigt lassen willst
Wenn Du den Code mit der Schleife vom Ralf aus aus dem Beitrag #8 nutzt, und ich Dich richtig
verstanden habe und wie Du geschrieben hast, das betreffende Blatt tatsächlich das letzte Blatt
in der Datei ist, ...

With ThisWorkbook
  For i = 1 To .Worksheets.Count
    .Worksheets(i).ExportAsFixedFormat xlTypePDF, Pfad & i
  Next

dann versuche es mal so

With ThisWorkbook
  For i = 1 To .Worksheets.Count - 1
    .Worksheets(i).ExportAsFixedFormat xlTypePDF, Pfad & i
  Next

[felle83]

perfekt, danke

das blöde mit dem PDF ist, dass wenn jemand die PDF geöffnet hat, ich das Makro nicht ausführen kann. Gibt es da eine Möglichkeit, dies zu umgehen?