Sheet nach Jahr löschen
18.01.2010 21:56:03
Heinz H
Hallo Ja Ja - Ich schon wieder
Komme immer wieder auf Sachen drauf,zum ändern
Habe das untere Makro das mir neue Sheet in einer Mappe erstellt, und speichert.
ZB. "Stundenaufzeichnung Test 2009" Hier sind alle Sheet die in G1 das Jahr zB.2009 haben.
Wenn nun ein Jahreswechsel in G1 erfolgt,wird die Mappe unter:
ZB. "Stundenaufzeichnung Test 2010" gespeichert.
Das funktioniert auch super.
Nur würden alle Sheet entfernt gehören die in G1 das Jahr 2009 haben.
Also in der Mappe zB. 2010 nur mit Sheet G1 2010.
Das bekomme ich leider nicht zuwege.
Darum BITTE ich Euch nochmals um Hilfe.
Gruß
Heinz
Option Explicit
Sub cp_wbk()
Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:="Test"
'Dim SaveAs As String
Dim aSh, nSh As String
nSh = ActiveSheet.[G1]
aSh = ActiveSheet.Name
Sheets(aSh).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nSh
Sheets(aSh).Shapes("Button 1").Delete
Sheets(nSh).ScrollArea = "$A$1:$O$52"
Application.DisplayAlerts = False 'Speichern unter aus
ActiveWorkbook.SaveAs Filename:="Stundenaufzeichnung" & " " & Sheets(nSh).Range("B3") & " " & _
_
Format(Range("G1"), "YYYY") & ".xls"
Application.DisplayAlerts = True 'Speichern unter ein
Sheets(aSh).Protect Password:="Test"
End Sub