Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

303 Forumthreads zu ähnlichen Themen

Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 Beiträge
Anzeige
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
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
Pdf in Excel umwandeln
Susann

Hallo,
ich habe ein PDF Dokument mit Adressdaten. Diese möchte ich in eine Excelliste wandeln, damit ich einen Serienbrief daraus machen kann.
Ich habe das PDF bereits als Text gespeichert, um es dann mit Tabs getrennt in Excel zu speichern und wieder zu öffnen. Da zeigt er allerdings...
27.04.2009 10:32:12
Thread-ID: 1071297
13 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 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
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
Anzeige

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
14
1
3
6
13
7
12
8
2
7
1
1
4
15
2
1
6
8
9
6
3
6
5
1
1