Formatierung nicht möglich
chris58
ich habe ein Problem bei der Formatierung. Ich übertrage die gesamte Liste in einen Ordner mit dem u.a. VAB-Code. Auf der Originalliste ist das Datum noch in Ordung. Wenn ich jedoch die gesicherte Liste einsehe, dann sind die Datums lt. beigefügter Datei einmal in Deutsch und dann wieder in English geschrieben. Ich kann diese auch nicht umformartieren. Ich ersuche um Hilfe.
Danke
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.Value = .UsedRange.Value
.Cells(.Rows.Count, 6).End(xlUp).Offset(2, 0).Resize(1, 13).FormulaR1C1 = "= _
_
_
Sum(R1C:R[-2]C)"
.Parent.SaveAs Filename:="C:\Dokumente und Einstellungen\artner\Desktop\ _
Summerer 2011\Monatslisten alle Buchungen\" & _
"Monatsliste_" & .Name & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
.Parent.Close
End With
End If
Next i
End With
MsgBox "Dateien wurden gespeichert"
End Sub