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
1204to1208
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt in alle Dateien eines Ordn. kopieren

Tabellenblatt in alle Dateien eines Ordn. kopieren
Markus
Hallo Zusammen,
ich bräuchte mal wieder eure Hilfe!! Sorry!!!
ich möchte gerne ein Tabellenblatt "Reperatur" in alle Exceldateien eines Ordners "Liste" kopieren.
Mein Gedanke dazu war, dass ich über folgende Schleife (aus einem Forum) die Dateien öffne und jeweils das Tabellenblatt einfüge. Der Code Steht in der selben Mappe wie das Tabellenblatt "Reperatur".
Ich benötige jetzt den Code welcher das Tabellenblatt "Reperatur" in jeweilige Datei einfügt. Nach dem Öffnen ist die jeweilige Datei auch die Aktive deshalb der Code ThisWorkbook... allerdings bringt er dann den Laufzeitfehler 424.
Pfad = "D:\Liste
Datei = Dir(Pfad & "\*.xl**")
Do Until Datei = ""
Workbooks.Open Pfad & "\" & Datei
ThisWorkbook.Worksheets("Tabelle1").Copy After:=AktiveWorkbook.Sheets(Sheets.Count)
Datei = Dir
Loop
Im Voraus recht herzlichen Dank für Eure Mühe!!!
Gruß Markus

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

Betreff
Benutzer
Anzeige
AW: Tabellenblatt in alle Dateien eines Ordn. kopieren
09.03.2011 19:16:47
Oberschlumpf
Hi Markus
Änder mal
Datei = Dir(Pfad & "\*.xl**")
um in
Datei = Dir(Pfad & "\*.xl*")
Das *-Zeichen steht als Joker für alles, was nach den Zeichen xl folgt.
Ich hab jetzt nicht getestet, aber ich vermute, dass die Vorgabe
Datei = Dir(Pfad & "\*.xl**")
Datei = "D:\Liste\MappeXY.xls*" liefert.
Es gibt aber keine Datei mit nem * im Dateinamen.
Hilfts?
Ciao
Thorsten
AW: Tabellenblatt in alle Dateien eines Ordn. kopieren
09.03.2011 20:11:53
Markus
Hallo Thorsten,
Sorry wenn ich mich falsch ausgedrückt habe, das öffnen der Datei funktioniert, lediglich der Versuch das Tabellenblatt zu kopieren geht nicht. Da es sich dabei um Dateien mit .xlsm als Endung handelt müsste das mit den zwei * passen obwohl sie nicht notwendig wären da hast du recht!
Aber Danke für deine schnelle Antwort vielleicht hast du ja noch eine Idee wie ich das mit dem Kopieren machen könnte.
Gruß Markus
Anzeige
AW: Tabellenblatt in alle Dateien eines Ordn. kopieren
09.03.2011 20:29:00
Josef

Hallo Markus,
teste mal.
Sub copySheet()
  Dim objWB As Workbook, objSh As Worksheet, objSh2 As Worksheet
  Dim strPath As String, strFile As String
  
  strPath = "D:\Liste"
  
  strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
  
  strFile = Dir(strPath & "*.xls*")
  
  Set objSh = ThisWorkbook.Worksheets("Tabelle1")
  
  Do While strFile <> ""
    Set objWB = Workbooks.Open(strPath & strFile)
    Set objSh2 = objWB.Sheets(1)
    
    If objSh.Rows.Count = objSh2.Rows.Count Then
      objSh.Copy After:=objWB.Sheets(objWB.Sheets.Count)
    End If
    
    objWB.Close True
    
    strFile = Dir
  Loop
  
  Set objWB = Nothing
  Set objSh = Nothing
  Set objSh2 = Nothing
End Sub


Gruß Sepp

Anzeige
AW: Tabellenblatt in alle Dateien eines Ordn. kopieren
09.03.2011 20:50:17
Markus
Hallo Josef,
hab es mal kurz getestet und funktioniert einwandfrei.
Super, vielen Dank an Thorsten und Dich für Eure Hilfe!
Ich will jetzt nicht unverschähmt sein sondern versuche vba zu erlernen und würde
es toll finden wenn du mir deinen Code kurz erläutern könntest.
Gruß Markus
AW: Tabellenblatt in alle Dateien eines Ordn. kopieren
09.03.2011 20:56:38
Josef

Hallo Markus,
der Code macht im Prinzip das selbe wie deiner, nur das ich für die zu kopierende Tabelle und die Zielmappe(n) Objekte verwende, und zusätzlich noch prüfe, ob die Tabelle auch in die Zielmappe "passt" (xls vs xlsx(m)).
PS: Es heißt "Reparatur" !

Gruß Sepp

Anzeige

315 Forumthreads zu ähnlichen Themen

Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
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
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Anzeige
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Ausgewählte Daten aus HTML in Excel importieren
Ferenz

Hallo VBA-Spezialisten,
ich möchte gezielt aus der Betfair-Webseite (Sportwetten, Speziell Fußball-Wetten IN-PLAY) Daten in Excel importieren. Mit der in Excel integrierten Funktion "Web-Abfrage" kann ich immer nur einen bestimmten Bereich importieren. Deshalb kommt für mich diese Funktion...
03.04.2009 16:00:35
Thread-ID: 1066723
11 Beiträge
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 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
7
6
3
1
4
3
2
10
4
2
4
9
8
1
7
2
4
3
1
1
6
1
2
6
5