Textfelder aktivieren und mehrere Blätter als 1PDF

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
waauuhh! Danke für deine ganze Arbeit!!! Auch die ganzen Erklärungen dazu finde ich super hilfreich, damit ich es verstehe was Makro macht. Vor allem das Makro mit der Grafik kopieren ist top!!
Das Makro mit der PDF-erstellen ist leider noch nicht ganz optimal für mich.
Das Makro erstellt leider zwei unterschiedliche Ergebnisse (leider konnte ich das PDF hier nicht hochladen, deswegen nur ein Bild von einer Seite als jpg).
Wenn ich das Makro gleich am Anfang starte, dann erscheinen die Textfelder nicht auf dem Blatt (siehe Bild). Dieses Problem habe ich leider mit meinem Excel 2010 immer wieder:-(. Allerdings wenn ich das Makro Grafik vorher abspiele, dann funktioniert das Makro "PDFerstellen" richtig. Ich vermute dadurch werden die Blätter mit Textfelder irgendwie aktiviert...?
Da ich ja nicht immer das Makro "Grafik einfügen" vorher abspielen kann, hast du noch eine Idee, was ich da noch machen kann, damit das Makro von Anfang an auch in Excel 2010 funktioniert?
Außerdem wollte ich fragen, wie/wo ich das Makro abändern kann, dass ich bei Dateiname-Vergabe flexibler bin? (da ich manchmal doch unterschiedliche PDF-Versionen von einer Datei abspeichern muss). Sorry für die Änderung, aber es würde für mich deswegen auch schon reichen, quasi die Seitenansicht anzeigen lassen und als PDF drucken. Anschließend werde ich normalerweise von Excel sowieso gefragt, wo und mit welcher Namen ich die PDF-Datei abspeichern möchte...
Danke für den tollen Tipp mit den Textfeld in 2 Teile zu machen und per Formel zu knüpfen. Das ist eine sehr gute Idee, weil ich so zukünftig flexibler sein kann (falls Zeitraum sich wieder ändert).
Hier das Bild:
Userbild

Gruß
Meli

Hallo Meli,
ich habe alles mögliche probiert, um die PDF-Erstellung in einem Durchlauf zu schaffen.
Fehlanzeige.
Ich hab es jetzt so umgesetzt, das man die Erstellung in 2 Schritten machen muss.
1. Vorbereitung PDF-Erstellung ohne Anzeige PDF
2. Erstellung PDF mit PDF-Anzeige.
Gruß
Franz

Option Explicit
Private strPfadPDF$, bolPDFanzeigen As Boolean
Sub prcMakePDF_1_vorbereiten()
PDF-Erstellung vorbereiten
strPfadPDF = ""
bolPDFanzeigen = False
prcMakePDF
End Sub
Sub prcMakePDF_2_fertigstellen()
'PDF fertigstellen
If strPfadPDF = "" Then
MsgBox "Bitte erst das Vorbereitungs-Makro starten"
Else
bolPDFanzeigen = True
prcMakePDF
End If
End Sub
Private Sub prcMakePDF()
Dim objSheet As Object
Dim intB As Integer
Dim intS As Integer
Dim strPfad$, strPDF$
Dim varItem
Dim arrSheets()
Dim objAktiv As Object
intS = -1 'Zähler für Elemente im Array
Set objAktiv = ActiveSheet
Application.Calculate
For intB = 1 To ActiveWorkbook.Sheets.Count
Set objSheet = ActiveWorkbook.Sheets(intB)
'Blattname prüfen
If objSheet.Name = "Datenblatt" Then
'nach diesem Blatt werden Blattnamen ins Array übernehmen
intS = 0 'Startwert für Zähler setzen
ElseIf objSheet.Name = "Inputs>>" Then
'Bei diesem Blattnamen Einlesen beenden
Exit For
ElseIf intS >= 0 Then
'Prüfen, ob Blatt sichtbar
If objSheet.Visible = xlSheetVisible Then
'Array vergrößern und Blattname übernehmen
intS = intS + 1
ReDim Preserve arrSheets(1 To intS)
arrSheets(intS) = objSheet.Name
End If
End If
Next
If intS  0 Then
.FilterIndex = intS
Exit For
End If
Next
.Title = "Bitte Verzeichnis/Name für PDF-Datei auswählen/eingeben"
.InitialFileName = strPDF
If .Show = -1 Then
strPfadPDF = .SelectedItems(1)
End If
End With
End If
If strPfadPDF  "" Then
Application.Calculate
With ActiveWorkbook
'im Array gesammelte Blätter gruppieren für PDF-Ausgabe
.Sheets(arrSheets).Select
'Blätter als PDF exportieren
ActiveSheet.ExportAsFixedFormat xlTypePDF, strPfadPDF, _
Ignoreprintareas:=False, OpenAfterPublish:=bolPDFanzeigen
End With
End If
'Gruppierung wieder aufheben
objAktiv.Select
End Sub

Beliebteste Forumthreads (12 Monate)

Textfelder aktivieren und mehrere Blätter als 1PDF

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfelder aktivieren und mehrere Blätter als 1PDF

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread