Formel mit Jahr und Datum automatisch ersetzen

[Rabe]

Hi,

Man braucht nur Zelle A1:

Nicht ganz:
wenn ich es mit Deinem Makro mache, werden nur die beiden Datein vom 1.1. und vom 31.12. erstellt und nicht auch alle dazwischen, wie beim anderen Code.

[WiK]

Hallo Ralf,

Stimmt, Du warst nur schneller, mein Internet spinnt heute.

Weißt du was bei "If Dir(c00, 16) = "" Then MkDir c00" die 16 bedeutet, von 16 bis 23 funktioniert es auch (von 1 bis 15 funktioniert es nicht).

Gruß Willy

[Kuwer]

Weißt du was bei "If Dir(c00, 16) = "" Then MkDir c00" die 16 bedeutet, von 16 bis 23 funktioniert es auch (von 1 bis 15 funktioniert es nicht).

Hallo Willy,

   

Gruß Uwe

[WiK]

Danke Uwe,

habe sogar die Bibliothek gefunden.

Gruß Willy

[snb]

Code:

Sub M_snb()
  y=[A1]
  c00 = "D:\Berichte\Bericht " & Right(y, 2)
  If Dir(c00, 16) = "" Then MkDir c00

  For j = DateSerial(y, 1, 1) To DateSerial(y, 12, 31)
    ActiveWorkbook.SaveAs c00 & "\" & Format(j, "yyyymmdd") & ".xlsx", 51
  Next
  ActiveWorkbook.Close 0
End Sub

[Rabe]

Ist das nicht dasselbe wie:

Code:

Sub M_snb()
 y=[A1]
 c00 = "D:\Berichte\Bericht " & Right(y, 2)
 If Dir(c00, 16) = "" Then MkDir c00

 For j = Range("A1") To Range("B1")
   ActiveWorkbook.SaveAs c00 & "\" & Format(j, "yyyymmdd") & ".xlsx", 51
 Next
 ActiveWorkbook.Close 0
End Sub

? Wobei ich dieses Makro flexibler finde.

[schauan]

Hallo Ralf,

Hinsichtlich flexibel wäre noch was zu tun. Da sollte in der Schleife A2 und B2 stehen ...
Würde ich im Prinzip auch so handhaben. Wenn mal mittendrin irgendein Fehler auftritt und schon etliche Daten erstellt sind, dann kann man in A2 ein neues Startdatum eingeben und an der Stelle weitermachen. Ich würde dazu aber noch in einer Zelle den "Iststand" ausgeben, damit ich nicht lange nach dem letzten Datum suchen muss. y hab ich rausgenommen, wegen einer Verwendung würde ich keine Variable einsetzen.

PHP-Code:

Sub M_snb()
  Dim j%, c00$
  c00 = "D:\Berichte\Bericht " & Right([a1], 2)
  If Dir(c00, 16) = "" Then MkDir c00
  For j = Range("A2") To Range("B2")
    ActiveWorkbook.SaveAs c00 & "\" & Format(j, "yyyymmdd") & ".xlsx", 51
    Cells(2, 3) = ActiveWorkbook.name
  Next
  ActiveWorkbook.Close 0
End Sub 


[WiK]

Hallo Andre,

Wenn ich "Dim j%, c00$" verwende, ist "For j = Range("A2") To Range("B2")" gelb hinterlegt.
Nehme dafür aber "Dim c00 As String und Dim j As Long" läuft der Code durch.

@snb

Bei deinen Code, habe ich noch "Dim y As String" eingefügt, sonst bleibt der Code bei "y = [A1]" hängen und y ist blau hinterlegt.

Diesen Makro finde ich auch besser  ( flexibler ). Es brauch nur was in A2 und B2 geändert werden und nicht im Makro.

Code:

c00 = "D:\Berichte\Bericht " & Right([a1], 2)
 If Dir(c00, 16) = "" Then MkDir c00
 For j = Range("A2") To Range("B2")

Gruß Willy

[Rabe]

Hi André,

Hinsichtlich flexibel wäre noch was zu tun. Da sollte in der Schleife A2 und B2  stehen ...

ja, klar.
Ich wußte, ich wollte vor dem posten noch was ändern.

[snb]

Zu diesem Zweck braucht man weder ein Arbeitsblatt, noch 'option explicit'

Code:

Private sub Workbook_open()
   c00 = "D:\Berichte\Bericht " & Right(year(date), 2)

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

      For j = 1 to 365
        ThisWorkbook.SaveCopyAs c00 & "\" & Format(dateserial(year(date),1,j), "yyyymmdd") & ".xlsx"
     Next
  end if
End Sub