Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1356to1360
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
Vom Orginal nur Werte in Kopie einfügen
14.04.2014 21:07:03
Heinz
Hallo Leute im Forum
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

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

Betreff
Datum
Anwender
Anzeige
AW: Vom Orginal nur Werte in Kopie einfügen
15.04.2014 02:36:31
Spenski
Hallo Heinz
probier das mal
Sub WertKopieren()
Columns("A:Z").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,  _
Transpose:=False
End Sub
gruss
christian

Na...! With Range("A:Z"): .Copy: .Paste... orT
15.04.2014 04:00:44
Luc:-?
Morrn! Luc :-?

Danke an Spenski & Luc
15.04.2014 12:50:30
Heinz
Hallo ihr beiden
Funktioniert wie gewollt.
Recht herzlichen Dank.
Gruß,Heinz
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige