HILFEEE Tabellenblatt kopieren und speichern

Sub speichern() ChDir "G:\USER\WB5\Bewohner" Dim Dateiname Dateiname = Application.GetSaveAsFilename(InitialFileName:="LN & PZB_" & ActiveWorkbook.Sheets("Name").Cells(12, 2).Value & "_" & _ Date & ".xls", _ fileFilter:="alle Dateien (*.*), *.*") If Dateiname <> False Then meineansicht MsgBox "CareArrange wird jetzt beendet" ThisWorkbook.SaveAs Dateiname normalansicht End If Application.Quit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim fso As Object Dim f As Object Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile ActiveWorkbook.Path f.Close False f.Attributes = f.Attributes + 1 Set f = Nothing Set fso = Nothing

Hi Ingolf,
in meiner Arbeitsmappe gibt es obigen "sub" zum speichern der gesamten Mappe! Während dieses Vorganges soll automatisch eine Kopie von der Tabelle ("DV_Zeit") mit eigenständigen Namen an einem anderen Ort im Netzwerk kopiert werden, wie folgt:
>> "PZB_(Eintrag aus Sheets("Name").cells (12, 2)) & Date.xls auf G:\User\PDL\Bewohner Diese "neue" Arbeitsmappe soll nur dorthin "kopiert" werden ohne das ich die Speicherung bestätigen muß oder den Speicherpfad angeben muß. Sie soll sich auch nicht öffnen.
Quasie wirklich nur als Kopie dort abgelegt werden.
Für den User soll nur der 1. Speichergang ("sub" speichern())sichtbar sein. Die Kopie ist für einen anderen User relevant, die er dann zu einem anderen Zeitpunkt ansehen kann.
In der Arbeitsmappe íst kein Code vorhanden, sie soll allerdings mit Schreibschutz und versehen werden und ohne Makros gespeichert werden.
Vielleicht ist noch wichtig zu Wissen das es im eigentlichen Workbook einen Code gibt der alles in Excel ausschaltet (wie folgt)


Sub meineansicht()
' mausscrollbereich festlegen
Sheets("Name").ScrollArea = "A$1:$H$39"
Sheets("Auswahl").ScrollArea = "A$1:$R$36"
Sheets("Zeiterfassung").ScrollArea = "A$1:$W$42"
Sheets("MDK").ScrollArea = "A$1:$E$36"
Sheets("Erläuterung").ScrollArea = "A$1:$M$30"
Sheets("Erschwernisfaktoren").ScrollArea = "A$1:$K$32"
' alle Spalten- und Zeilenköpfe ausblenden
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = False
Next I
Application.ScreenUpdating = True
Sheets(1).Activate
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False
Application.DisplayScrollBars = False
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
End Sub

Dieser Code soll aber in der Tabelle ("DV_Zeit") zurück gesetzt werden, in der eigentlichen Arbeitmappe kann ich das so machen:


Sub normalansicht()
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = True
Next I
Application.ScreenUpdating = True
Sheets(1).Activate
Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
'bildlaufleiste und Karteireiter
Application.DisplayScrollBars = True
'Menü
Application.CommandBars("Worksheet Menu Bar").Enabled = True
'kontextmenü_maus
Application.CommandBars("Cell").Enabled = True
Me.Saved = True
End Sub

Ich hoffe Du oder auch andere konntet mir folgen.
Gruß und Dank
Holger

Beliebteste Forumthreads (12 Monate)

HILFEEE Tabellenblatt kopieren und speichern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

HILFEEE Tabellenblatt kopieren und speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread