Formel mit Jahr und Datum automatisch ersetzen

[Rabe]

Hi zusammen,
ich habe nochmal eine Frage, die auch Willi schon gestellt hat, aber ich glaube, ich habe die Antwort nicht verstanden:

Code:

=WENN($A3<HEUTE();'D:\Berichte\Berichte 15\[20151201.xls]Sheet1'!$B$136;"")

kann nicht in der Formel der Dateiname durch einen Zellbezug (zwei Zellen) ersetzt werden, in denen dann das Jahr und der Monat steht?

Dann muß nie wieder was in den Formeln ersetzt werden.

[schauan]

Hallo Ralf,

das würde nur mit INDIREKT gehen und das wiederum geht nicht auf geschlossene Dateien.

[WiK]

Hallo zusammen,
Ich habe mich nur doch für eine Dummydatei entschieden und bastle schon eine weile daran rum, komme aber nicht weiter.

Code:

Sub Dummydatei()
Pfadname = "D:\Berichte\"
   Pfadname = Pfadname & ActiveSheet.Range("F3")
   ChDrive Pfadname
Set fs = CreateObject("Scripting.FileSystemObject")
 Ordnervorhanden = fs.FolderExists(Pfadname)
 If Ordnervorhanden Then
   ChDir Pfadname
 Else
   Set fs = fs.CreateFolder(Pfadname)
 End If

Dieser Codeteil erstellt einen Unterordner der in F3 steht ( F3= Bericht 16 ), funktioniert.

Code:

Dim loA As Long
For loA = ActiveSheet.Range("C2") To Range("D2")
ActiveWorkbook.SaveAs Filename:= _
"D:\Berichte\" & Format(Str(loA), "00") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Next
End Sub

Dieser Codeteil erstellt die einzelnen Dateien ( C2 = 20160101  bis D2 = 20160131 ), das funktioniert auch.
Ich möchte aber, das diese Dateien in den neu erstellten Unterordner ( F3= Bericht 16 ) abgespeichert werden. Wie muss der Code geändert werden ???      
Habe nur sehr sehr bescheidene VBA Kenntnisse, die Code sind alle nur "geklaut".

Gruß Willy

[schauan]

Hallo Willy,

Du kanst im zweiten Code nach dem selben Strickmuster wie i ersten vorgehen:

Code:

...
Pfadname = "D:\Berichte\"
    Pfadname = Pfadname & ActiveSheet.Range("F3")
...
ActiveWorkbook.SaveAs Filename:= _
Pfadname & Format(Str(loA), "00") & ".xls", ...

Wenn in F3 kein "\" am Ende des Pfades ist, musst Du den noch in der Zelle oder im Code dazutun.

[WiK]

Hallo Andre,

Habe den Code geändert und in F3 ein "\" eingefügt, funktioniert super.

Danke  :23:

Gruß Willy

PS: Nur so interesse halber.

Code:

Option Explicit

Sub Dummydatei()
Pfadname = "D:\Berichte\"

Wenn man "Option Explicit" einfügt, meckert er gleich beim ersten Pfadname ?

[Rabe]

Hi Willy,

PS: Nur so interesse halber.

Code:

Option Explicit

Sub Dummydatei()
Pfadname = "D:\Berichte\"

Wenn man "Option Explicit" einfügt, meckert er gleich beim ersten Pfadname ?

er meckert nicht beim Namen des Pfades, sondern bei der Variablen "Pfadname", weil die nicht dimensioniert ist.
Schreibe in die Zeile nach dem SUB:
DIM Pfadname as STRING

und so weiter für alle Variablen (natürlich die richtigen Begriffe).
DIM loA as LONG
...

[WiK]

Hi Ralf,

Danke für deine Antwort, Sorry meine Antwort hat ein bisschen länger gedauert.
Variablen "Pfadname" ist jetzt i.O., aber bei Set ist "fs =" blau hinterlegt. Ist aber egal habe "Option Explicit" wieder raus genommen, es war ja nur interesse halber.
Der Code macht das was er sollt und es funktioniert.  

Gruß Willy

[Käpt'n Blaubär]

Hi,

Ist aber egal habe "Option Explicit" wieder raus genommen, es war ja nur interesse halber.

Der Code macht das was er sollt und es funktioniert.  [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

was Option Explicit macht und wozu es gut ist, ist Dir ja schon geschrieben worden.
Auch die Lösung, wie man vernünftig programmiert, ist Dir dort gezeigt worden.

Es stand aber nicht dort, jedenfalls kann ich mich nicht dran erinnern, gelesen zu haben,
daß es eine hervorragende Idee ist, Option Explicit wieder zu entfernen, um eigene
Programmierschlampigkeiten zu vertuschen.

[RPP63]

Hallo Peter!

Ist nur meine Meinung …
Ich sehe das mit Option Explicit ähnlich wie mit Early Binding.
Beide helfen mir, Intellisense zu nutzen.

Wenn aber aufgrund der Kompatibilität (fehlende Verweise)  Late Binding genutzt wird, macht die Variablendeklaration in meinen Augen keinen Sinn:

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

ist redundant und hat keinerlei Vorteile.
Ich habe Beispiele in Foren gesehen, wo 20 Variablen deklariert wurden, wo eine gereicht hätte.
In diesem Fall führt sich dann auch der geringfügige Speicherplatzvorteil korrekt deklarierter Variablen selbst ad absurdum.

Ich schließe, wie ich begann:
Ist nur meine Meinung …

Ergänzung:
Wie Du bemerkt hast, verwende ich (in Foren) auch grundsätzlich Option Explicit, notwendig ist es nicht.

Gruß Ralf

[WiK]

Halllo Ralf @RPP63,

Danke für deine hilfreiche Antwort, habe den Code geändert und er läuft jetzt mit Option Explicit ohne zu meckern.  :28:

Code:

Option Explicit
Sub Dummydatei()
Dim Pfadname As String
Pfadname = "D:\Berichte\"
   Pfadname = Pfadname & ActiveSheet.Range("F3")
   ChDrive Pfadname
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim Ordnervorhanden As String
 Ordnervorhanden = fs.FolderExists(Pfadname)
 If Ordnervorhanden Then
   ChDir Pfadname
 Else
   Set fs = fs.CreateFolder(Pfadname)
 End If

Dim loA As Long
For loA = ActiveSheet.Range("C2") To Range("D2")
Pfadname = "D:\Berichte\"
   Pfadname = Pfadname & ActiveSheet.Range("F3")
ActiveWorkbook.SaveAs Filename:= _
Pfadname & Format(Str(loA), "00") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Next
For loA = ActiveSheet.Range("C3") To Range("D3")
Pfadname = "D:\Berichte\"
   Pfadname = Pfadname & ActiveSheet.Range("F3")
ActiveWorkbook.SaveAs Filename:= _
Pfadname & Format(Str(loA), "00") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Next
Application.Quit

End Sub

Gruß Willy