VBA Syntax bei Kopie entfernen!

Sub KopiereBericht() Dim SpeicherName As String Dim Verzeichnis As String SpeicherName = "Bericht_" & Sheets("Bericht").Range("B5") Verzeichnis = "C:\Archiv" Sheets("Bericht").Copy ActiveWorkbook.SaveAs Filename:=Verzeichnis & "\" & SpeicherName & "_.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KopiereBericht() Dim SpeicherName As String Dim Verzeichnis As String SpeicherName = "Bericht_" & Sheets("Bericht").Range("B5") Verzeichnis = "C:\Archiv" Sheets("Bericht").Copy With ActiveWorkbook With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .SaveAs Filename:=Verzeichnis & "\" & SpeicherName & "_.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .Close End With End Sub

Hallo
Was noch nicht gemacht wird, das nur die Werte und keine Formeln kopiert werden
warum schreibst du das nicht gleich?

Sub KopiereBericht()
Dim SpeicherName As String
Dim Verzeichnis As String
SpeicherName = "Bericht_" & Sheets("Bericht").Range("B5")
Verzeichnis = "C:\Archiv"
Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.SaveAs Filename:=Verzeichnis & "\" & SpeicherName & "_.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End With
End Sub

Gruß
Rudi

Sub KopiereBericht() Dim SpeicherName As String Dim Verzeichnis As String SpeicherName = "Bericht_" & Sheets("Bericht").Range("B5") Verzeichnis = "C:\Archiv" Sheets("Bericht").Copy Application.EnableEvents = False With ActiveSheet .Cells.Copy .Range("A1").PasteSpecial xlPasteValues Application.CutCopyMode = False With .Parent With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With .SaveAs Filename:=Verzeichnis & "\" & SpeicherName & "_.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .Close End With End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Syntax bei Kopie entfernen!

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread