Daten in neuer Tabelle speicheern
03.02.2013 12:02:57
uphi
Ich versuche Daten aus einer Tabelle heraus zu kopieren um dann wieder in eine neue Tabelle zu speichern.
Folender Code:
Sub Speichern()
'Seite Speichern wird aufgerufen und der Bereich A1 bis Z 80 Kopiert
Sheets("Speichern").Select
Range("A1:Z80").Select
Selection.Copy
'Neue Tabelle geöffnet mit nur einem Blatt
Workbooks.Add
Application.SheetsInNewWorkbook = 1
'Daten werden in die Neue Tabelle kopiert
Range("A1:Z80").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Neue Tabelle wird gespeichert
Const sPfad As String = "C:\Users\Public\Documents\Lawiber"
If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad
ChDrive "C:\"
ChDir "C:\Users\Public\Documents\Lawiber"
Application.Dialogs(xlDialogSaveAs).Show Range("A1") & " " & Range("B1"), _
xlOpenXMLWorkbookMacroEnabled
End
Sub
Leider funktioniert die Paste-Funktion nicht und die Daten werden nicht in die neue Tabelle _
geschrieben. Hat jemandd eine Lösung?
Danke und Gruß
uphi