Office: Speichern mit dem Titel der Zelle A2

Moin moin,

Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF" ausgelöst wird. Was ich bräuchte, wäre ein Befehl, um in genau diesem Fenster automatisiert einen Dateinamen einzugeben, und zwar den Text der Zelle A2 mit Bestätigung, so dass sich das Fenster direkt schließt und ich wieder in meiner Excel lande. Leider habe ich keinen guten Ansatz dafür gefunden. Optimal wäre halt ein Codefetzen den ich an der geeigneten Stelle dann einfach einfügen kann.

Hier einmal der Code, den ich bis jetzt habe. Vielen Dank im Voraus !

Sub ()
'
'
'
'
'
'
Range("F2").Select
Selection.Copy
Range("G2").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G4").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.RowHeight = 15.75
Range("G4").Select
Selection.RowHeight = 15
Range("G5").Select
Selection.RowHeight = 13.5
Range("G3:G5").Select
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("G3").Select
Selection.Font.Bold = True
Range("G5").Select
Selection.Font.Bold = True
Range("G2").Select
Selection.RowHeight = 40.5
Range("G2:G5").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintSheetEnd
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.PrintOut Copies:=1, Collate:=True
Selection.ClearContents
Selection.Rows.AutoFit
Range("G2").Select
Selection.EntireRow.Delete
End Sub

 

Hallo,

aufgezeichnete Makros, sind leider enorm aufgebläht. Am besten stellst du mal eine Beispieldatei ein, dann kann man einen Vorschlag unterbreiten, wie das besser geht.

 

Speichern unter habe ich nicht gefunden. Das kann man auch aufzeichnen, was ich auch nur gemacht habe.

Code:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "W:\Eigene Dateien\" & Range("A2") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

 

Okay,
ja mein Problem ist, dass ich keine Ahnung von VBA habe in dem Sinne. Wird auf jeden Fall mein Thema für die nächsten Monate. In diesem Fall geht es halt daran eine Liste mit Daten zu füllen, aus denen automatisch PDF Dateien generiert werden sollen, wobei in jeder PDF Datei nur ein einziger Barcode abgebildet sein soll. Der Sinn letztendlich ist nur, sich die Klickarbeit zu sparen. Ich hab Mal eine Beispieldatei angehangen. Da stehe ich jetzt. Um den Code auszulösen, welchen ich bisher habe Immer in Zelle G2 gehen und Makro auslösen über STRG + g oder manuell. Er arbeitet dann immer die erste Zeile ab und löscht diese anschließend, um den nächsten Barcode zu generieren. Durch das Löschen der ersten Zeile habe ich mir geholfen, weil die relative Aufzeichnung irgendwie nicht funktioniert hat und immer wieder die Zelle A2 kopiert hatte. Egal welche Zeile. Ich hoffe man kann mir folgen :D !

LG

 

@Hajo_Zi

Dein Codefetzen funktioniert einwandfrei !

Vielen Dank :) !!! sehr hilfreich !