Thema Datum  Von Nutzer Rating
Antwort
Rot mehrere Tabellen in einer neuen Arbeitsmappe kopieren
 05.09.2012 10:46:23 trap12
NotSolved

Ansicht des Beitrags:
Von:
trap12		 Datum:
05.09.2012 10:46:23		 Views:
1455		 Rating:
     
Antwort:
  Ja
Thema:
mehrere Tabellen in einer neuen Arbeitsmappe kopieren

hallo leute!

 

ich versuche gerade aus bereits vorhandenen arbeitsmappe die tabellen in einer neuen zu kopieren. allerdings funktioniert das bei mir nur, wenn ich aus einer anderen (extern) arbeitsmappe (also nicht von der ich die tabellen kopiere) mache. also so

Sub NeueMappe()

    Dim Mappe As String
    Dim Ziel As Workbook
    Dim intTab As Integer
    Const Pfad = "C:\trap12\"
    Application.SheetsInNewWorkbook = 1
   
    Mappe = Dir(Pfad & "*.xl*")
   
    Workbooks.Open Pfad & Mappe, UpdateLinks:=0
    If Workbooks(Mappe).Sheets("Start").Range("B17") <> Month(Date) Then _

        Set Ziel = Workbooks.Add
        For intTab = 2 To Workbooks(Mappe).Sheets.Count
       
            Workbooks(Mappe).Sheets(intTab).Copy Before:=Ziel.Sheets(1)
      
        Next intTab
       
    End If
        
     
End Sub
  

wie mache ich das aber wenn ich bei einer geöffneten mappe die tabellen in einer neuen mappe kopieren möchte? ich habs so gemacht aber das geht nicht!

 

 

Sub update()
    ' speichert die Mappe in einer neuen wenn neuer Monatsbeginn
   

    Dim Mappe As String
    Dim Ziel As Workbook
    Dim intTab As Integer
 
    Application.SheetsInNewWorkbook = 1
   
    If Sheets("Start").Range("B17") <> Month(Date) Then _
   
        Set Ziel = Workbooks.Add
       
        For intTab = 2 To ThisWorkbook.Sheets.Count
            Sheets(intTab).Copy Before:=Ziel.Sheets(1)
      
        Next intTab
       
    End If
            
End Sub

 

Danke im Voraus!!!!

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
Rot mehrere Tabellen in einer neuen Arbeitsmappe kopieren
 05.09.2012 10:46:23 trap12
NotSolved