Blatt Monatlich zum 1. speichern
05.07.2004 14:52:25
Andreas
Sub SicherungMonat()
Dim i as Integer
For i = 1 To Sheets.Count
If Sheets(i).Name = Format(Date, "MMM-YY") Then Exit Sub
Next i
If Date Like "01.*" Then
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "MMM-YY")
End If
End Sub
Habe gerade diesen Code getestet, (bekam ich dankenswerter weise von
Christoph M) was mache ich falsch?
Ich habe ihn in der Arbeitamappe(VBA) eingegeben, dann im Blatt, habe dann im Datum (system) einen Monat verstreichen lassen aber nix passierte.
Mache ich einen Fehler?
Abschließend eine Frage, wie erreiche ich, das nur die Daten Monatlich gespeichert werden, die sich verändert haben?
Gruß
Andreas