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