Dim sbPath As String ? Pls Help
29.07.2008 16:11:00
Tom
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
Anzeige