VBA Code ist faul
08.10.2008 10:57:00
Sebastian
habe ein kleines Problem mit meinem VBA Code und wäre Euch sehr dankbar wenn Ihr mir weiter helfen könntet. Der Code wird nicht ausgeführt, lieg wenn ich es richtig einschätze am Dim SpeicherName As String
Im Voraus schon vielen vielen Dank.
Gruß Seppel
Sub Lieferseichen_speichern()
' Speichert den Lieferschein als pdf
Sheets("Lieferschein").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Dat").Range("F4").Value
SpeicherName = Speicherpfad & "Li 08-" & Range("D9") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="SpeicherName", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub