Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei kopieren und nach Zelle benennen

Datei kopieren und nach Zelle benennen
27.11.2014 15:36:42
Lisa
Hallo zusammen.
ich würde gerne Datei "X" von \OrdnerA\ nach \OrdnerB\ kopieren.
In Zelle A1 vom Blatt1 steht das morgige Datum.
Die kopierte Datei soll nun nach A1 in Blatt1 benannt werden, sprich in etwa so:
"TTT_MM_JJ_X"
Ich habe bereits versucht eine neue Datei in \OrdnerB\ zu erstellen und alle Blätter einfach zu kopieren, bin daran aber bisher gescheitert und komme einfach nicht weiter, daher dachte ich, dass das simple kopieren der Datei vll ein besserer Ansatz sein dürfte.
Leider funktioniert der makro-recorder beim kopieren ja nicht :/

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
FileCopy
27.11.2014 18:11:38
Christian
Hallo Lisa,
das geht mit der FileCopy-Methode - siehe VBA-Hilfe
Des Weiteren würde ich bei Datum im Dateinamen zwecks Sortierung "JJJJ-MM-TT_XYZ" empfehlen. Ist aber Geschmacksache.
Bsp: 
Option Explicit
Sub TestIt()
Dim strOldFile As String
Dim strNewFile As String
strOldFile = "D:\Pfad\Alt\abc.xls"
strNewFile = "C:\Pfad\Neu\" & ThisWorkbook.Sheets("Tabelle1").Cells(1, 1) & ".xls"
FileCopy strOldFile, strNewFile
End Sub
Grüße
Christian

AW: FileCopy
02.12.2014 13:06:49
Lisa
Vielen Dank Christian,
Ich habe es ein wenig angepasst, aber es funktioniert noch nicht :/
Private Sub Abspeichern_Click()
Dim Datei_Neu  As String
Dim Datei_Alt  As String
Datei_Alt = "G:\Day-Ahead Prognose\PrognoseV2.xlsm"
Datei_Neu = "G:\Day-Ahead Prognose\Tagesprognose\" & ActiveWorkbook.Sheets("Prog_Master"). _
Cells(1, 1) & ".xlsm"
FileCopy Datei_Alt, Datei_Neu
End Sub

Verstehe ich das Vorgehen richtig, dass bei Datei_Neu quasi "PrognoseV2.xlsm" eingelesen wird und diese Datei dann nach "G:\Day-Ahead Prognose\Tagesprognose\" kopiert wird und unter "PrognoseV2.xlsm" & ActiveWorkbook.Sheets("Prog_Master").Cells(1, 1) & ".xlsm" abgespeichert wird?
das würde doch dann aber in etwa so aussehen, oder?
"G:\Day-Ahead Prognose\Tagesprognose\PrognoseV2.xlsm2014_12_03.xlsm"
Jedenfalls kommt die Fehlermeldung:
"Laufzeitfehler '70
Zugriff verweigert"
Die Datei ist aber nicht schreibgeschützt oder Passwort gesichert...
Liebe Grüße,
Lisa

Anzeige
AW: FileCopy
02.12.2014 17:33:35
Christian
Hallo Lisa,
vielleicht hast du meinen Hinweis auf die VBA-Hilfe ja übersehen. Dort heißt es:
Bemerkungen
Wenn Sie mit der FileCopy-Anweisung eine momentan geöffnete Datei kopieren möchten, tritt ein Fehler auf.
Des Weiteren:
- wird mit ThisWorkbook.Sheets("xyz").Cells(1, 1) & ".xls" nicht der Dateiname der alten Datei in den neuen Dateinamen übernommen, sondern damit holst du den Eintrag der Zelle "A1" im Tabellenblatt "xyz" in dieser Datei (in der das Makro enthalten ist).
- Wenn du statt dessen "ActiveWorkbook" schreibst, wird die Mappe genommen, die gerade aktiviert ist. Wenn es dort kein Tabellenblatt namens "xyz" gibt, dann wird es wieder einen Fehler geben. Und falls es das Blatt gibt, dort in Zelle A1 aber "was anderes" drinsteht, dann heißt deine kopierte Datei eben "was anderes.xls".
Wie du siehst - du musst stets wissen, was du machst.
Gruß
Christian

Anzeige
AW: FileCopy
03.12.2014 11:16:50
Lisa
hmmm... Die VBA Hilfe habe ich tatsächlich nicht registriert.
Wenn man allerdings die momentan geöffnete Datei unter einem anderen Pfad abspeichern will und zwar mit "X" und dem Datum, das aus einer Zelle entnommen werden soll - Wie soll das denn gehen?
mit der Workbook.SaveAs-Methode, sehe ich keine Möglichkeit den Pfad anzugeben, ist das richtig?
[ Ich habe shcon verstanden, dass ThisWorkbook.Sheets("xyz").Cells(1, 1) & ".xls" den Zellinhalt rauszieht und ".xls" anfügt und somit die Datei erstellt und nach dem Zellinhalt benennt. Habe wahrscheinlich das FileCopy-Prinzip mit Source und Destination falsch verstanden. ]

Anzeige
AW: FileCopy
03.12.2014 11:27:32
Lisa
Hi Christian,
Habe eben herausgefunden, dass man mit .CopyFile aktive Dateien kopieren kann. Aber wie benenne ich diese nun noch nach dem Zellinhalt um?
Dim FsyObjekt As Object
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
FsyObjekt.CopyFile "d:\eigene dateien\eigene tabellen\Jackpot.xls", "d:\eigene dateien\eigene dokumente\"

SaveAs und FileSystemObject.CopyFile
03.12.2014 17:51:18
Christian
hallo Lisa,
ursprünglich wolltest du eine Datei kopieren - und auch bis jetzt kann ich nur vermuten, dass du die aktuelle Datei meinst, in der du gerade arbeitest.
Zu SaveAs:
mit der Workbook.SaveAs-Methode, sehe ich keine Möglichkeit den Pfad anzugeben, ist das richtig?
Nein, das ist nicht richtig - siehe VBA Hilfe zu "SaveAs".
Bsp: 

Option Explicit
Sub TestIt()
Dim strPath As String
Dim strFile As String
strPath = "C:\Neu\"
strFile = ThisWorkbook.Sheets("Tabelle1").Cells(1, 1).Value & ".xls"
ThisWorkbook.SaveAs strPath & strFile
End Sub
Wenn du aber das aktuelle Workbook mit SaveAs speicherst, arbeitest du anschließend in dieser erstellten Kopie - genau wie bei "Speichern unter ..."
Zu FileSystemObject:
Mit der CopyFile-Methode des FileSystemObject erreichst du wohl das was du willst. Und auch hier kannst du den Dateiname mit angeben - siehe MSDN-Library: http://msdn.microsoft.com/de-de/library/e1wf9e7w%28v=vs.84%29.aspx
Bsp: 

Option Explicit
Sub TestIt_2()
Dim objFSO As Object
Dim strPath As String
Dim strFile As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
strPath = "C:\Neu\"
strFile = ThisWorkbook.Sheets("Tabelle1").Cells(1, 1).Value & ".xls"
objFSO.CopyFile ThisWorkbook.FullName, strPath & strFile
Set objFSO = Nothing
End Sub
kommst du damit klar?
Gruß
Christian

Anzeige
AW: FileSystemObject.CopyFile -->CreateFolder
09.12.2014 14:18:15
Lisa
Hi Christian.
Genau so habe ich es nun auch gelöst...
zumindest so ähnlich :D

Private Sub Abspeichern_Click()
Dim Tag As Variant
Dim Monat As Variant
Dim Jahr As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Tag = Day(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Monat = Month(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Jahr = Year(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Zielpfad = "D:\Tagesprognose\" & Jahr & "_" & Monat & "\"
'Prognose wird abgespeichert
Windows("Prognose.xlsm").Activate
Sheets("Prog_Master").Activate
If Tag
allerdings habe ich jetzt noch das Problem, einen Ordner für jeden Monat zu erstellen.
Ich bin bisher soweit, dass es einen Ordner nach dem Datum erstellt und die Datei darin abspeichert: 
fso.createfolder ("D:\Tagesprognose\" & Jahr & "_" & Monat)
Nun bin ich dran eine Abhängigkeit einzubauen, die prüft ob der Ordner bereits vorhanden ist.
Im Prinzip wie folgt:
Prüfe ob Ordner vorhanden ist
->nein
->Erstelle Ordner (wie oben beschrieben)
->ja
->speicher Datei in bestehenden Ordner ab

Anzeige
AW: FileSystemObject.CopyFile -->CreateFolder
09.12.2014 14:42:03
Lisa
Kurzes Update:
war einfacher als gedacht und v.a. als überall recherchiert :D
If Not fso.FolderExists(Zielpfad) Then
fso.createfolder ("D:\Tagesprognose\" & Jahr & "_" & Monat)
End If
jetzt nur noch die Monate

AW: FileSystemObject.CopyFile -->CreateFolder
09.12.2014 15:27:16
Lisa
funktioniert soweit alles =)
    Dim Tag As Variant
Dim Monat As Variant
Dim Jahr As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Tag = Day(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Monat = Month(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
Jahr = Year(ThisWorkbook.Sheets("Prog_Master").Range("A1"))
If Monat

umständlich... aber funktioniert :)
Gruß an alle, denen das hier weiter hilft.
(und natürlich an Christian, vielen Dank)
Anzeige

313 Forumthreads zu ähnlichen Themen

VBA umbenennen eines Tabellenblattes
Jean

Hallo,
wie lässt sich denn per VBA mit Hilfe einer Inputbox der bisherige Tabellenname Tabelle1
a. in der Mappe mit dem Makro umbenennen
b. der Tabellenname einer anderen Mappe (zb. Kunden.XLS in D:\) umbenennen?
Gruß
Jean
21.11.2009 08:42:48
Thread-ID: 1119008
10 Beiträge
Anzeige
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
In VBA Editor Tabellen umbenennen
Heinz

Guten morgen im Forum
Wenn ich den VBA Editor öffne sehe ich:
Tabelle 1 ("Jänner") Tabelle 2 ("Februar") usw..
Meine Frage: Hat das umbenennen von Tabelle 1 in "Jänner" irgend eine Auswirkung auf VBA Codes usw..?
Gruß
Heinz
30.11.2012 09:38:50
Thread-ID: 1288676
3 Beiträge
Anzeige
Tabellenblätter automatisch nach Zellen benennen
Fabian

Hallo
ich brauche für meine Excel-Tabelle ein Makro, das automatisch den Namen mehrerer Tabellenblätter ändert, sobald ich den Wert einer Zelle ändere.
In der Tabelle 1 trägt man ein Jahr ein, das in den einzelnen Blättern (5-16) für die Monate (August - Juli) von einem Datum in einen T...
16.04.2015 11:40:20
Thread-ID: 1421170
2 Beiträge
Eingabe in Tabellenblatt nicht möglich
Martin

Hallo Lieber Forummitglieder,
ich habe folgendes Problem. Ich habe eine Abfragetabelle in Excel erstellt bei der man in bestimmten Zellen Werten eingeben muss.
Bspw. Blechstärke = 2,0mm
Ich hab zudem noch einige Steuerelemente in dieser Datei. Problem machen mir dabei die Auswahlst...
28.09.2015 12:49:53
Thread-ID: 1449739
9 Beiträge
Tabellenblätter nach nächstem Monat benennen
Andreas

Guten Abend,
vermutlich ist das Ganze recht simpel, dennoch komme ich nicht drauf und die Suchfunktion hat mir bisher auch nicht wirklich weitergeholfen.
Ich möchte einfach per Mausklick das aktuelle Tabellenblatt ans Ende kopieren und es soll als Namen den des nächsten Monats haben.
22.12.2016 17:21:47
Thread-ID: 1531489
7 Beiträge
VBA Tabellenblätter umbenennen
Georg

Folgenden Code kann man doch sicherlich vereinfachen, kriegs aber nicht richtig hin.
Versuch war schon mit i = 3 to x, aber wie dann die C8,9 etc unterkriegen?
DANKE Sub RegRename() ThisWorkbook.Activate Sheets(3).Select Sheets(3).Name = Sheets(1).Range("C8") Sheets(4).Select Sheets(4...
25.01.2017 10:29:24
Thread-ID: 1537235
4 Beiträge
Tabellenblätter über Liste umbenennen VBA
Kisska

Schönen Abend,
ich habe sehr viele Tabellenblätter, deren Namen ergänzt oder geändert werden sollten.
Ist es möglich, mittels VBA zunächst eine Liste zu erzeugen, die alle Tabellenblätter auflistet, und dann die manuell korrigierte Liste quasi zurückspielt?
Beispiel: 3 Tabellenblätt...
25.05.2017 00:33:25
Thread-ID: 1560330
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
7
2
23
1
8
6
3
7
1
13
3
5
1
5
1
2
1
8
2
5
5
3
1