Text statt Datum
22.02.2016 01:08:15
chris58
Ich würde bei einem bestehenden Makro statt des Datums beim sichern, die Felder A5 und B5 bei der Sicherung benötigen.
Kann mir bitte wre sagen, was ich da eingeben muß.
Danke
Hier das Makro:
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.
.Cells(.Rows.Count, 4).End(xlUp).Offset(2, 0).Resize(1, 3).FormulaR1C1 = "=Sum(R1C:R[-2]C)"
.Parent.SaveAs Filename:="C:\Dokumente und Einstellungen\0000\Desktop\Sommer\Dienstpläne\ _
Monatskopien\" & _
"Monatsliste_" & .Name & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
.Parent.Close
End With
End If
Next i
End With
MsgBox "Dateien wurden gespeichert"
End Sub
Anzeige