Workbooks.open
11.08.2016 09:02:19
Ben
ich habe folgendes Problem.
Ich habe jetzt eine Datei Vorgegeben in der ich meine Sheets für den Monat August abspeichere. Aber ich möchte ja nicht immer nur den August haben sonder auch die anderen folgenden Monate (Sep, Okt, usw....) wie kann ich das vereinfachen, ohne immer die Datei im vba zu ändern. Danke für eure hilfe.
Private Sub CommandButton18_Click()
Dim oWs As Worksheet
Set oWs = Workbooks("Mitarbeiter Kalender_2016.xlsm").Sheets("Tabelle1")
With Workbooks.Open(Filename:="C:\Users\r300149\Desktop\August.xlsm")
.Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name = Format(Date + 1, "DD")
ActiveWindow.DisplayGridlines = False
oWs.Cells.Copy .Sheets(.Sheets.Count).Range("A1")
.Close True 'speichern und schließen
End With
End Sub