Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel in Fixwerte umwandeln

Formel in Fixwerte umwandeln
14.11.2005 09:42:46
klaus
Einen schönen guten Morgen,
weiss jemand von Euch, wie man mittels VBA eine Formel in einen Fixwert umwandeln kann. Sprich, ich möchte ein Tabellenblatt mit verschiedenen Summenformeln kopieren und separat von der ursprünglichen Arbeitsmappe abspeichern. Hierzu sollen die Formeln bzw. deren Ergebnis nicht als Ergebnis einer Formel, sondern als einfache Zahl stehen bleiben.
Geht das überhaupt?
Viele Grüsse
Klaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Fixwerte umwandeln
14.11.2005 10:03:48
Heinz
Hallo Klaus,
so z.B.

Sub InWwerteVerwandeln()
With Range("B17:B24")
.Copy
.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End With
End Sub

Gruß
Heinz
AW: Formel in Fixwerte umwandeln
14.11.2005 13:24:33
Martin
Hallo Klaus,
vielleicht hift das:

Sub Formeln_in_Werte_umwandeln()
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Umwandeln von Formeln in Werte in allen Tabellenblättern
'unter Beibehaltung des Layouts
For Each ws In Worksheets
ws.Activate
Cells.Copy
Cells.PasteSpecial
Application.CutCopyMode = False
Next
'Cursor im ersten Tabellenblatt in Zelle A1 positionieren.
Worksheets(1).Activate
Range("A1").Select
'Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
'Speichern der Datei unter einem neuen Namen, der sich aus dem
'alten Dateinamen und einem vorangestellten W zusammensetzt.
'Die Speicherung erfolgt in dem Verzeichnis, in dem auch die
'Ausgangsdatei gespeichert ist.
file = ActiveWorkbook.Name
Pfad = ActiveWorkbook.path
ActiveWorkbook.SaveAs FileName:="" & Pfad & "\W" & file & "" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Gruß
Martin Beck
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige