title image


Smiley Re: sheet exportieren
hallo Susanne,



so gehts:



Sub Sheetcopy()

Dim Quelle As String, LastCell As String



      ' Vorlage öffnen

      Workbooks.Open Filename:="C:\Eigene Dateien\Excel\Vorlage.xls"

      Quelle = ActiveWorkbook.Name

      LastCell = ActiveWorkbook.Sheets("2006").Cells.SpecialCells(xlLastCell).Address

      

      'für alle offenen Workbooks

      For i = 1 To Workbooks.Count

         If Workbooks(i).Name <> Quelle Then

            'neues Worksheet ans Ende

            With Workbooks(i)

               .Sheets.Add after:=.Sheets(.Sheets.Count)

               .Sheets(.Sheets.Count).Name = "2006"

            End With

            

            'Inhalt der Quelle kopieren

            Workbooks(Quelle).Sheets("2006").Range("A1:" & LastCell).Copy _

                  Destination:=Workbooks(i).Sheets("2006").Range("A1:" & LastCell)

         End If

      Next i

      'Quelle schliessen ohne zu speichern

      Workbooks(Quelle).Close savechanges:=False

End Sub

Code eingefügt mit Syntaxhighlighter 1.14



viele Grüße. Heide

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: