Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen nach KW als PDF Speichen

Tabellen nach KW als PDF Speichen
23.07.2018 13:42:24
Hensn
Hy !
Bitte um eure Hilfe !!!
ich hab folgendes Problem
Um mir die Arbeit im Alltag etwas zu Erleichtern und nicht mehr alles mühselig einzeln von Hand in das Bautagebuch zu schreiben hab ich mir eine Excel Tabelle zusammen gestellt.
Da ich so gut wie keine VBA Kenntnisse besitze habe ich es dennoch nach Tage langen suchen im Netz zusammengebracht, dass sich Tabellen 1 nach betätigen eines Buttons in einen gewünschten Ordner abspeichert und eine Kopie als nächste Tabellenblatt erstellt.
Tabelle 1 ("Bautagebuch") =Ausgangsformular
Nasch betätigen des Buttons wird Tabelle 1
im gewünschten Ordner (steht in Tabelle 1 B62) Gespeichert
zudem wird eine Kopie von Tabelle 1 als neue Tabelle angehängt (Tabelle 2 )=("23.07.18") ....fortlaufend.
der sinn dahinter ist zudem auch mein Problem.
da ich die Berichte wöchentlich abgeben bzw. weiterleiten muss, würde ich sie gerne KW weise (steht in jeder Tabelle in Zelle L4 ) in PDF umwandeln und in den gewünschten Ordner der in Zelle B64 steht Speichern.
Der Ordner Pfad steht deswegen in einer Zelle da sich der Pfad von Baustelle zu Baustelle ändert.
Jetzt meine frage ob so etwas überhaupt möglich ist und wenn ja wie ?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen nach KW als PDF Speichen
23.07.2018 13:55:30
Michael
Hallo!
Meinst Du so? Siehe auch Kommentare im Code:
Sub a()
Const KALWOCHE& = 8 'Gewünschte Kalenderwoche anführen
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet, Pfad$, Datei$
Application.ScreenUpdating = False
For Each Ws In Wb.Worksheets
'Alle Blätter deren Zell-Wert in L4 der o.a. Kalenderwoche entspricht
'als PDF exportieren in das jeweils in B64 angegebene Verzeichnis
If Ws.Range("L4") = KALWOCHE Then
With Ws
'Pfad aus B64
Pfad = IIf(Right(.Range("B64"), 1) = "\", .Range("B64"), .Range("B64") & "\")
'Dateiname 'KW' + KW# aus L4 + Blattname + '.pdf'
'bspw. 'KW 5 Tabelle 5.pdf'
Datei = "KW " & .Range("L4") & .Name & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Pfad & Datei, _
quality:=xlQualityStandard, _
includedocproperties:=True, _
ignoreprintareas:=False, _
openafterpublish:=False
End With
End If
Next Ws
Set Wb = Nothing: Set Ws = Nothing
End Sub
Beim Zusammenbau des Dateinamens habe ich ein Annahme getroffen.
LG
Michael
Anzeige
AW: Tabellen nach KW als PDF Speichen
23.07.2018 14:56:51
Hensn
Wow super schnelle Antwort !
Danke dir Michael !
Funktioniert Super, nur würde das ganze auch gehen das am Anfang ein Kästchen mit der anfrage nach der gewünschten KW kommt ?
AW: Tabellen nach KW als PDF Speichen
23.07.2018 16:01:27
Robert
Hallo Hensn,
streiche die Zeile 
Const KALWOCHE& = 8 'Gewünschte Kalenderwoche anführen

und setze stattdessen: 
Dim KALWOCHE
KALWOCHE = Application.InputBox("Für welche Kalenderwoche soll die PDF erstellt werden?", " _
Kalenderwoche", , , , , , 1)
If KALWOCHE = False Then Exit Sub

Dann wird die gewünschte Kalenderwoche abgefragt. Beim Klick auf Abbrechen wird das Makro abgebrochen.
Gruß
Robert
Anzeige
AW: Tabellen nach KW als PDF Speichen
23.07.2018 16:50:56
Hensn
Einwand Frei !
ihr seid die besten !!!
Hoffe ich darf mich wieder mal an euch wenden wenn etwas nicht so läuft wie ich es gerne hätte ?!
1000 Dank !
Gerne und Danke für die Rückmeldung (owT)
23.07.2018 17:00:43
Robert
AW: Gern Danke für die Rückmeldung, owT
23.07.2018 16:33:18
Michael

310 Forumthreads zu ähnlichen Themen

Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Anzeige
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Markierter Bereich als Text Datei speichern
Roland

Hallo,
Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
21.08.2009 23:44:54
Thread-ID: 1097867
6 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
33
1
4
2
8
1
2
5
2
2
1
5
5
5
3
3
3
2
1
5
1
5
5
3
7