sagt mal, wie bekomme ich den code dazu auch den wert einer anderen Zelle
zuzüglich zu B8 einzulesen?
Hab schon Application.Union probiert und bin gescheitert!
Pls Help!
Private Sub Commandbutton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Dim sbPath As String
sbPath = Worksheets(2).Range("B8")
sbPath = "C:\My Folder\" & sbPath
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=sbPath, FileFormat:=xlNormal
ActiveWorkbook.Close
End Sub