Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblatt kopieren
 03.04.2008 10:01:54 volli
NotSolved
03.04.2008 11:13:24 Stempfle Leonhard
NotSolved
03.04.2008 12:42:05 volli
NotSolved
03.04.2008 13:24:46 volli
NotSolved
03.04.2008 16:21:47 Stempfle Leonhard
NotSolved

Ansicht des Beitrags:
Von:
volli		 Datum:
03.04.2008 10:01:54		 Views:
1891		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblatt kopieren
Wer kann helfen. Habe ein Script zum kompletten kopieren eines Datenblatt in eine neue Exceldatei. Mein Problem Zelleneigenschaften sind unterschiedlich zwischen den beiden Dateien, deshalb kommt eine Fehlermeldung. Wie muss ich das Script umbauen das auch formatierte, verbunden Zellen in ein neue Standart Arbeitsmappe kopiert werden.

Public Function ExcelKopie()

Dim AW As Workbook
Dim NW As Workbook
Dim WS As Worksheet
Dim NameNW As String

Set AW = ActiveWorkbook
Application.ScreenUpdating = False
AW.Sheets(Array("Blatt1")).Copy
Set NW = ActiveWorkbook
For Each WS In NW.Worksheets
WS.Activate
AW.Sheets(WS.name).Cells.Copy
WS.Cells(1).PasteSpecial xlPasteValues ' Hier tritt der Fehler auf
WS.Cells(1).Select
Next WS
Application.CutCopyMode = False
NameNW = "Datei2" 'hinterlegter Name ohne Pfad und Dateiendung
Application.ScreenUpdating = True
NW.SaveAs Filename:="C:\TEST\" & NameNW & ".xls"
NW.Close

End Function

Gruss volli

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 Tabellenblatt kopieren
 03.04.2008 10:01:54 volli
NotSolved
03.04.2008 11:13:24 Stempfle Leonhard
NotSolved
03.04.2008 12:42:05 volli
NotSolved
03.04.2008 13:24:46 volli
NotSolved
03.04.2008 16:21:47 Stempfle Leonhard
NotSolved