Problem mit Formel und Speichern
01.09.2004 09:24:51
Peter
habe Gestern in Eurem Forum eine Formel erhalten mit der ich per Knopfdruck die letzten beiden Blätter in meiner Arbeitsmappe speichern kann in einem bestimmten verzeichniss. In diesem Tabellenblatt befinden sich Statistiken.
Die Werte für die Statistik werden aus den anderen Tabellen (die nicht mit Kopiert werden) mit Formeln berechnet. Dies dient dazu das ich in einem bestimmt Ordner die Aktuellen Statistiken jeder Woche speicher mit dem aktuellen Datum. Das Problem ist, wenn ich das speicher und die Kopie erstellt wird von den beiden Arbeitsblättern kopiert er die Formel mit die sich in den Tabellen befinden. Beim öffnen der STatistiken findet er dann die gesuchten Werte nicht. Kann man den Code so verändern, dass er nur die Werte kopiert und nicht die Formel mit, damit man von jeder Woche die Werte nachschauen kann.
Hoffe ihr versteht mein Problem und wisst vielleich rat.
Hier der VBA Code:
Sub speich_unter()
Workbooks(1).Sheets(6).Copy
Workbooks(1).Sheets(7).Copy Workbooks(2).Sheets(1)
ChDir "R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\2005"
a = InputBox("Speichernamen" & Chr$(13) & Chr$(10) & Chr$(10) & _
"04 (JAHR) 10 (Monat)" & Chr$(13) & Chr$(10) & Chr$(10) & "Jahr und Monat in Ziffern" _
& Chr$(13) & Chr$(10) & Chr$(10) & "Speicherort R:\T2\T2S\T2S-Personaldaten\T2S-Statistik\2005" _
, "Name eingeben", "")
ActiveWorkbook.SaveAs Filename:=a, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Vielen Dank für Eure hilfe im Vorraus
Gruß Peter