hallo Nepumuk...
Ich habe jetzt die notwendigen Macros zusammen gestellt und auf meine Bedürfnisse geändert !
Könnt ihr mal drüberschauen ob sie verbesserungswürdig sind ??
Start Zeitgesteuerter Macros " Namen werden Morgen zugewiesen "
Option Explicit
Private Sub Workbook_Open()
Application.OnTime TimeValue("00:35:00"), "copy"
Application.OnTime TimeValue("00:35:10"), "bo"
Application.OnTime TimeValue("00:35:20"), "ks"
Application.OnTime TimeValue("00:35:30"), "copy"
End Sub
Hier werden Tabellen geöffnet und unter anderem Namen gespeichert !
Sub bo()
ChDir "C:\"
Workbooks.Open FileName:="C:\BO.xls"
Dim sFile As String
sFile = "c:\TCS\Bochum\BO-OE" & Format(Now, "YY-MM-DD hh-mm-ss") & ".xls"
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close
End Sub
Sub ks()
ChDir "C:\"
Workbooks.Open FileName:="C:\KS.xls"
Dim sFile As String
sFile = "c:\TCS\Kassel\KS-OE" & Format(Now, "YY-MM-DD hh-mm-ss") & ".xls"
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close
End Sub
Hier werden alle Daten aus einer bestimmten Datei in die andere Kopiert !
Sub copy()
Application.DisplayAlerts = False
ChDir "C:\"
Workbooks.Open FileName:="C:\Data.xls"
ChDir "C:\"
Workbooks.Open FileName:="C:\Auswertung.xls"
Application.Wait Time + TimeSerial(0, 0, 11)
Dim spalte As Long, LZeile As Long
Windows("Data").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.copy
Windows("Auswertung").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
LZeile = Workbooks("Auswertung").Sheets("Tabelle1").[a65536].End(xlUp).Offset(1, 0).Row
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A65536").End(xlUp).Offset(1, 0).Select
Windows("Data").Activate
ActiveWorkbook.Close
Windows("Auswertung").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
vielen Dank für all die Hilfe
gruß
der
thomas :-)