Ein Beispiel:
Wir haben den Monat September und der hat 30 TAge. Jetzt mach ich in der ersten woche 5 Blätter(Sheets Tabelle1)
Tag1/ Tag2/ Tag3 usw.... fertig und möchte die datei speichern Unter für den Monat September.
jetzt kommt aber noch dazu wenn ich darauf die woche wieder die Arbeitsblätter fertig machen möchte
Tag8/ TAg9/ Tag10.... usw.... sollen aber mit in der Datei September mit eingefügt werden so das ich am ende den ganzen Moant jabe mit den 30 Tagen. wie mache ich das am beste.
bisher hatte ich es so aber das ich ja nicht was ich möchte. Hatte erst immer einen TAg im vorraus. aber will ja wie oben beschrieben. wäre dankbar 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\" &format(date + 1,"MMMM") &". _
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