Thema Datum  Von Nutzer Rating
Antwort
09.04.2018 16:18:11 Rigo
NotSolved
Blau Kopieren von 2 Tabellenblättern in neue Datei
 09.04.2018 18:51:43 Gast70117
Solved
10.04.2018 08:23:22 Rigo
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
09.04.2018 18:51:43		 Views:
506		 Rating:
     
Antwort:
 Nein
Thema:
Kopieren von 2 Tabellenblättern in neue Datei		 
Option Explicit

Sub DoIt()
'erster Tabellenname erzeugt neue Mappe
Const TABELLEN As String = "Tabelle9,Tabelle2,Tabelle19" 'usw.

Dim arrTab() As String, x As Long
Dim oWbSource As Excel.Workbook, oWbTarget As Excel.Workbook
Dim oWsh As Excel.Worksheet, sI As Long
Dim strPath As String

   Application.ScreenUpdating = False
   
   'alle Angaben
   arrTab = Split(TABELLEN, ",")
   'Quellmappe
   Set oWbSource = ThisWorkbook
   'erste wo
   Sheets(arrTab(0)).Copy
   'ist nun aktiv
   Set oWbTarget = ActiveWorkbook
   For x = 1 To UBound(arrTab)
      'der Rest
      With oWbTarget
         'letzter Index wo
         sI = .Sheets.Count
         'Quelle nach zile hinter Index
         oWbSource.Sheets(arrTab(x)).Copy After:=.Sheets(sI)
         'nur Werte
         For Each oWsh In .Sheets
            With oWsh.UsedRange
               .Value = .Value
            End With
         Next oWsh
         
      End With
   Next x

   'Speichern und schließen
   With oWbTarget
      Application.DisplayAlerts = False
      strPath = ThisWorkbook.Path & "\" & "XX XX " & Format(DateSerial(Year(Now), Month(Now), 0), "YYYY-MM")
      .SaveAs strPath, xlOpenXMLWorkbook
      .Close False
   End With
   
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
   Set oWbSource = Nothing
   Set oWbTarget = Nothing
   Set oWsh = Nothing
   
End Sub

 

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
09.04.2018 16:18:11 Rigo
NotSolved
Blau Kopieren von 2 Tabellenblättern in neue Datei
 09.04.2018 18:51:43 Gast70117
Solved
10.04.2018 08:23:22 Rigo
NotSolved