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

Sheets auswählen dann als PDF speichern

Forumthread: Sheets auswählen dann als PDF speichern

Sheets auswählen dann als PDF speichern
10.02.2019 09:54:06
Holly
Hallo und guten Morgen,
ich habe folgendes Problem.
Ich möchte in einer Userform einzelne bzw. mehrere Auswählen und dies dann als PDF speichern. Ein Blatt(Sheet)welches immer das gleiche ist möchte ich die möglichkeit haben es auswälen zu können ( Info Fahrer ). Die anderen Blätter möchte ich auswählen.
Meine Idee war in einer Userform über CheckBox die bzw. das Blatt auszuwählen.
Eine beispiel Tabbelle habe ich hochgelden.
https://www.herber.de/bbs/user/127541.xlsm
Die Checkboxen sollen die gleiche Beschriftung haben wie die Tabellenblätter.
Bei der Auswahl reichen mir die drei zu letzt erstelleten Blätten. Die Blätter haben die Namen der KW ( KW 1 oder KW 2, KW 3, ...).
Ich hoffe ich konnte mein Problem verständlich machen.
schon mal vielen Dank
Holly
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sheets auswählen dann als PDF speichern
10.02.2019 15:07:23
Holly
Hallo Nepumuk,
erstmal schon mal vielen Dank für deine Mühe,
im Grunde läuft es, die Auswahl wächst aber auch mit der Anzahl der Blätter.
Die letzten drei Blätter würden reichen (die mit der höchsten KW) sonst wird es nach einiger Zeit wieder unübersichtlich, am Ende des Jahres sind es ja 52 Blätter. Wenn er die ausgeblendeten Blätter über springt würde es auch scho gehen.
Schönen Sonntag noch
Holly
Anzeige
AW: Sheets auswählen dann als PDF speichern
10.02.2019 15:13:14
Nepumuk
Hallo Holly,
soll die Tabelle "Info Fahrer" trotzdem sie ausgeblendet ist angezeigt werden?
Gruß
Nepumuk
AW: Sheets auswählen dann als PDF speichern
10.02.2019 16:02:20
Holly
Muss nicht sein, es reicht das sie angezeigt wir wenn sie eingeblendet ist. und wenn sie ausgeblendet ist brauche ich sie auch nicht auswählen.
AW: Sheets auswählen dann als PDF speichern
10.02.2019 16:15:00
Nepumuk
Hallo Holly,
teste mal:
Option Explicit

Private Sub CommandButton1_Click()
    Dim aobjWorksheets() As Worksheet, objActiveSheet As Worksheet
    Dim lngIndex As Long, ialngWorksheetIndex As Long
    Dim blnSelectWorksheet As Boolean
    With ListBox1
        For lngIndex = 0 To .ListCount - 1
            If .Selected(lngIndex) Then
                Redim Preserve aobjWorksheets(ialngWorksheetIndex)
                Set aobjWorksheets(ialngWorksheetIndex) = ThisWorkbook.Worksheets(.List(lngIndex))
                ialngWorksheetIndex = ialngWorksheetIndex + 1
                blnSelectWorksheet = True
            End If
        Next
    End With
    If Not blnSelectWorksheet Then
        Call MsgBox("Bitte wählen Sie eine Tabelle zum drucken aus.", vbExclamation, "Hinweis")
    Else
        Application.ScreenUpdating = False
        Set objActiveSheet = ActiveSheet
        For ialngWorksheetIndex = 0 To UBound(aobjWorksheets)
            Call aobjWorksheets(ialngWorksheetIndex).Select(Replace:=ialngWorksheetIndex = 0)
        Next
        Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Ausdruck.pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True)
        Erase aobjWorksheets
        objActiveSheet.Select
        Set objActiveSheet = Nothing
        Application.ScreenUpdating = True
    End If
End Sub

Private Sub CommandButton2_Click()
    Call Unload(Object:=Me)
End Sub

Private Sub UserForm_Activate()
    Dim objWorksheet As Worksheet
    With ThisWorkbook
        For Each objWorksheet In ThisWorkbook.Worksheets
            Select Case objWorksheet.Name
                Case "Stammdaten", "Vorlage"
                    'do nothing
                Case Else
                    If objWorksheet.Visible = xlSheetVisible Then _
                        Call ListBox1.AddItem(objWorksheet.Name)
            End Select
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Sheets auswählen dann als PDF speichern
10.02.2019 16:19:53
Holly
Super,
so ist es sehr gut.
vielen vielen Dank
wünsche dir noch einen schönen rest Sontag
Holly
;

Forumthreads zu verwandten Themen

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
Diagramm in Word als pdf
Sandra

Hallo zusammen.
Ein Diagramm in ein Word-Dokument zu bekommen ist nicht mein Problem. Das bekomme ich hin. Wenn ich aber das Dokument über "Datei drucken" als pdf-Datei drucken möchte, dann ist das Diagramm ohne Farbe dargestellt. Es ist aber keine Druckereinstellung, denn die Tabellen und...
31.08.2009 17:03:10
Thread-ID: 1099661
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
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
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Excel als PDF speichern
max

Hallo Excelfreunde,
arbeite viel mit FreePDF XP, Nachteil: es öffnet sich eine Maske ausserhalb von Excel zum Zusammenfügen von Excelseiten und Abspeichern als Datei.
Vor kurzem habe ich im Archiv folgenden Makro gefunden (meinerseits bereits angepasst):
Sub Makro1() ActiveSheet.Exp...
29.02.2012 00:47:25
Thread-ID: 1252798
2 Beiträge
Exceltabelle in PDF umwandeln auf auf Desktop sp.
Thomas

Liebe VBA Freunde!
Ich stehe nur vor Problemen :-( und ich hoffe ihr könnt mir helfen!
Wie kann ich eine bestehende Exceltabelle Bereich A1:Q20 mit Hilfe VBA in ein PDF.File umwandeln
und auf den Desktop speichern?
Im Internet habe ich darüber leider nichts gefunden.
Gibt es...
20.06.2012 20:46:01
Thread-ID: 1268201
8 Beiträge
Excel als PDF mit Makro speichern
Wildgans

Hallo Forum,
ich habe mit dem Makrorecorder ein Makro aufgezeichnet, siehe Dokument https://www.herber.de/bbs/user/80794.doc
Wenn ich jetzt diese Makro starte funktionert es auch. Jetz möchte ich nur das bei der Ausgabe nicht drei einzelne Dateien erzeugt werden, sondern dass aus diese...
28.06.2012 10:48:17
Thread-ID: 1269286
3 Beiträge
mit vba html in pdf umwandeln
daniela

Hallo zusammen,
ich möchte die Website https://www.wmaccess.com/wmaccess/standard/wmaccess aufrufen aus einer Excel Datei heraus, in pdf umwandeln und dann unter I:\II_88\8\fm abspeichern mittels eines Makros.
Kann mir jmd. helfen?
Die Suche im Internet hat mich nicht weitergebrach...
05.09.2012 17:11:59
Thread-ID: 1277526
4 Beiträge
Anzeige
Excel als PDF speichern
Meier

Hallo zusammen, ich benötige wohl wieder mal eure hilfe. Ich habe bereits ein bestehendes Makro, welches mir aus einem Excel-File verschiedene Files erstellt mit unterschhiedlichen Registern und immer den aktuellen Speicherort und Dateiname übernimmt.
Leider benötige ich jetzt das gleiche M...
05.12.2012 13:33:40
Thread-ID: 1289444
2 Beiträge
Anzeige
best. sheet als pdf speichern mit vba
Bernd

Hallo zusammen,
Brauche Hilfe bei VBA,
Meine Arbeitsmappe besteht aus 10 Tabellenblättern. Erste heißt "Startmenü" dort möchte ich einen Button erstellen und das hinterlegte Makro soll nachfolgenden Code enthalten: speichere Tab-Blatt "Rechnungen" und hole den Ordnerpfad aus Tab-Blatt "...
27.02.2013 18:02:15
Thread-ID: 1301382
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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