Tabellenblatt kopieren ohne Code

Forumthread: Tabellenblatt kopieren ohne Code

12.11.2002 10:01:48

Gerrit

Hi,
gibt es eine Möglich keit über VBA ein Tabellenblatt zu kopieren und in einer neuen Mappe abzuspeichern.
Der Weg über markieren, kopieren und auf neues Tabellenblatt einfügen sei mal ausgeschlossen, da bei mir ein Range Problem auftritt, dass eigentlich nicht existiert.
Und zudem einige Zellen über 255 Zeichen enthalten!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

anders gefragt

12.11.2002 10:15:18

Gerrit
Re: anders gefragt

12.11.2002 10:47:50

Steffen D
Funktioniert! Danke

12.11.2002 10:52:22

Gerrit

anders gefragt

12.11.2002 10:15:18

Gerrit

Warum läuft der Code nicht?

Private Sub CommandButton1_Click()

Pfad = Application.GetSaveAsFilename("Bestellung_ttmmjj")
If Pfad = False Then
Else

Range("A1:B1").Select
Sheets("Rondo").Copy
ActiveSheet.Protect Password:=gerrit, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Range("C1:G6").Select ' Hier hält er an!

Selection.Copy
Range("C1:G6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("O1:Q6").Select
Selection.Copy
Range("O1:Q6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Close
Sheets("Rondo").Select

End If

End Sub

Re: anders gefragt

12.11.2002 10:47:50

Steffen D

Versuch mal so:
bei mir geht dein Code nicht, da greift mein virenscanner ein..

Private Sub CommandButton1_Click()

Pfad = Application.GetSaveAsFilename("Bestellung_ttmmjj")
If Pfad = False Then
Else
Range("A1:B1").Select
Sheets("Rondo").Copy
ActiveSheet.Protect Password:=gerrit, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Range("C1:G6").Copy
Range("C1:G6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("O1:Q6").Copy
Range("O1:Q6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Close
Sheets("Rondo").Select
End If
End Sub

Funktioniert! Danke

12.11.2002 10:52:22

Gerrit

Weiss auch nicht warum ich zuerst select mach an dann erst copy!
zuviel aufgezeichnet!!! Danke

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellenblatt kopieren ohne Code

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread