Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Datei mehrfach mit VBA kopieren | Herbers Excel-Forum

Excel Datei mehrfach mit VBA kopieren
02.01.2010 13:12:02
Stefan

Hallo Forum,
habe mir eine Excel Datei/Vorlage angelegt , die aus mehreren Tabellen besteht.
Diese möchte ich jetzt in einen anderen Ordner 450 mal kopieren und dabei soll die Nummerierung
mit 115 aufsteigend erfolgen.
Gibt es hierfür eine passende Makro, mit der ich mir diese Arbeit erleichtern könnte ?
Würde mich sehr über Hilfe freuen.
In vorraus viele Dank
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Excel Datei mehrfach mit VBA kopieren
02.01.2010 13:36:18
Renee
Hi Stefan,
vielleicht so: 
Sub SaveAs450Mal()
Const cStrgMeinZielOrdner = "C:\Anderer\Ordner\"
Dim intX As Integer
Dim strgBaseName As String
strgBaseName = Split(ThisWorkbook.Name, ".")(0)
For intX = 115 To (115 + 4)
ThisWorkbook.SaveCopyAs cStrgMeinZielOrdner & _
strgBaseName & _
Trim(Str(intX)) & ".xls"
Next intX
End Sub
New Years greetings from Renée
+ 450 (nicht nur + 4) !!
02.01.2010 13:38:59
Renee
Erster Eintrag, erster Fehler ;-)
GreetZ Renée
AW: + 450 (nicht nur + 4) !!
03.01.2010 16:16:52
Stefan
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan
Anzeige
OT Split() direkt indizieren
02.01.2010 14:07:55
Reinhard
Hallo Renée,
danke dir, wußte nicht daß dies geht:
= Split(ThisWorkbook.Name, ".")(0)
Das wird mir sicher hilfreich sein.
"New Years greetings from" geht antürlich gar nicht *schelt*
siehe https://www.herber.de/forum/messages/1126610.html
:-))
Gruß
Reinhard
Bei ihr schon,...
02.01.2010 14:38:48
Luc:-?
...Reinhard,... ;-)
Vgl meinen Beitrag dort!
Greetings & Happy New Year to you and the rare Lady from the Okavango-Delta!
Luc :-?
AW: Bei ihr schon,...
03.01.2010 16:15:51
Stefan
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan
Anzeige
AW: Excel Datei mehrfach mit VBA kopieren
02.01.2010 13:37:57
Josef Ehrensberger
Hallo Stefan,
gehört in die zu kopierende Datei.
' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copyFile()
  Dim strTargetPath As String, strTargetName As String
  Dim lngIndex As Long
  
  strTargetPath = "C:\" 'Zielverzeichnis - Anpassen!
  strTargetName = "Datei" 'Dateiname  - Anpassen!
  
  If Right(strTargetPath, 1) <> "\" Then strTargetPath = strTargetPath & "\"
  
  For lngIndex = 115 To 565
    ThisWorkbook.SaveCopyAs strTargetPath & strTargetName & CStr(lngIndex)
  Next
  
End Sub


Gruß Sepp
Anzeige
Extension vergessen ;-((
02.01.2010 13:41:18
Josef Ehrensberger 
' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub copyFile()
  Dim strTargetPath As String, strTargetName As String, strExtention As String
  Dim lngIndex As Long
  
  strTargetPath = "C:\" 'Zielverzeichnis - Anpassen!
  strTargetName = "Datei" 'Dateiname  - Anpassen!
  strExtention = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "."))
  
  If Right(strTargetPath, 1) <> "\" Then strTargetPath = strTargetPath & "\"
  
  For lngIndex = 115 To 565
    ThisWorkbook.SaveCopyAs strTargetPath & strTargetName & CStr(lngIndex) & strExtention
  Next
  
End Sub


Gruß Sepp
Anzeige
AW: Extension vergessen ;-((
03.01.2010 16:16:18
Stefan
Hallo,
vielen herzlichen Dank für die rasche Antwort.
Hat super geklappt.Hab mir einiges an Arbeit erspart.
mfg
Stefan

310 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge

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