Thema Datum  Von Nutzer Rating
Antwort
08.04.2016 11:41:54 Isaaaa
NotSolved
Blau VBA: Kopieren von Tabellenblättern in eine extra Datei
 08.04.2016 13:18:28 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
08.04.2016 13:18:28		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Kopieren von Tabellenblättern in eine extra Datei

Hallo,

Quick & Dirty:

Public Sub Tabellen_zusammenführen()
    Dim i As Integer: i = 1
    Dim wkbMain As Workbook
    Dim wkbTmp As Workbook
    Set wkbMain = ThisWorkbook
    
    Do While wkbMain.Worksheets(1).Cells(i, 1) <> ""
        Dim strName As String, strPath As String
        strName = wkbMain.Worksheets(1).Cells(i, 1)
        strPath = wkbMain.Path & "\" & wkbMain.Worksheets(1).Cells(i, 1)
        
        Select Case Right(strPath, 4)
            Case "xlsx", "xls":
            Case Else:
                MsgBox "Keine Excel-Dateien angegeben.", vbInformation, "Abbruch"
                Exit Sub
        End Select
        
        Select Case i
            Case 1:
                Call Workbooks.Open(strPath)
                ActiveWorkbook.Worksheets("Tabelle1").Copy
                Set wkbTmp = ActiveWorkbook
                Call Workbooks(strName).Close
            Case Else:
                Call Workbooks.Open(strPath)
                ActiveWorkbook.Worksheets("Tabelle1").Copy after:=wkbTmp.Worksheets(wkbTmp.Worksheets.Count)
                Call Workbooks(strName).Close
        End Select
        i = i + 1
    Loop
    
    Dim strDatei As String
    'Dateibezeichnung evtl anpassen:
    strDatei = "Sammeldatei.xlsx"
    
    'Speichern und schließen
    wkbTmp.SaveAs (wkbMain.Path & "\" & strDatei)
    wkbTmp.Close
    
    'Objekte leeren
    Set wkbTmp = Nothing
    Set wkbMain = Nothing
End Sub

Gruß

SJ

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.04.2016 11:41:54 Isaaaa
NotSolved
Blau VBA: Kopieren von Tabellenblättern in eine extra Datei
 08.04.2016 13:18:28 SJ
NotSolved