Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speicherung eines Excel-Blattes

Speicherung eines Excel-Blattes
06.09.2004 09:19:03
Klaus
Hallo,
ich habe ein Problem.
Ich habe ein Excel-Tabellenblatt mit Wochenberichten, bei dem man über indirekte Adressierung mit Eingabe der Wochenzahl auf die entsprechende Woche zugreifen kann.
Ich möchte jetzt immer eine Woche seperat speichern können.
Ich hab dafür das in VBA geschrieben:

Private Sub cmdDelete_Click()
txtSpeicherort.Text = ""
End Sub


Private Sub cmdSave_Click()
Call AktivesBlattSpeichern
End Sub

Sub AktivesBlattSpeichern()
Dim SpeichernUnter As String
SpeichernUnter = txtSpeicherort
ActiveSheet.Copy
' Ersetzung der Formeln durch Werte
Cells.Copy
'Diese Zeile verursacht den Laufzeitfehler
ActiveSheet.Paste
Cells(1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cells(1, 1).Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=SpeichernUnter
txtSpeicherort.Text = ""
ActiveWindow.Close
ThisWorkbook.Activate
End Sub
Allerdings funktioniert das nicht wie erhofft.
Zwei Probleme:
1. Dieses Skript speichert das gesamte Tabellenblatt ab und nicht nur eine einzelne Woche.
2. Dieses Skript verursacht Laufzeitfehler 1004, da die Zellengröße des Originals nicht gleich groß ist.
Bin für jede Anregung dankbar.
Vielen Dank
Klaus Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherung eines Excel-Blattes
08.09.2004 12:52:43
Lars
Hallo Peter,
versuche es mal damit.
Etwas angepasst:

Sub BlattSpeichern()
Dim tbname$
tbname = InputBox("Blattname:")
If tbname = "" Then Exit Sub
WBName = InputBox("Dateiname:")
If WBName = "" Then Exit Sub
Worksheets(tbname).Copy
ActiveWorkbook.SaveAs WBName
ActiveWorkbook.Close
End Sub

müßte das gehen.
MfG Lars Jungclaus (Excel-Tuning)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige