Formel mit Jahr und Datum automatisch ersetzen

[Rabe]

Hi Willy,

Wenn ich "Dim j%, c00$" verwende, ist "For j = Range("A2") To Range("B2")" gelb hinterlegt.

für j wäre folgendes besser:

Code:

Dim j&             '! = Single, # = Double, % = Integer, & = Long, ^ = LongLong, @ = Currency, $ = String

[schauan]

Hallo Willy,

da war ich gedanklich noch bei der Jahreszahl in A1. Die ist ja im Integer-Bereich. Die Datumszahlen sind über 40.000 und damit schon ein paar Tausend raus und im Long-Bereich.

[WiK]

Hallo Zusammen,

Andre, Nobody is perfect und Ralf hat es doch wieder gerichtet.

@snb  

Nicht immer ist der kürzeste Weg der beste, ich bleibe bei der Variante. Die Leute, die damit arbeiten sollen, haben nur geringen Excelkenntnisse.

Code:

Private Sub CommandButton1_Click()
 Dim j&, c00$
c00 = "D:\Berichte\Bericht " & Right([A1], 2)
 If Dir(c00, 16) = "" Then MkDir c00
For j = [A2] To [B2]
   ActiveWorkbook.SaveAs c00 & "\" & Format(j, "yyyymmdd") & ".xlsx", 51
 Next
Application.Quit
End Sub

Deinen letzten Code, habe ich natürlich auch getestet, er erstellt nur die Dateien für dieses Jahr, es sollen aber die für das kommende Jahr erstellt werden.
Habe ihn mit meinen bescheidenen Kenntnisse angepasst. Es gib bestimmt eine bessere Variante.

Code:

Private Sub Workbook_open()
  c00 = "D:\Berichte\Bericht " & Right(Year(Date + 365), 2)

  If Dir(c00, 16) = "" Then
     MkDir c00

     For j = 1 To 366           '2016 ist ein Schaltjahr
       ThisWorkbook.SaveCopyAs c00 & "\" & Format(DateSerial(Year(Date + 365), 1, j), "yyyymmdd") & ".xlsx"
    Next
 End If
End Sub

Danke auch an alle anderen Mitwirkenden.

Gruß Willy

[snb]

oder:

c00 = "D:\Berichte\Bericht " & Right(Year(Date)+1, 2)

und

For j = 1 To 365-((year(date)+1) mod 4=0)

[Fennek]

Eine Idee: es sollte schneller gehen, wenn mit der genannten Formel die Dateiname ins Arbeitsblatt geschrieben werden und dann zusammen mit "copy vorlage.xlsx " ist ein Textfile gespeichert werden, als *.bat benannt und direkt ausgeführt wird.