Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt kopieren ohne Code

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
Anzeige
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

Anzeige
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

Anzeige
Funktioniert! Danke
12.11.2002 10:52:22
Gerrit
Weiss auch nicht warum ich zuerst select mach an dann erst copy!
zuviel aufgezeichnet!!! Danke

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige