Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen aus Ordner kopieren und umbenennen

Tabellen aus Ordner kopieren und umbenennen
09.08.2005 14:27:06
Olli
Hallo Leute,
hab da mal ne Frage und hoffe, Ihr könnt mir helfen.
Ich muss jede Woche einen neuen Ordner in einem Verzeichnis anlegen und dort 10 vorhandene Tabellen reinkopieren. Das Umständliche an der Geschichte ist, dass die Dateinamen in Abhängigkeit des neuen Ordners jedesmal geändert werden müssen und zwar enden alle Tabellen mit der Kalenderwoche. Momentan benenne ich dann Tabelle für Tabelle um...geht das nicht auch anders? Da ja alle Tabellen die gleiche Zahl bekommen im neuen Ordner....
Wäre toll, wenn wer ne Idee hätte...
Gruß
Olli

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen aus Ordner kopieren und umbenennen
09.08.2005 15:23:30
MichaV
Hallo Oli
1. Tabelle = Excel- Datei?
2. Wo liegen die Dateien (woher nimmt das Makro die 10 Dateien)?
Kopieren und gleichzeitig Umbenennen von Dateien geht mit der FileCopy- Anweisung.
Gruss- Micha
PS: Rückmeldung wäre nett.
AW: Tabellen aus Ordner kopieren und umbenennen
09.08.2005 15:28:17
Olli
Hallo Micha,
es gibt einen Oberordner, in dem befinden sich die weiteren Ordner. Zum einen ein Ordner mit den Originaldateien und entsprechend eine Vielzahl von weiteren Ordnern, die ich bislang schon reinkopiert habe. Also Originalordner mit Excel-Mappen kopiert und umbenannt in die jeweilige Kalenderwoche. Dann die darin befindenden Excel-Dateien ebenfalls umbenannt, da allerdings immer nur die letzten beiden Ziffern (=Kalenderwoche).
Anzeige
heut nich ;o) -offen-
09.08.2005 15:57:11
MichaV
Hallo,
ich schaffs heute nicht mehr. Vielleicht hilft Dir jemand Anders schneller, darum wieder offen.
Gruss- Micha
AW: heut nich ;o) -offen-
09.08.2005 15:57:34
MichaV
Aber jetzt
10.08.2005 16:03:33
MichaV
Hallo Oli,


      
Option Explicit
Sub Kopieren()
Dim i As Integer
Dim KW As String
Dim Datum As String
Dim DateiName As String
'KW abfragen
KW = CStr(Application.InputBox("Kalenderwoche?", , , , , , , 1))
If KW = "0" Then Exit Sub
'ggf eine Null vorlegen
If Len(KW) = 1 Then KW = "0" & KW
With Application.FileSearch
  'Pfad, in dem die Dateien gesucht werden
  .LookIn = "e:\privat\tmp\"
  
  'Dateityp
  .FileType = msoFileTypeExcelWorkbooks
  
  'Unterordner
  .SearchSubFolders = False
  
  .Execute
    
  'Verzeichnis anlegen wenn nicht vorhanden
  If .FoundFiles.Count > 0 And Dir(.LookIn & "\" & KW, vbDirectory) = "" Then
      MkDir .LookIn & "\" & KW
  End If
  'alle gefundenen Dateien kopieren
  For i = 1 To .FoundFiles.Count
    DateiName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
    DateiName = Left(DateiName, Len(DateiName) - 4) & "_" & KW & Right(DateiName, 4)
    FileCopy .FoundFiles(i), .LookIn & "\" & KW & "\" & DateiName
  Next
  
  MsgBox .FoundFiles.Count & " Dateien nach " & vbCrLf & _
         .LookIn & "\" & KW & "\" & vbCrLf & _
         "kopiert.", vbInformation, "Fertig"
End With
End Sub 
Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige

301 Forumthreads zu ähnlichen Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt Kopieren ohne Shapes
ptonka

Hallo zusammen,
ich kopiere den Inhalt eines gesamten Blattes (Tabelle1) auf ein 2. Blatt (Tabelle2) um die Daten dort weiter zu verarbeiten. Nun habe ich auf Tabelle1 mehrere Schaltflächen, um Makros zu starten.
Diese werden beim kopieren (per VBA) auch mit auf das 2. Blatt kopiert.
22.07.2009 10:53:00
Thread-ID: 1090452
16 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
4
3
5
7
3
4
4
2
15
5
3
5
7
4
2
5
2
4
6
2
1
6
2
7