Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim speichern einzelner Tabellen Formeln entferne

Forumthread: Beim speichern einzelner Tabellen Formeln entferne

Beim speichern einzelner Tabellen Formeln entferne
22.11.2004 11:02:26
Stefano
Hallo! Ich habe leider keine Ahnung von VBA. Ich hoffe Ihr könnt mir helfen. Hab leider keine Lösung im Archiv gefunden.
Ich habe folgendes Makro um alle Tabellen aus einer Mappe einzeln zu speichern:

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

Soweit so gut. Möchte aber nun, dass rein die Daten gespeichert werden, nicht die Formeln! Könnt Ihr mir diesen kleinen Befehl mitteilen und mir sagen an welcher Stelle ich den einsetzen muß?
Vielen Dank!
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
ypsilon
hi Stefano,
probier mal:

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs FileName:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

cu Micha
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
Galenzo
Hallo,
ich denke da an sowas wie: alles markieren, kopieren, als Werte einfügen.
Das sollte dann so funktionieren:
Cells.Copy
Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Probier's aus. Viel Erfolg!
AW: Beim speichern einzelner Tabellen Formeln entferne
Stefano
Vielen Dank für Eure Tips. Klappt leider nicht wirklich, da immernoch
beim öffnen der einzelnen Tabellen die Meldung kommt, dass diese Tabelle
automatische Verknüpfungen enthält. Und die Formeln sind auch noch da, zwar etwas verändert, aber noch da.
Noch eine Idee?
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
Stefano
Sorry, funktioniert natürlich! Nur wenn ich eine Befehlsschaltfläche damit
belege irgendwie nicht. Was mach ich falsch:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

Danke!
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
yps
hi,
"Nur wenn ich eine Befehlsschaltfläche damit
belege irgendwie nicht."
sehr aussagekräftig ;-)
probier mal als erste zeile im makro:
CommandButton1.TakeFocusOnClick = False
cu Micha
AW: Beim speichern einzelner Tabellen Formeln entferne
Stefano
Also, dass Makro funktioniert nur richtig, wenn ich es in z.b. Modul1
reinsetze. Möchte nun aber in Tabelle2 einen Button haben und mit diesem Makro belegen. Wenn ich das mache, speichert er zwar die einzelnen Tabellen, entfetnt aber nicht die Formeln? 

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs FileName:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

Und noch etwas: Ich möchte gern, dass zwei Tabellen (haben immer die gleiche Bezeichnung) nicht mitgespeichert werden. Ihr seid Spitze!
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
yps
hi,
schreib doch einfach:

Private Sub CommandButton1_Click()
call speichern
End Sub

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
If n = "deine_erste_ausnahme" Or n = "deine_zweite_ausnahme" Then 'tabellennamen anpassen !
'was immer auch dann passieren soll
Else
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub
cu Micha
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
stefano
Danke Micha,
bin leider blutiger Anfänger und weiß nicht, wie ich den IF THEN Befehl zu Ende führen soll!? Möchte einfach, dass die beiden Ausnahmen nicht einzeln mit abgespeichert werden, sondern nur die anderen Tabellen.
Danke zum 1000mal!
AW: Beim speichern einzelner Tabellen Formeln entferne
yps
hi,
aber du wirst doch in der lage sein die namen deiner beiden tabellen die NICHT gespeichert werden sollen zwischen die anführungszeichen im code zu setzen oder ?
cu Micha
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
stefano
Hab ich ja gemacht:

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
If n = "vorlage" Or n = "vorlage1" Then 'tabellennamen anpassen !
'was immer auch dann passieren soll
Else
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & n
ActiveWorkbook.Close
Next ws
End Sub

Funzt aber leider nicht :-(
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
yps
hi,
ich gehe mal davon aus, dass deine tabelle nicht vorlage sondern Vorlage heisst ;-)

Sub speichern()
Dim ws As Worksheet
Dim n As String, Pfad As String
Pfad = ActiveWorkbook.Path
For Each ws In ActiveWorkbook.Worksheets
n = ws.Name
If n = "Vorlage" Or n = "Vorlage1" Then 'tabellennamen anpassen !
'was immer auch dann passieren soll
Else
ws.Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs FileName:=Pfad & "\" & n
ActiveWorkbook.Close
End If
Next ws
End Sub

cu Micha
Anzeige
AW: Beim speichern einzelner Tabellen Formeln entferne
stefano
Hast natürlich recht!
Danke, super Forum!
danke für die rückmeldung :-) o.t.
y
.
;

Forumthreads zu verwandten Themen

Abbruch eines Makros bei Erreichen e.leeren Zeile
Josef

Guten Morgen!
Ich muß regelmäßig Textdateien in ein Arbeitsblatt einlesen lassen.
In dem nachfolgenden Makro Markierung_I werden die Zellen von I1 bis I10000 markiert und danach in diese Zellen die nachstehende Formel reinkopiert.
Wenn ich jedoch z.B. nur 180 Zeilen einlesen lassen...
18.09.2008 06:46:00
Thread-ID: 1010577
7 Beiträge
Bei makrofehler einfach abbrechen statt VB-Editor
Tobias

Hallo Profis,
Ich nehme an, es gibt ne einfache Möglichkeit, wie ich verhindern kann,
das Fehlermeldungen unterdrückt werden.
Bzw, besser: Einfach nur in einer MsgBox angezeigt werden - anstatt im VB-Editor zu landen.
Danke i V,
Tobias
12.03.2009 16:48:49
Thread-ID: 1059565
3 Beiträge
Befehl bei Makrodurchlauf abschalten
Karsten

Hallo...
Ich möchte, dass, wenn ein ein Makro gestartet wird, die Befehle im "Private Sub Worksheet_Change(ByVal Target As Range)" nicht mitdurchlaufen werden. Kann mir jemand sagen, wie ich das abschalte?.
Gruß
Karsten
25.07.2009 16:11:10
Thread-ID: 1091259
3 Beiträge
Beim Speichern Kopie des Tabellenblattes erstellen
Csaba

Hallo,
ich habe ein Tabellenblatt, in dem regelmäßig Änderungen gemacht werden. Dieses soll beim Speichern zusätzlich noch an einem anderen Ort gespeichert werden. Ich benötige nur das aktive Tabellenblatt, es kann aber auch die ganze Datei gespeichert werden. Allerdings sollen dann die Mak...
28.09.2009 13:56:12
Thread-ID: 1106023
4 Beiträge
Mappen-unabhängiges Makro bei Doppelklick
frigo

Hallo,
ich habe ein Makro erstellt, dass perDoppelklick auf eine Zelle gestartet wird.
Der Code ist also dem Ereignis BeforeDoubleClick auf dem Tabellenblatt zugewiesen und funktioniert damit nur in dieser Mappe auf diesem Blatt.
Um es in anderen Mappen/Blättern nutzen zu können, mu...
05.02.2010 15:18:45
Thread-ID: 1136198
4 Beiträge
Anzeige
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
Excel stürzt ab bei Doppelklick in Pivottabelle
Gerhard

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein größeres File mit mehreren Pivottabellen, die alle auf die gleiche Tabelle zugreifen...
In letzter Zeit stürzt Excel regelmäßig ab, und zwar immer dann, wenn ich per Doppelklick auf die Pivottabelledaten zugreife...
Die e...
27.04.2011 10:57:50
Thread-ID: 1211951
2 Beiträge
Tabelle mit Makro bearbeiten
Niklas

Hallo liebes Forum,
Ich habe hier eine Tabelle, von denen es noch eine Menge mehr gibt und für die ich gerne ein Makro zur Bearbeitung erstellen würde.
https://www.herber.de/bbs/user/80527.xlsx
Undzwar sind folgende 3 Dinge zu tun.
1. Muss in der Spalte BK ab Zeile 8 die Summe...
12.06.2012 14:42:49
Thread-ID: 1267058
3 Beiträge
Beim Speichern automatisch Tabellenname und aktuel
Alexander
Hallo Liebe Gemeinde,
ich hätte gerne mal wieder ein neues kleines Problem. Ich möchte, das beim Speichern eines Tabellenblattes automatisch den Namen des Blattes, sowie das aktuelle Datum als speichername gesetzt wird.
Leider setzt mir das Programm als Speichername: 41800.
Wo liegt de...
09.06.2014 19:49:48
Thread-ID: 1365186
3 Beiträge
Probleme bei Sverweißabfrage
Langmantl

Habe eine Exceldatei erstellt, meine Frage bezieht sich auf 3 Tabellenblätter. Ich möchte mit dem Sverweiß Befehl (Suchkriterium ist ein Gruppenleiter im Tabellenblatt Gruppenleiter (bsp Riedemann)) alle Mitarbeiter dieses Gruppenleiters in die Tabelle Feueralarmliste selektieren. Dies habe ich...
11.11.2014 12:59:12
Thread-ID: 1391642
21 Beiträge
Anzeige
2. Makro beim Speichern mit abspeichern
André

Guten Morgen,
ich lasse folgendes Makro zum speichern einer einzelnen Tabelle aus einer Datei laufen. Sub Speichern_unter_neuem_Namen_Typ02() Dim Neuer_Dateiname As String Dim xlOldSheetscount As Integer Rem Speicherpfad und Dateiname anfordern Neuer_Dateiname = Application.GetSaveAsFilenam...
17.07.2015 07:41:21
Thread-ID: 1436918
2 Beiträge
Excel stürzt beim Beenden ab
Thomas

Hallo Gemeinde,
folgendes Makro mit den Zielen
- Leseberechtigung
- Filterberechtigung
- automatische Passwortsetzung
- automatisches Filterrücksetzen
läuft sauber ab, jedoch stürzt Excel oftmals ab wenn mehrere Mappen geöffnet sind.
Beim Schließen dieser Mappe mit M...
27.08.2015 14:06:47
Thread-ID: 1444699
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige