Leere Zeilen löschen:

Sub Zeilen_löschen()
'leere Zeilen löschen

Dim i As Long
Dim zeile As Long
Dim ende As Long


Range("A1").Select
ende = Range("A65536").End(xlUp).Row


Do Until i = ende
If ActiveCell.Value = "" Then
    ActiveCell.EntireRow.Delete
Else
    ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
End Sub

Pdf speichern unter:

Private Sub pdfanzeigen_Click()
'pdf anzeigen und speichern

Dim KabBez As String
Dim ProjNr As String
Dim ProjName As String
Dim pdfname As String

Dim pd As Variant

' pdf default-Pfad und Filename

KabBez = Worksheets("Eingabe_Ausgabe_ET").Range("Bezeichnung_des_Kabels").Value
ProjNr = Worksheets("Eingabe_Ausgabe_ET").Range("Projektnummer").Value
ProjName = Worksheets("Eingabe_Ausgabe_ET").Range("Name_des_Projektes").Value

pdfname = "\\file\ghe\10_AUFTRÄGE\" & ProjNr & "_" & ProjName & "_Kabel_" & KabBez & ".pdf"

'speichern unter Fenster
pd = Application.GetSaveAsFilename _
      (InitialFileName:=pdfname, _
       FileFilter:="PDF Files (*.pdf), *.pdf", _
       Title:="Bitte Projektpfad vervollständigen...")

' Speichern als pdf
On Error GoTo Fehler

Worksheets("Eingabe_Ausgabe_ET").ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:=pd, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Exit Sub

' Fehlerbehandlung
Fehler:
    MsgBox "AUCHTUNG! File wurde nicht gespeichert!"
   
End Sub







Freundliche Grüße / Best Regards

Gerald SIMBRUNNER