Datum automatisch in Dateiname

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Dateiname() If Dir("C:\Temp\" & Format(Date, "dd mm yyyy") & "(2).xls") "" Then MsgBox "C:\Temp\" & Format(Date, "dd mm yyyy") & "(2).xls" ElseIf Dir("C:\Temp\" & Format(Date, "dd mm yyyy") & "(2).xls") "" Then MsgBox "C:\Temp\" & Format(Date - 1, "dd mm yyyy") & "(2).xls" Else MsgBox "Existiert auch nicht! Was nun! ;-)" End If End Sub

ach Luc! Ich sitze fast den ganzen Tag schon an dem Makro, habe 2 Bücher und etliche Homepages durchforstet aber kam noch zu keiner Lösung. Dann viel mir ein anderer Lösungsweg ein (Datum in Dateiname) und daraufhin habe ich DER ÜBERSICHT halber einen neuen Thread aufgemacht damit es die Nachwelt auch unter diesem Stichpunkt findet. Mein Gott bist du pingelig. Ich versuche mir selbst VBA beizubringen was trotz mathematischen Studium echt nicht leicht ist, da helfen deine Nörgeleien nicht wirklich. Den anderen danke ich echt sehr herzlich für ihre Beiträge!! Mittlerweile habe ich es hinbekommen, dass er immer einen Tag zurückläuft, aber er hört nicht auf wenn er eine Datei gefunden hat obwohl er das soll :-)

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.

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 For i = 0 To 9 If Dir("O:\Dat\XXX\02Alle\Trainee\Martin\VBA\" & Format(Date - i, "dd mm yyyy") & "(2)" & ". _ xls") "" Then Workbooks.Open "O:\Dat\XXX\02Alle\Trainee\Martin\VBA\" & Format(Date - i, "ddmmyyyy") & "(2) _ " & ".xls" 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 'Drücke F9 Calculate End If Next End Sub

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

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum automatisch in Dateiname

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread