title image


Smiley Re: Von Tabelle A in Tabelle B kopieren, Tabelle A schließen...
hallo Elektroman



gut, dann nimm den Code eben aus "if ok=false then..." wieder raus und lass ihn vorher laufen:



      ' Vorlage öffnen

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

      TabelleB = ActiveWorkbook.Name

      

      'neues Worksheet in A an Position 2

      With Workbooks(TabelleA)

         .Sheets.Add After:=.Sheets(1)

         .Sheets(2).Name = Workbooks(TabelleB).Worksheets(1).Name

      End With

      

      'Inhalt des Sheets kopieren

      With Workbooks(TabelleB).Worksheets(1).Range("B5:K7")

         .Copy

         .PasteSpecial Paste:=xlPasteValues

         .Copy Destination:=Workbooks(TabelleA).Sheets(2).Range("A1")

      End With

      

      'Tabelle B schlissen ohne zu speichern

      Workbooks(TabelleB).Close savechanges:=False

      'Tabelle B schlissen mit speichern

      Workbooks(TabelleB).SaveAs "C:\Eigene Dateien\Excel\neu.xls"









Es ändert sich dadurch ja bloß der Name des kopierten Worksheets. Hier wird zwar von B nach A kopiert, aber das kannst Du ja beliebig ändern.



viele Grüße. Heide

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: