VBA Code für PDF Datei

Question

Hallo zusammen,

ich brauche ein Makro das von einem bestimmten Zellenbereich ( Variabel ) eine PDF Datei erstellt. Dies soll per Button gestartet werden.

Danke für eure Hilfe

Lg Achim

Answer 1

Hallo Achim,

welche Office-Version nutzt du denn? Ab Office 2007 kann man Tabellen ja auch als PDF-Datei speichern. Oder nutzt du einen PDF-Printer? Dann muss ggf. ja auch der entsprechende Drucker ausgewählt werden. Und wie wird der Bereich festgelegt? Soll z.B. die aktuelle Markierung gedruckt werden?

Gruß

M.O.

Answer 2

Hallo M.O.

mit dem Makro sollen die einzelnen abschnitte ( Tabellenblatt Druck )
als PDF erzeugt werden.

Für andere Lösungsvorschläge bin ich offen

http://www.xup.in/dl,12457902/Schichtplan_neu_WA_test1.xlsm/

Besten dank

Lg Achim

Answer 3

Hallo Achim,

ich werde mir das mal anschauen.

Gruß

M.O.

Answer 4

Hallo Achim,

schau mal, ob das so funktioniert, wie du dir das vorstellst:

bearbeitete Beispieldatei

Gruß

M.O.

Answer 5

Hallo M.O.

perfekt... besten dank !!.

Eine bitte habe ich noch :-)
Lässt es sich einrichten dass Tabellenblatt 1 und 2 per Button zum aktuellen Datum springt -> anzeigt ?

Beste grüße

LG Achim

Answer 6

Hallo Achim,

meinst du damit, dass in den Tabellen "Plan erstes Halbjahr" und "Plan zweites Halbjahr" der Cursor in die Zelle mit dem aktuellen Datum gesetzt wird? In deiner Beispieldatei ist der Schichtplan allerdings für das Jahr 2017.
Aber grundsätzlich ist das machbar. Das kann z.B. auch automatisch beim Öffnen der Datei geschehen.

Gruß

M.O.

Answer 7

Hallo M.O.

danke für deine Antwort.

Es wäre prima wenn der Cursor per Butten Klick in den Listen "Plan
erstes Halbjahr" und "Plan zweites Halbjahr" zum aktuellen springt.

Besten dank für deine Hilfe

Lg Achim

Answer 8

Hallo Achim,

bei folgenden Code wird der Cursor auf das aktuelle Datum gesetzt, ohne Berücksichtigung des Jahres:

Sub aktuelles_Datum()

Dim lngSpalte As Long
Dim wksTabelle As Worksheet

'anhand des aktuellen Monat prüfen, welche Tabelle das aktuelle Datum enthält
If Month(Now) < 7 Then
Set wksTabelle = ThisWorkbook.Worksheets("Plan erstes Halbjahr")
Else
Set wksTabelle = ThisWorkbook.Worksheets("Plan zweites Halbjahr")
End If

'entsprechende Tabelle aktivieren
wksTabelle.Activate

For lngSpalte = 6 To 189
If Month(CDate(wksTabelle.Cells(6, lngSpalte).Value)) = Month(Now) Then 'Monat suchen
If Day(CDate(wksTabelle.Cells(6, lngSpalte).Value)) = Day(Now) Then 'Tag suchen
wksTabelle.Cells(6, lngSpalte).Select
Exit For
End If
End If
Next lngSpalte

End Sub

Gruß

M.O.

Answer 9

Hallo M.O.

funktioniert Perfekt.
Danke dir für alles !!!.

Beste grüße

Achim