AW: meinst Du so ?
26.11.2007 21:29:52
Heinz
Hallo Matthias
So ungefähr !!
Mit den unteren Code ( denn Du glaube ich schon kennst) zähle ich immer um ein Monat hoch.
Nun wenn jetzt in P1 von 2007 auf 2008 hochgezählt wird sollten die neuen Urlaubstage von D96 dazugezählt werden.
Und ohne ClearContents da ja im Jahr 2009 diese Tage von D96 wieder in M47 dazukommen.
Könntest Du mir dazu bitte abermals helfen.
Danke Heinz
Option Explicit
Sub cp_wbk()
Dim MyShape As Shape, strPfaduDatei As String
Dim Shape2 As Shape
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With ThisWorkbook
strPfaduDatei = .Path & "\" & .Sheets(1).Range("B3") & _
" " & Format(.Sheets(1).Range("A6"), "mmmm YYYY")
ActiveSheet.Cells(1, 1).Activate
.Sheets(1).Copy
End With
For Each MyShape In ActiveSheet.Shapes
If MyShape.AlternativeText "" Then MyShape.Delete
Next
ActiveWorkbook.SaveAs strPfaduDatei
ActiveWorkbook.Close
Range("O47:O49").Copy
Range("M47").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 1).Activate
ActiveSheet.Protect
End Sub
Sub WochenendeWeg()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
If MsgBox("Wollen Sie ein neues Monat erstellen ?", vbQuestion + vbYesNo, _
" Nachfrage Neues Monat erstellen !") = vbNo Then Exit Sub
'Blattname neu bestimmen
ActiveSheet.Name = Range("G1")
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
Dim Text As String ''
Dim a, datum
Dim quellwks As Worksheet
Dim zielwks As Worksheet
Set quellwks = Sheets(1)
datum = Date
a = Range("H1").Value + 1
If Date