Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige