Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter in neuer Mappe zusammenführen

Tabellenblätter in neuer Mappe zusammenführen
Peter
Hallo,
in einem sonst leeren Verzeichnis habe ich x Excel Dateien (Mappen). In jeder Mappe enthält nur das erste Tabellenblatt Daten.
Ich möchte jetzt im gleichen Verzeichnis eine neue Excel Datei anlegen, in die der Reihe nach aus jeder der vorhandenen Dateien jeweils nur das erste Tabellenblatt 1:1 kopiert wird. Das Tabellenblatt erhält dabei genau den Namen der Datei, aus der es kopiert wurde (ohne .xls).
Am Schluss hat also die neue Excel Dateien genau so viele Tabellenblätter, wie vorher Excel Dateien in diesem Verzeichnis waren.
Idealerweise benötige ich ein Makro, dass unter Excel2011 funktioniert.
Wer kann helfen?
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter in neuer Mappe zusammenführen
22.01.2012 13:57:03
Josef

Hallo Peter,
probier mal.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub importSheets()
  Dim objWB As Workbook
  Dim strPath As String, strFile As String
  Dim lngCalc As Long
  
  On Error GoTo ErrExit
  
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    lngCalc = .Calculation
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
  End With
  
  strPath = "E:\Forum" 'Verzeichnis  - Anpassen!
  
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  
  strFile = Dir(strPath & "*.xls*", vbNormal)
  
  Do While strFile <> ""
    If strFile <> ThisWorkbook.Name Then
      Set objWB = Workbooks.Open(strPath & strFile, UpdateLinks:=False)
      With ThisWorkbook
        objWB.Worksheets(1).Copy After:=.Sheets(.Sheets.Count)
        .Sheets(.Sheets.Count).Name = Left(strFile, InStrRev(strFile, ".") - 1)
      End With
      objWB.Close False
    End If
    strFile = Dir
  Loop
  
  ErrExit:
  
  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'importSheets'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Modul - Modul1"
      .Clear
    End If
  End With
  
  On Error GoTo 0
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = lngCalc
    .DisplayAlerts = True
  End With
  
  Set objWB = Nothing
End Sub



« Gruß Sepp »

Anzeige

302 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
mehrere Arbeitsblätter zusammenkopieren
Stefan

Hallo zusammen,
ich muß leider schon wieder die Experten bemühen, da mein VBA leider nicht ausreichend ist.
Ich habe eine Mappe mit ca. 90 Tabellen. Alle ausser der 1. Tabelle können Infos im Bereich B6:E60 enthalten . Nun würde ich gern zur Auswertung alle diese Infos auf das Worksheet...
19.06.2009 10:57:02
Thread-ID: 1082815
10 Beiträge
Anzeige
Tabellenausschnitt per VBA in neue Mappe kopieren
Fritz_W

Hallo Forumsbesucher,
wie kann ich per Makro folgendes erreichen:
Ich möchte aus dem aktuell geöffneten Tabellenblatt die Zellbereiche E2:F75 und J2:K75 kopieren und diese Zellbereiche als Kopie in eine neue Mappe (gleicher Zellbereich wie in Ursprungstabelle) einfügen. Das Tabellenblat...
20.05.2010 14:40:31
Thread-ID: 1158089
6 Beiträge
Druckbereich in neue Mappe kopieren
Burckhard

Moin, habe großes Problem. Ich möchte den Druckbereich eines Rechnungsformulars exakt als 1:1 Kopie ohne Formeln etc. in eine neue DAtei speicher. Der Bereich enthält ausgeblendete Spalten, verbundene Zellen, verschiedene Zellhöhen, unterschiedliche Spaltenbreiten usw. Bei Aufzeichnung mit Makr...
26.04.2002 00:09:33
Thread-ID: 116450
3 Beiträge
Tabellen zusammenführen und in neue Arbeitsmappe
Stefan

Hallo,
ich habe wieder mal ein Problem:
ich habe eine Arbeitsmappe mit dem Namen "INFOBOX_FICO_test.xlsx" mit mehreren Tabellen, die alle die gleiche Struktur haben. Diese Tabellen sollen in eine Tabelle zusammen gefaßt werden in einer bestehenden aber noch unbefüllten Arbeitsmappe mit...
24.02.2011 11:55:45
Thread-ID: 1202705
7 Beiträge
Daten aus mehrere Tabellenblätter kopieren
Sebastian

Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nic...
07.03.2011 17:12:03
Thread-ID: 1204623
2 Beiträge
Einzelne Exceltabellen kopieren in neue Mappe
Holger

Hallo,
ich habe ein Problem.
Ich habe eine Excelabelle mit mehreren Blättern.
Nun möchte ich mit einem Button einzele Sheets kopieren in eine andere Mappe und diese dann Speichern.
Jetzt habe ich einen Code der auch genauso geht, aber kann ich da nur ein Sheet Speichern.
Ich...
05.03.2012 17:45:04
Thread-ID: 1253617
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
2
5
7
9
1
5
2
6
1
2
1
1
6
19
4
5
1
2
4
3
6
2
1
3
1