Formel mit Jahr und Datum automatisch ersetzen

[Rabe]

Hi Willy,

Jetzt fehlt nur noch, sollte der neu zuerstellende Ordner schon vorhanden sein, läuft der Code weiter.( z.Z.  ist dann MkDir c00 gelb hinterlegt)

was soll der Code sonst machen? Das ist doch sinnvoll, daß dann die Dateien in das gewünschte Verzeichnis gespeichert werden.

Abbrechen?

Code:

If Dir(c00) = "" Then MkDir c00
Else
Exit Sub
End If

[snb]

Code:

If Dir(c00) = "" Then MkDir c00
Else
Exit Sub
End If

Das ist falsche code.

Code:

If Dir(c00) = "" Then MkDir c00

diese Zeile ist notwendig und reicht und darf nicht geändert werden.

[Rabe]

Hi,

Das ist falsche code.

Code:

If Dir(c00) = "" Then MkDir c00

diese Zeile ist notwendig und reicht und darf nicht geändert werden.

Solche absoluten Aussagen regen immer zum Widerspruch an!
Warum ist das falscher Code?
Warum darf es nicht verändert werden?

Was ist, wenn das Verzeichnis schon vorhanden ist und nicht benutzt werden soll?

Ich sehe es immer noch so:

Code:

If Dir(c00) = "" Then
   MkDir c00
Else
   Msgbox("Verzeichnis " & c00 & " schon vorhanden, bitte ändern!")
   Exit Sub
End If

[WiK]

Hallo Zusammen,

Sorry ich habe mich falsch ausgedrückt.

Ist der neu zuerstellende Verzeichnis schon vorhanden, läuft der Code nicht weiter und  MkDir c00 ist gelb hinterlegt.

Die Dateien sollen in das gewünschte Verzeichnis gespeichert werden, auch wenn es schon vorhanden ist.

Ralf bei den neuen Teilcode kommt der Fehler "Else ohne If"

Gruß Willy

[schauan]

Hallöchen,

bei diesem Konstrukt:

Code:

If Dir(c00) = "" Then MkDir c00
Else
Exit Sub
End If

Ist der Fehler programmiert.
Wenn in der ersten Zeile nix geändert werden darf, dann darf man auch keine Else und kein End If drunter schieben.

[Kuwer]

Hallo Willy,

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

ohne folgendes Else End If .

Gruß Uwe

[WiK]

Hallo Uwe,

Danke, funktioniert super.

Danke auch an alle anderen Mitwirkenden.

:100:  :100:  :23:  :23:

Gruß Willy

[Rabe]

Hi,

Danke, funktioniert super.

was mir noch auffällt:
Die Datei hat am Schluß den Namen der zuletzt gespeicherten Datei, enthält aber die Makros und darf deswegen nicht nochmal unter diesem Namen gespeichert werden.
Es fehlt also noch die Speicherung unter dem ursprünglichen Namen, oder das Schließen ohne weiteres Speichern.

Code:

     ThisWorkbook.Close savechanges:=False

[WiK]

Hallo Ralf,

Das kann ich nicht nachvollziehen. Vielleicht liegt es daran, das ich meine Dateien als Datum (20160101) erstellen lasse und Excel dann beendet wird.
Habe meine Datein angehangen.

Gruß Willy

[snb]

Man braucht nur Zelle A1:

Code:

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

  For j = 0 To 1
    ActiveWorkbook.SaveAs c00 & "\" & Format(DateSerial([A1] + j, 1, 1 - j), "yyyymmdd") & ".xlsx", 51
  Next
  ActiveWorkbook.Close 0
End Sub