sheet sparat abspeichern

Forumthread: sheet sparat abspeichern
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: sheet sparat abspeichern

01.10.2007 01:13:40

Hallo zusammen,
ich möchte mit folgendem code ein sheet ("Anschreiben") kopieren und separat abspeichern.
Dabei sollen Briefkopf, Tabelleneigenschaften und nur die Werte der Tabelle übernommen werden ohne dass die Werte bei einer Veränderung im ursprünglichen sheet, geändert werden.
Der folgende code funktioniert auch tadellos, bis auf die Tatsache, dass eine "wenn-Funktion" in der Tabelle immer aktualisiert wird, wenn dies im ursprungs-sheet passiert.
Was ist zu ändern?


Sub speichern_beiklick()
Sheets("Anschreiben").Select
Sheets("Anschreiben").Copy
ActiveSheet.Unprotect
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
ActiveSheet.Protect
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: sheet sparat abspeichern

01.10.2007 01:31:00

Josef
AW: sheet sparat abspeichern

01.10.2007 01:40:15

a*

AW: sheet sparat abspeichern

01.10.2007 01:31:00

Josef

Hallo a* (fiese Eltern!)
Du musst einen Pfad angeben, wo die Datei gespeichert werden soll.
Sub speichern_beiklick()
Dim strPath As String

strPath = "F:\temp" 'Speicherort - Anpassen!

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

Sheets("Anschreiben").Copy

With ActiveSheet
    .Unprotect
    .UsedRange = .UsedRange.Value
    .Protect
End With

With ActiveWorkbook
    .SaveAs strPath & "Anschreiben_vom_" & Format(Now, "yyyymmdd_hhmm") & ".xls"
    .Close
End With

End Sub

Gruß Sepp

AW: sheet sparat abspeichern

01.10.2007 01:40:15

hallo josef,
danke erstmal.
das mit dem pfad angeben will ich deshalb nicht, weil die anwendung auf mehreren rechnern läuft, die wiederum auf völlig unterschiedlichen pfaden abspeichern. es genügt also, wenn sich lediglich das fenster "speichern unter" öffnet.
wie gesagt, das problem war nur, dass sich die werte der tabelle immerwieder aktualisiert hatten.
a*

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!