Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Arbeitsmappen kopieren (Datum)

Arbeitsmappen kopieren (Datum)
18.11.2004 15:35:13
Ralf
Hallo zusammen,
folgendes Problem:
In meiner 1. Arbeitsmappe befinden sich
eine Liste mit Datumsangaben (A1 bis A20).
Nun möchte ich anhand dieser Datumsangaben
Arbeitsmappen kopieren und mit einem entsprechenden
Datum benennen.
Beispiel: A1 = 01.12.04
A2 = 02.12.04
Per VBA möchte ich die Arbeitsmappe "01.12.04" kopieren (eine
neue Arbeitsmappe also) und sie mit dem Datum aus A2 benennen.
Hat da jemand ne Idee?
CU Ralf
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappen kopieren (Datum)
RALF
Moin,
habe das Thema nicht ganz verstanden....
soll aus der geöffneten Mappe ein Blatt (oder mehrere) kopiert werden oder soll eine leere Mappe mit dem entspr. Namen erstellt werden?

Sub n()
pfad = Application.GetSaveAsFilename
For i = Len(pfad) To 1 Step -1
If Mid(pfad, i, 1) = "\" Then
pfad = Left(pfad, i)
Exit For
End If
Next i
For Each zelle In [a1:a20]
If Not zelle = "" Then
datei = "Datei_vom_" & zelle
'wenn Tabelle1 in eine neue Arbeitsmappe kopiert werden soll
Sheets("Tabelle1").Copy
speichername = pfad & datei & ".xls"
ActiveWorkbook.SaveAs FileName:=speichername, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close (False)
ThisWorkbook.Activate
End If
Next zelle
End Sub

Gruß RALF
Anzeige
AW: Arbeitsmappen kopieren (Datum)
22.11.2004 12:09:01
Ralf
Hallo Ralf,
es ist so zu verstehen:
In der 1. Mappe befindet sich das Datum für einen Monat.
A1 = 01.12.04
A2 = 02.12.04
A3 = 03.12.04
usw.
In Tabelle1 befindet sich mein Tagesplan.
Diesen möchte ich jetzt kopieren und dann mit dem
entsprechenden Datum versehen. Und dieses für den ganzen
Monat.
Tabelle 1 kopieren und dann umbenennen auf 01.12.04.
Tabelle 1 kopieren und dann umbenennen auf 02.12.04.
Tabelle 1 kopieren und dann umbenennen auf 03.12.04.
usw.
Ralf
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige