Speichern unter mit Datum und Kennung
26.01.2005 16:13:34
Reinhard
ich möchte über einem Excelmenüarbeitsblatt mittels Schaltflächen eine schreibgeschütze Masterdatei, die für mehrere Montagelinien gültig ist, aufrufen [z.B. OML.XLS]. Diese aufgerufene Datei soll jetzt entsprechnend der Menüauswahl mit Datum "yymmdd" und einer zuerzeugenden Schichtkennung "F,S,N" für Früh-, Spät, Nachtschicht in dem entsprechnenden Maschinenverzeichnis angelegt werden.
Aufruf:
x:\laufzeiterfassung\menue.xls
x:\laufzeiterfassung\OML.xls
Abspeicherung bei Auswahl OML 1:
x:\laufzeiterfassung\OML_1\O1_YYMMDD_n.xls
"n" steht für Frühschicht F = 06:00-14:00 Uhr
für Frühschicht S = 14:00-22:00 Uhr
für Frühschicht N = 22:00-06:00 Uhr
Abspeicherung bei Auswahl OML 2:
x:\laufzeiterfassung\OML_2\O2_YYMMDD_n.xls
Makroaufruf in Menue.xls
Sub OML1()
Workbooks.Open Filename:="X:\Laufzeiterfassung\OML.xls"
Set Zelle = ActiveSheet.Range("b5")
With Zelle
.Value = Now
.NumberFormat = "dd/mm/yy"
.Value = DateValue(Zelle.Value)
End With
End Sub
Jetzt soll die Masterdatei im o.g. Format im entsprechenden Verzeichnis abgespeichert werden.
MfG
Reinhard