Datum automatisch in Dateiname

Martin · 1970-01-01T00:00:00+00:00

Hallo, ich möchte einen Befehl schreiben in dem das Makro das aktuelle Datum nimmt und dieses zu einem Dateiname und (2) umwandelt. Für heute sollte dann also der Dateiname "07 April 2010 (2).xls" heissen, dann sollte das Makro überprüfen ob diese Datei existiert und wenn nicht einen Tag zurückgehen, dh dann testen ob die Datei ""06 April 2010 (2).xls" existiert. Ist dies möglich? Tausend Dank für jede Hilfe!! Meine 2 VBA Bücher bringen mich seit Stunden nicht weiter...

Jürgen, vielen Dank für deine Hilfe! Ich habe das mal eingebaut aber es passiert nicht wirklich was:

Sub test()
'Variablendeklaration
Dim wb_Quelldatei As Workbook
Dim ws_Quelldatei As Worksheet
Dim wb_Zieldatei As Workbook
Dim ws_Zieldatei As Worksheet
Dim i As Integer
Dim datum As Date
On Error Resume Next
For i = 1 To 10
If Dir("O:\Dat\XXX\02Alle\Trainee\Martin\VBA\" & Format(Date, "ddmmyyyy") & "(2)" & ".xls")  " _
" Then
Else: Dir ("O:\Dat\XXX\02Alle\Trainee\Martin\VBA\" & Format(Date - 1, "ddmmyyyy") & "(2)" & ". _
xls")
Workbook.Open
Set ws_Quelldatei = ActiveWorkbook.Sheets("Tabelle1")
Set ws_Zieldatei = ThisWorkbook.Sheets("Tabelle1")
ws_Zieldatei.Cells(i + 1, 1) = ws_Quelldatei.Cells(2, 1)
ws_Zieldatei.Cells(i + 2, 2) = ws_Quelldatei.Cells(2, 2)
'ActiveWorkbook.Close False
End If
Next i
'Drücke F9
Calculate
End Sub

Das Makro soll schauen ob eine Datei mit dem entsprechenden Datum ab heute beginnend vorhanden ist: Wenn ja, dann die 2 Werte kopieren und dabei immer eine Zeile nach unten rutschen. Wenn die Datei NICHT vorhanden ist, schauen ob eine Datei mit einem Tag zurück existiert usw. Das ganze aber nur zB 10 Mal weil sonst geht er ja bis ins Mittelalter zurück :-) Wichtig ist, dass die Tabelle in der Zieldatei stets fortgeführt wird, dh nihct nur für die letzten 10 existierenden Dateien.

Hallo,
ich bein bei meinem Problem leider nicht wirklich vorwärts bekommen: Wir gelingt einfach die Verbindung zwischen der Schleife, dem Öffnen der Datei und dann der Beendigung der Schleife nicht:

Sub test()
'Variablendeklaration
Dim wb_Quelldatei As Workbook
Dim ws_Quelldatei As Worksheet
Dim wb_Zieldatei As Workbook
Dim ws_Zieldatei As Worksheet
Dim intCounter As Integer
'On Error Resume Next
intCounter = 1
Filename = Dir("O:\Dat\5080\02Alle\Trainee\Martin\VBA\" & Date & "(2)" & ".xls")
Do While Filename = False
intCounter = intCounter - 1
Workbooks.Open (Dir)
Set ws_Quelldatei = ActiveWorkbook.Sheets("Tabelle1")
Set ws_Zieldatei = ThisWorkbook.Sheets("Tabelle1")
ws_Zieldatei.Cells(i + 1, 1) = ws_Quelldatei.Cells(2, 1)
ws_Zieldatei.Cells(i + 2, 2) = ws_Quelldatei.Cells(2, 2)
'ActiveWorkbook.Close False
Loop
'Drücke F9
Calculate
End Sub

Beim jetzigen Stand öffnet er die Datei gar nicht mehr. Ist denn die Do While-Schleife richtig oder muss ich eher die Do until-Schleife nehmen oder ist das egal? Danke für jeden Tipp!

Forumthread: Datum automatisch in Dateiname

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial