Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Tabellenbereich speichern





Frage

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

Antwort 1 von fedjo

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

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

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

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.

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: