Im unteren Code wird vom Original eine Kopie erstellt.
Nur das Makro Sub WertKopieren
Funktioniert nicht.
Ich möchte in der Kopie nur Werte haben,keine Formel wie im Orginal
Könnte mir dazu bitte jemand weiterhelfen?
Gruß Heinz
Option Explicit
Private Sub CommandButton1_Click()
Dim Pfad As String
Dim Name As String
Dim Jahr As String
Dim Name1 As String
ActiveSheet.Copy
'ActiveSheet.Unprotect
VBA_Code_loeschen
Buttons_loeschen
Pfad = Range("X1").Value
Name = Range("D8").Value
Name1 = Range("D6").Value
Jahr = Range("Y1").Value
ActiveWorkbook.SaveAs Filename:="" & Pfad & "\" & Name & " " & Jahr & " " & Name1 & "" '&. _
xlsx"
'ActiveSheet.Protect
ActiveWorkbook.Close
MsgBox "Kopie wurde gespeichert und geschlossen !"
End Sub
Sub Buttons_loeschen()Dim obj
For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CommandButton.1" Then obj.Delete
Next
End Sub Sub VBA_Code_loeschen()
Dim vbc
With ActiveWorkbook.VBProject
For Each vbc In .vbcomponents
If vbc.Type = 100 Then 'Module und Tabellen- Workbook-Klassenmodule
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines
ElseIf vbc.Type >= 1 And vbc.Type .vbcomponents.Remove vbc
End If
Next vbc
End With
End Sub Sub WertKopieren()
[A:Z].Copy
[A:Z].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub