Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln durch Werte ersetzen und speichern unter

Forumthread: Formeln durch Werte ersetzen und speichern unter

Formeln durch Werte ersetzen und speichern unter
11.06.2015 09:48:44
Sarah
Hallo zusammen,
ich habe ein Makro, das in den Tabellenblättern die Formeln durch Werte ersetzen soll und dann die Datei durch speichern unter als neue Version abspeichern soll. Das heißt ich hätte gerne danach zwei Dateien. Eine mit Formeln und eine nur mit den Werten und jeweils unterschiedlichen Namen.
Hier der Code den ich bisher habe, aber das Ergebnis davon ist, dass es am Ende zwei Dateien gibt, die nur Werte enthalten. Außerdem ist nach wie vor die Datei geöffnet in dem das Ganze gestartet wurde und ich hätte gerne die Datei geöffnet, die durch speichern unter erstellt wird.
Wäre super, wenn ihr mir helfen könnt!
Viele Grüße
Sarah
Sub g_Create_Report()
'Definition der Variablen
Dim sPfad As String
Dim sMonat As String
Dim sJahr As String
Dim sTG As String
Dim sProzess As String
Dim sBlatt As Object
Application.Calculate
'Jahr festlegen
sJahr = Worksheets("ini").Range("Jahr")
'Quellpfad festlegen
sPfad = Worksheets("ini").Range("Pfad_Report")
'TG festlegen
sTG = Worksheets("ini").Range("TG")
'Prozess festlegen
sProzess = Worksheets("ini").Range("B5")
'Einmal durchrechnen das Ganze
Worksheets("Agenda").Activate
Application.Calculate
'alle Mappen einblenden
For Each sBlatt In Worksheets
sBlatt.Visible = True
Next sBlatt
'Formeln durch Werte ersetzen
Sheets(Array("ini", "Cover", "Agenda", "Mgmt_Summary", "KF_PTG", "KF_VTG", "Customer_Count", "  _
_
Retention Rate_v", "GAP", "Ranking", "synthPF", _
"clock", "Data_WF_CS", "Data_WF_P&L", "WF", "Additional", "Personnel", "P&L", "OE_NS_roll", " _
CSC_SI", _
"Business Model")).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, 1).Select
'Blätter ausblenden
Sheets("ini").Visible = xlHidden
Sheets("Cover").Visible = xlHidden
Sheets("Customer_Count").Visible = xlHidden
Sheets("Retention Rate_v").Visible = xlHidden
Sheets("GAP").Visible = xlHidden
Sheets("Ranking").Visible = xlHidden
Sheets("synthPF").Visible = xlHidden
Sheets("Clock").Visible = xlHidden
Sheets("Data_WF_CS").Visible = xlHidden
Sheets("Data_WF_P&L").Visible = xlHidden
Sheets("3YP_Qual").Visible = xlHidden
Sheets("3YP_Quant").Visible = xlHidden
Sheets("Agenda").Activate
Range("A1").Select
'Arbeitsmappe unter neuem Namen speichern
ActiveWorkbook.SaveAs Filename:="" & sPfad, FileFormat:=52
MsgBox (sTG & "_BoardPackage_" & sProzess & "_" & sJahr & "_v.xlsm in Verzeichnis " & sPfad & "  _
_
gespeichert!")
End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 10:08:14
Klexy
Vor 
'Formeln durch Werte ersetzen
Diese Zeile einfügen:
ActiveWorkbook.Save

AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 10:22:32
Sarah
Hallo Klexy,
das Problem besteht immernoch. Die Ergänzung ergab keine Veränderung im Ergebnis.

Anzeige
AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 10:39:26
Klexy
Wenn du die Original-Datei erst speicherst, dann die Formeln killst und dann wieder unter neuem Namen speicherst, hast du 2 Dateien. Eine mit Formeln und eine ohne. Die ohne ist am Ende noch offen.

AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 10:41:51
Sarah
Genau das wollte ich ja machen, siehe Code unten.
Aber es funktioniert nicht.
Wo ist der Fehler im Code?

Anzeige
lad doch mal die Musterdatei hoch
11.06.2015 11:02:05
UweD

AW: lad doch mal die Musterdatei hoch
11.06.2015 11:05:56
Sarah
Hallo Uwe,
das geht leider nicht, da interne Daten enthalten sind.
Der Code steht unten. Es handelt sich um eine Datei mit mehreren Arbeitsblättern und Formeln und diese sollen durch Werte ersetzt werden. Nichts kompliziertes.
Nur der Code macht nicht das was er soll.

Anzeige
AW: lad doch mal die Musterdatei hoch
11.06.2015 11:25:43
Klexy
Interne Daten können anonymisiert werden. Aber ich befürchte, dass die Datei mit so vielen Blättern einfach zu groß sein würde. Herber akzeptiert nur bis 300 kB
Sub Klexys_Musterdatei_Anonymisator()
' zu anonymisierende Zellen markieren und Makro laufen lassen
' !!! Zellen mit Formeln dürfen NICHT anonymisiert werden !!!
' !!! Zellen mit eindeutigen Schlüsselwerten (Matchcode) dürfen NICHT anonymisiert werden
'     weil sie sonst alle gleich lauten und ihre Funktionalität einbüßen
' !!! Spaltenköpfe sollten im Sinne der Verständlichkeit NICHT anonymisiert werden
' die Zeichen werden durch andere Zeichen mit annähernd gleicher Breite (in Arial) ersetzt
'     damit die Befüllung der Zellen möglichst identisch bleibt
' die Buchstaben L,J,I werden vorläufig nicht ersetzt, weil sie nicht durch genau gleich
'     breite Buchstaben ersetzt werden können (kann unten aber aktiviert werden).
' die Ziffer 1 bleibt, weil sie oft eine besondere Bedeutung hat und
'     auch nicht durch eine gleich breite Ziffer ersetzt werden kann
' die Ziffer 0 bleibt, weil sie oft eine besondere Bedeutung hat
' Ziffern
Selection.Replace What:="4", Replacement:="2", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="5", Replacement:="3", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="6", Replacement:="2", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="7", Replacement:="3", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="8", Replacement:="2", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="9", Replacement:="3", LookAt:=xlPart, MatchCase:=True
' Kleinbuchstaben
Selection.Replace What:="ä", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="d", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="e", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="f", Replacement:="t", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="g", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="h", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="j", Replacement:="i", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="k", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="l", Replacement:="i", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="n", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="o", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="ö", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="p", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="q", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="r", Replacement:="t", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="s", Replacement:="c", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="u", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="ü", Replacement:="b", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="v", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="w", Replacement:="m", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="x", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="y", Replacement:="a", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="z", Replacement:="c", LookAt:=xlPart, MatchCase:=True
' Großbuchstaben
Selection.Replace What:="A", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ä", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="C", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="F", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="G", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="H", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="K", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="O", Replacement:="N", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ö", Replacement:="N", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="P", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Q", Replacement:="N", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="R", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="S", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="T", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="U", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Ü", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="V", Replacement:="D", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="W", Replacement:="M", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="X", Replacement:="B", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Y", Replacement:="E", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Z", Replacement:="E", LookAt:=xlPart, MatchCase:=True
'Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, MatchCase:=True
'Selection.Replace What:="L", Replacement:="J", LookAt:=xlPart, MatchCase:=True
End Sub

Anzeige
AW: lad doch mal die Musterdatei hoch
11.06.2015 11:37:36
UweD
Hallo nochmal
Die Datei muss natürlich VOR dem "PasteSpecial" selbst mit 'save' gespeichert werden.
Ganz unten dann mit 'SaveAs'.
Da hast du aber KEINEN Dateinamen drin..
und auch gehört der Pfad davor.
Ich hab es mal so abgeändert.
Sub g_Create_Report()
'Definition der Variablen
Dim sPfad As String
Dim sMonat As String
Dim sJahr As String
Dim sTG As String
Dim sProzess As String
Dim sBlatt As Object
Dim sFName As String
Application.Calculate
'Jahr festlegen
sJahr = Worksheets("ini").Range("Jahr")
'Quellpfad festlegen
sPfad = Worksheets("ini").Range("Pfad_Report")
'TG festlegen
sTG = Worksheets("ini").Range("TG")
'Prozess festlegen
sProzess = Worksheets("ini").Range("B5")
'Einmal durchrechnen das Ganze
Worksheets("Agenda").Activate
Application.Calculate
'alle Mappen einblenden
For Each sBlatt In Worksheets
sBlatt.Visible = True
Next sBlatt
'Formeln durch Werte ersetzen
Sheets(Array("ini", "Agenda")).Select
Sheets(Array("ini", "Cover", "Agenda", "Mgmt_Summary", "KF_PTG", "KF_VTG", " _
Customer_Count", _
"Retention Rate_v", "GAP", "Ranking", "synthPF", _
"clock", "Data_WF_CS", "Data_WF_P&L", "WF", "Additional", "Personnel", "P&L", " _
OE_NS_roll", _
"CSC_SI", "Business Model")).Select
ActiveWorkbook.Save
Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, 1).Select
'Blätter ausblenden
Sheets("ini").Visible = xlHidden
Sheets("Cover").Visible = xlHidden
Sheets("Customer_Count").Visible = xlHidden
Sheets("Retention Rate_v").Visible = xlHidden
Sheets("GAP").Visible = xlHidden
Sheets("Ranking").Visible = xlHidden
Sheets("synthPF").Visible = xlHidden
Sheets("Clock").Visible = xlHidden
Sheets("Data_WF_CS").Visible = xlHidden
Sheets("Data_WF_P&L").Visible = xlHidden
Sheets("3YP_Qual").Visible = xlHidden
Sheets("3YP_Quant").Visible = xlHidden
Sheets("Agenda").Activate
Range("A1").Select
'Arbeitsmappe unter neuem Namen speichern
sFName = sTG & "_BoardPackage_" & sProzess & "_" & sJahr & "_v"
ActiveWorkbook.SaveAs Filename:=sPfad & sFName, FileFormat:=52
MsgBox (sFName & ".xlsm in Verzeichnis " & sPfad & " gespeichert! ")
End Sub
Gruß UweD

Anzeige
AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 11:21:53
Klexy
Kann nicht sein. Wenn du die Datei nach dem Paste Values unter einem neuen Namen abspeicherst, hast du eine zweite Datei ohne Formeln.
Geh den Code mal mit F8 Zeile für Zeile durch und beobachte, was geschieht.
Vielleicht enthält dein Sheet-Array nicht alle Blätter und du schaust just in das rein, das du beim Paste Values nicht mitgenommen hast?

Anzeige
AW: Formeln durch Werte ersetzen und speichern unter
11.06.2015 13:04:52
Sarah
Vielen Dank euch beiden!
Das Problem hat sich erledigt. Liegt nicht am Code, sondern an der Datenbank, auf der die Datei aufbaut.
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Anzeige
Zelle suchen und ausgeben per VBA
Lutz

Hallo,
ich habe eine Mehrdfachoperation, bei der ich mehrere Parameter gegeneinander auswerte. Dabei benutze ich immer eine %-Änderung der Parameter. Ich würde gerne neben den Ergebnissen der Mehrfachoperation aber auch die absoluten Werte der Parameter ausgeben. Da ich mehr als 7 Parameter...
10.02.2009 20:42:00
Thread-ID: 1049308
8 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Anzeige
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Anzeige
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Modul durch Makro löschen und ersetzen
Dietmar

Guten Morgen zusammen,
kann mir jemand einen Tipp geben?
Ich suche nach einer Möglichkeit, ein kompletes Makro-Modul per Makro zu löschen und durch ein neues Makro (mit exakt dem gleichen Namen) zu ersetzen.
Eine inhaltliche Änderung eines Makros per Makro erscheint mir zu schwierig...
26.03.2009 01:28:12
Thread-ID: 1064062
3 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen
Randolf

Hallo Excel-Gemeinde,
ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen...
14.05.2009 11:54:34
Thread-ID: 1075089
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige