Anzeige Monat und Jahr beim Speichern
01.03.2016 20:32:46
chris58
Ich habe dieses Makro welches ich für diverse Sicherungen verwende. Nun möchte ich, bei der Sicherung nur das das Monat und Jahr aufscheint.
z.B.: Jänner 2016
Was muß ich beim Code ändern das dies geht. Habe alle möglichen Kombinationen schon verwendet, jedoch ohne Erfolg. Das Datum wird von einer formatierten Zelle die mit MM.JJJJ formartiert wurde, genommen.
Bitte um Hilfe
chris
Sub Sichern()
Dim i As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For i = 1 To .Worksheets.Count
If .Sheets(i).Visible Then
.Sheets(i).Copy
With ActiveSheet
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=-4163 'xlPasteValues
Application.CutCopyMode = False
Range("A1").Select 'nicht unbedingt erforderlich, nimmt aber die Zellmarkierung von _
UsedRange weg.
.Parent.SaveAs Filename:="C:\Dokumente und Einstellungen\glch\Desktop\Sommer 2016\NÖ\ _
Monatslisten\" & _
"Monatsliste_" & .Name & "_" & Format(.Range("D1"), "MM.JJJJ") & .Range("E1")
.Parent.Close
End With
End If
Next i
End With
MsgBox "Dateien wurden gespeichert"
End Sub