Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten kopieren und daraus Pdf erzeugen

Forumthread: Daten kopieren und daraus Pdf erzeugen

Daten kopieren und daraus Pdf erzeugen
23.01.2019 17:59:59
Sebastian
Hallo Forum,
Ich habe zwei Tabellen Blätter
1 (Daten) Namen und Stunden sowie deren Arbeitszeiten, diese Daten möchte ich wenn im Tabellenblatt (Daten) Spalte 1 ein X steht ins Tabellenblatt (Sheet) kopieren je Mitarbeiter und daraus dann ein PDF erzeugen mit "Montagenachweis""Name""Kalenderwoche"
Gibt es da eine möglichkeit mit VBA dies zu realisieren?
unten Angehängt das Formular
https://www.herber.de/bbs/user/127039.xlsm
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten kopieren und daraus Pdf erzeugen
23.01.2019 18:52:29
onur
JA, aber das ist etwas zu viel verlangt für ein Forum, wo du Hilfe bei kleineren Problemen bekommen kannst.
Du wilst aber eine Komplettlösung - Dafür gibt es Auftragsprogrammierer.
Vielleicht erbarmt sich ja mal Jemand doch.
Das stimmt so nicht ganz und ich...
23.01.2019 19:11:09
robert
hätte gerne für jede Komplettlösung hier im Forum einen Euro :)
Frage ist noch : was ist eine "Komplettlösung" ?
Gruß
robert
Anzeige
AW: Das stimmt so nicht ganz und ich...
23.01.2019 19:12:49
onur
Hast du dir die Datei angesehen (was alles auf Blatt 2 ausgefüllt werden muss)?
Na Servus...Du hast Recht ;-) owT und Gruß
23.01.2019 19:40:18
robert
AW: Daten kopieren und daraus Pdf erzeugen
23.01.2019 19:59:24
JoWE
Hallo Sebastian,
ich hab's trotz der von Onur richtigerweise erwähnten Problematik mal probiert.
Allerdings sind in Deiner Namenspalte (Tabelle Daten) mal Kommata und mal nicht.
Mein Code verlangt jedoch zwischen Name und Vorname ein Komma!!! Z.B. "Gosparic, Daniel".
Sub makeDocuments_to_pdf()
Dim ze As Long
Dim i As Long
Dim myPath As String
Dim myFName As String
With Sheets("Daten")
For ze = 10 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(ze, 1) = "x" Then
For i = 10 To 16
Sheets("Sheet").Cells(i, 3) = .Cells(ze, 3)
Sheets("Sheet").Cells(i, 4) = .Cells(ze, 4)
Next
End If
myPath = ThisWorkbook.Path & "\" 'Speicherpfad evtl. anpassen
myFName = "Montagenachweis " & UCase(Mid(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") + 2, 99)) & " KW " & .Cells(1, 3) & ".pdf"
myFName = myPath & myFName
Sheets("Sheet").ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End With
End Sub

Gruß
Jochen
Anzeige
AW: habe noch was korrigiert....
23.01.2019 20:18:06
JoWE
...sieh' es als Einstieg, den Rest der Zieltabelle solltest Du selbst erarbeiten können!?
Sub makeDocuments_to_pdf()
Dim ze As Long
Dim i As Long
Dim sp As Long
Dim myPath As String
Dim myFName As String
With Sheets("Daten")
For ze = 10 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(ze, 1) = "x" Then
sp = 3
For i = 10 To 16
Sheets("Sheet").Cells(i, 3) = .Cells(ze, sp)
Sheets("Sheet").Cells(i, 4) = .Cells(ze, sp + 1)
sp = sp + 3
Next
End If
myPath = ThisWorkbook.Path & "\" 'Speicherpfad evtl. anpassen
myFName = "Montagenachweis " & UCase(Mid(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") + 2, 99)) & " KW " & .Cells(1, 3) & ".pdf"
myFName = myPath & myFName
Sheets("Sheet").ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End With
End Sub

Anzeige
AW: habe noch was korrigiert....
24.01.2019 16:56:09
Sebastian
Danke für eure Hilfe so funktioniert es schon Ganz gut.
Habe Lediglich noch hinzugefügt das die Namen noch kopiert werden.
Gibt es noch eine Möglichkeit die Pdf anzupassen das die komplette a4 Seite Genutzt wird
AW: habe noch was korrigiert....
24.01.2019 17:49:10
JoWE
… das kannst Du doch in der Tabelle Sheet über Seite einrichten anpassen.
Da muss also nichts extra per Code angepasst werden.
Z.B. Seitenlayout, Seite einrichten, verkleinern/vergrößern = 92%
Gruß
Jochen
Anzeige
AW:
24.01.2019 18:17:00
Sebastian
Ja Stimmt bin ich auf zwischenzeitlich drauf gekommen
Aber noch was anderes. Lasse das Script gerade mal Durchlaufen.
Dabei ist mir Aufgefallen das auch ein PDF erzeugt wird wo kein x eingetragen ist.
Option Explicit
Sub makeDocuments_to_pdf()
Dim na As Long
Dim n As Long
Dim ze As Long
Dim i As Long
Dim sp As Long
Dim myPath As String
Dim myFName As String
With Sheets("Daten")
For ze = 10 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(ze, 1) = "x" Then
na = 2
sp = 3
For n = 4 To 4
Sheets("Sheet").Cells(n, 1) = .Cells(ze, na)
Next
End If
If .Cells(ze, 1) = "x" Then
sp = 3
For i = 10 To 16
Sheets("Sheet").Cells(i, 3) = .Cells(ze, sp)
Sheets("Sheet").Cells(i, 4) = .Cells(ze, sp + 1)
sp = sp + 3
Next
End If
myPath = ThisWorkbook.Path & "\Leistungsnachweise\" 'Speicherpfad evtl. anpassen
myFName = "Montagenachweis " & UCase(Mid(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") + 2, 99)) & " KW " & .Cells(1, 3) & ".pdf"
myFName = myPath & myFName
Sheets("Sheet").ExportAsFixedFormat Type:=xlTypePDF, FileName:=myFName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End With
End Sub
https://www.herber.de/bbs/user/127077.xlsm
Anzeige
AW: ja, da ist was nicht ok...
24.01.2019 18:43:48
JoWE
...daher habe ich den Code nochmal leicht verändert. Der Teil, welcher pdf-Dateien erstellt,
muss natürlich innerhalb des If / end If -Bereiches stehen.
Ich habe Deine Änderung nicht eingebaut, das bekommst Du ja selbst wieder hin?! 
Sub makeDocuments_to_pdf()
Dim ze As Long
Dim i As Long
Dim sp As Long
Dim myPath As String
Dim myFName As String
With Sheets("Daten")
For ze = 10 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(ze, 1) = "x" Then
sp = 3
Sheets("Sheet").Cells(4, 1) = Mid(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") + 2, 99) & _
", " & UCase(Left(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") - 1))
For i = 10 To 16
Sheets("Sheet").Cells(i, 3) = .Cells(ze, sp)
Sheets("Sheet").Cells(i, 4) = .Cells(ze, sp + 1)
sp = sp + 3
Next
myPath = ThisWorkbook.Path & "\" 'Speicherpfad evtl. anpassen
myFName = "Montagenachweis " & UCase(Mid(.Cells(ze, 2), _
InStr(1, .Cells(ze, 2), ",") + 2, 99)) & " KW " & .Cells(1, 3) & ".pdf"
myFName = myPath & myFName
Sheets("Sheet").ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next
End With
End Sub
Gruß
Jochen
Anzeige
;

Forumthreads zu verwandten Themen

Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Spalten nach Text durchsuchen
Kall

Hallo zusammen,
ich brächte mal eure Hilfe, in der such habe ich nichts passendes gefunden. Ich nöchte die Spalte A ab Reihe 16 bis zum Ende nach einem Begriff "UA" durchsuchen (den es öfter geben kann), und wenn ich diese gefunden habe die komplette Zeile in die Tabelle 5 kopieren, über VB...
19.01.2009 12:47:13
Thread-ID: 1041382
4 Beiträge
Excel-Daten in TXT umwandeln
dani

Hallo zusammen
ich bins nochmal.
Ich muss aus einer Excel-Tabelle mit Daten in verschiedenen Spalten ein txt-file generieren können.
Das klappt auch bestens, aber die Daten in einer Zeile sollten ohne Abstände dargestellt werden.
Jetzt sieht das im txt-file so aus:
Satz_ID...
20.02.2009 13:29:00
Thread-ID: 1052429
7 Beiträge
Anzeige
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Anzeige
Ein Wort in Sätzen suchen
Sebastian

Hallo zusammen!
Ich hab sowohl google als auch die hilfe hoch und runter durchsucht.
Ich hab in den Zellen A1-A5 jeweils einen Satz stehen, in dem auch Zahlen vorkommen.
In A7 z.B. soll jetzt nach einer Zahlenkombination gesucht werden die in einer der 5 Zellen vorkommen und als ein...
05.03.2009 14:14:14
Thread-ID: 1056845
8 Beiträge
in txt umwandeln
Susann

Hallo,
ich habe eine Excelliste mit Artikelnummern, diese sind allerdings nicht alle gleich lang, also z.B.
000000991235
0000156913
00000009009153
und jetzt möchte ich diese in ein txt Dokument umwandeln, sodass es im Editor wie folgt aussieht:
000000991235;1
0000156...
12.05.2009 13:55:03
Thread-ID: 1074592
3 Beiträge
Anzeige
Bei Export in .txt Datum umwandeln
Daniel

Hallo Zusammen,
ich habe in Spalte B ein Datum mit Uhrzeit in "deutschem Format" stehen.
Nun exportiere ich einen Bereich in eine Textdatei, dort brauche ich das Datum
aber als "TTMMJJJJ hh:mm". Was muss ich in meinem Makro ändern, damit ich
dieses Ergebnis bekomme?
Sub sav...
15.07.2009 11:07:46
Thread-ID: 1088769
8 Beiträge
Zellen aus einer Pivottabelle kopieren | Herbers Excel-Forum
Rocco
hallo leute,
habe leider ein problem zellen aus einer zuvor aktualisierten pivottabelle zu kopieren und weiss nicht warum ;(
vielleicht hat ja von euch wer einen guten rat für mich. mein code schaut im moment so aus:
'Pivottabelle aktualisieren
Sheets("Pivot").Select
ActiveShe...
18.01.2010 16:26:32
Thread-ID: 1130788
2 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Anzeige
Einbetten einer pdf-Datei
Paul

Hallo,
ich möchte z.B. eine pdf-Datei in ein Excelblatt einbetten. Die pdf-Datei soll erst klein erscheinen und beim darauf klichen zu voller Größe auflaufen.
Gibt es da eine Möglichkeit?
Vielen Dank für eure Unterstützung
Gruß
Paul
14.04.2010 22:34:08
Thread-ID: 1151838
5 Beiträge
Zellinhalt in geschlossen Dateien suchen..
Uwe

Guten Tag an Alle,
ist folgendes möglich?
wenn ich z.b. in Zelle A1 als Beispiel "ABC123" eingebe und auf enter drücke, dass dann in
C:Testordner mit jede Menge Unterordner die dann Paul;Hans;Klaus u.s.w. heißen in den geschlossenen Dateien geschaut wird ob das selbe auch in Zelle A...
06.08.2010 12:27:07
Thread-ID: 1170893
16 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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