Thema: Tabellenbereich speichern


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

Hallo zusammen,

ich möchte gerne einen bestimmten Bereich des Tabellenblatts (z.B. C23 bis J50) als eine neue Tabelle abspeichern. Der einzige Haken daran ist das in der Zelle D25 der Name steht, unter dem die neue Tabelle abgespeichert werden soll. Dieser soltte natürlich automatisch ausgelesen werden.

Für Euer Tips zu dieser kniffeligen Sache bin ich Euch dankbar.
Gruß stippes

 Von: stippes Datum: 14.06.2007, 16:18

alle Antworten zu dieser Frage


Antwort 1 von fedjo vom 14.06.2007, 17:29
Hallo Stippes,
den Code in ein Modul einfügen und den Pfad anpassen.

Gruß
fedjo

Option Explicit
Sub speichen()
Dim strDateiname As String
Dim strAntwort As String
Application.DisplayAlerts = False
Range("C22:J50").Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
strDateiname = Sheets("Tabelle1").Range("D25").Value & ".XLS"
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\Admin\Eigene Dateien\" & strDateiname)
ActiveWindow.SelectedSheets.Delete
End Sub

Antwort 2 von Beverly vom 14.06.2007, 19:11
Hi,

Sub speichen()
Application.DisplayAlerts = False
Range("C22:J50").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "C:\Temp\" & Range("D25") & ".xls"
Application.DisplayAlerts = True
End Sub


Bis später,
Karin

Antwort 3 von stippes vom 15.06.2007, 11:52
Hallo Ihr beiden,

vielen Dank erst einmal für Eure schnelle reaktionen.
Habe gerade beide scripts versucht.

Bei Fidj´s Script wird leider das komplette Tabellenblatt gespeichert und die Ursprungstabelle gelöscht. Dies ist leider nicht gewollt.

Bei Karins Scrip wird zwar die range ausgewählt jedoch kann das neu erstellte Tabellenblatt nicht gespeichert werden.

Habt Ihr noch eine Idee wie man die Scripts verändern kann?

Gruß Stefan

Antwort 4 von coros vom 15.06.2007, 12:02
Hallo Stefan,

warum kann bei Karins Makro nicht gespeichert werden? Woher hast Du dese Kenntnis?

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.