Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.04.2008 10:01:54 |
volli |
|
|
Aw:Tabellenblatt kopieren |
03.04.2008 11:13:24 |
Stempfle Leonhard |
|
|
|
03.04.2008 12:42:05 |
volli |
|
|
|
03.04.2008 13:24:46 |
volli |
|
|
|
03.04.2008 16:21:47 |
Stempfle Leonhard |
|
|
Von:
Stempfle Leonhard |
Datum:
03.04.2008 11:13:24 |
Views:
1121 |
Rating:
|
Antwort:
|
Thema:
Aw:Tabellenblatt kopieren |
volli schrieb am 03.04.2008 10:01:54:
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
Hallo volli, bin auch nicht der Held, aber so hat das bei mir funktioniert.
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).Activate
AW.Sheets(WS.Name).Cells.Select
Selection.Copy
ActiveSheet.Paste
'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:="D:\" & NameNW & ".xls"
NW.Close
ThisWorkbook.Close SaveChanges:=False
Application.Quit
End Function
Gruß Leo
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
03.04.2008 10:01:54 |
volli |
|
|
Aw:Tabellenblatt kopieren |
03.04.2008 11:13:24 |
Stempfle Leonhard |
|
|
|
03.04.2008 12:42:05 |
volli |
|
|
|
03.04.2008 13:24:46 |
volli |
|
|
|
03.04.2008 16:21:47 |
Stempfle Leonhard |
|
|