Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
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
VBA PDF erstellen
02.11.2017 21:25:29
Reiner
Hallo Zusammen,
irgendwie gibt er mir immer einen Fehler aus.
Bei:
Worksheets("Statistik").EntireRow("33:48").EntireRow.Hidden = True
Ferner möchte ich, dass die PDF Datei immer im gleichen Ordner abgespeichert wird, wo sch auch die xlsm Datei befindet. Aktuell wird das PDF immer unter Dokumente abgespeichert.
Ich würde mich sehr freuen, wenn ihr mir kurz helfen könntet, da ich in VBA nicht wirklich stark bin. Vielen Dank im Voraus!!
Sub Druck1()
If Range("B13").Value = 3 Then
Worksheets("Angebotsaufstellung").Columns("W:AA").EntireColumn.Hidden = False
Else
Worksheets("Angebotsaufstellung").Columns("W:AA").EntireColumn.Hidden = True
End If
If Range("B13").Value = 3 Then
Worksheets("Statistik").EntireRow("33:48").EntireRow.Hidden = False
Else
Worksheets("Statistik").EntireRow("33:48").EntireRow.Hidden = True
End If
Dim Zelle As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Sheets("Angebotsaufstellung")
For Each Zelle In ws.Range("b14:b93").Cells
If Zelle = 0 Then
ws.Rows(Zelle.Row).Hidden = True
End If
Next
ThisWorkbook.Sheets(Array("Titelblatt", "Einleitung", "Angebotsaufstellung", "Statistik")). _
Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Worksheets("Immer Ausblenden").Range("D2"), Quality:=xlQualityStandard,  _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA PDF erstellen
03.11.2017 05:40:41
Hajo_Zi
ist die Tabelle geschützt?
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Worksheets("Immer Ausblenden").Range("D2"), Quality:=xlQualityStandard,...

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: VBA PDF erstellen
03.11.2017 09:05:43
Werner
Hallo Rainer,
was soll das EtireRow("33:48")
If Range("B13").Value = 3 Then
Worksheets("Angebotsaufstellung").Columns("W:AA").Hidden = False
Else
Worksheets("Angebotsaufstellung").Columns("W:AA").Hidden = True
End If
If Range("B13").Value = 3 Then
Worksheets("Statistik").Rows("33:48").Hidden = False
Else
Worksheets("Statistik").Rows("33:48").Hidden = True
End If
Gruß Werner

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige