Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle monatlich Exportieren

Tabelle monatlich Exportieren
19.08.2005 10:38:40
Kerstin
Hallo,
ich hoffen mir kann jemand bei meinem Problem helfen. Ich habe eine Tabelle deren Zellen mit mehreren anderen Tabellen verknüpft sind. Nun möchte ich dass diese Tabelle jeweils am Monatsende in eine neue Datei (Monatsstatistik.xls) in ein jeweils neues Tabellenblatt mit der Monatsbezeichnung (z.B. August 05) exportiert wird und die Werte der Zellen nicht mehr verknüpft sind.
Ist das überhaupt so möglich? Für jede Hilfe würde ich mich freuen.
Grüße
Kerstin R.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle monatlich Exportieren
19.08.2005 11:23:19
u_
Hallo,
es wird das aktive Blatt exportiert. Monatsstatistik.xls muss im gleichen Ordner sein wie die Auswertung

Sub exportieren()
Dim wkbStat As Workbook, wksAkt As Worksheet
Set wksAkt = ActiveSheet
Set wkbStat = Workbooks.Open(ThisWorkbook.Path & "\Monatsstatistik.xls")
wksAkt.Copy after:=wkbStat.Sheets(wkbStat.Sheets.Count)
ActiveSheet.Name = Format(wksAkt.Cells(2, 1), "MMMM YY")
With ActiveSheet.Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
wkbStat.Close True
End Sub

Gruß
Geist ist geil!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige