Supportnet / Forum / Tabellenkalkulation

Hallo, ich hoffe man kann mir heute auch wieder helfen so wie immer. Ich habe folgende frage: ist es möglich, Tabellen ohne Formeln sondern nur die Werte die durch die Formeln errechnet wurden unter einen bestimmten Dateinamen zu Speichern. ( Makro ) Gruß Laura

Hey Laura,

ganz sicher ist es das...dieses Makro könntest Du sogar selber aufnehmen. Unter Extras-->Makro-->Aufzeichen

braucht Du ja eigentlich nur die Tabelle komplett markieren (links oben bei Deiner Tabelle klicken, dann wird die Tabelle komplett markiert) und dann kopieren-->Werte einfügen.

Das Abspeichern unter einen anderen Namen müsste dann allerdings manuell gemacht werden...

Ist noch nix ganzes - ich weiß - aber vielleicht hilft es Dir ja erstmal....sonst warte lieber auf die Excel-Pros hier :o)

Ach ja, mach lieber erstma ne Sicherungskopie von Deiner Datei - bevor Du Dir irgendwelche Formeln zerschiesst..

Grüße und schönen Nabend!

Mola

hallo,
einfügen in eine neue Areitsmappe, beim verlassen speichern!

Sub test()
Range("A1:E14").Select ´kopierter Bereich
Selection.Copy
Workbooks.Add
Range("A1").Select ´ allerdungs in der Selben Tabelle
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Anmerkung: Makro aufzeichen, wie oben erklärt - bereich kopieren - leere zelle oder tabelle auswählen - "rechte Mausstaste" klicken - "Inhalte einfügen" - "Werte" - OK

mfg
roland

Hallo,

Danke erst mal, hört sich schon gut an muß ich aber noch testen.



Gruß
Laura

Hi Laura,
folgendes Makro kopiert alle Werte aus dem aktiven Blatt in eine neue Mappe, wandelt vorhandene Formeln dort in Festwerte und startet den SpeichernDialog.

Sub FixNeuesBlatt()
Dim Neuer_Dateiname
Dim i As Integer
Rem kopiert ganzes Blatt in neue Mappe, mit Formeln
ActiveSheet.Copy
Rem in neuer Mappe alle Zellen kopieren
Cells.Copy
Rem in neuer Mappe A1 wählen
Range("A1").Select
Rem dort nur die Werte einfügen
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rem Kopiermodus beenden (Laufrahmen beenden)
Application.CutCopyMode = False
Rem s.o.
Range("A1").Select
Rem Speichernabfrage
i = MsgBox("SpeichernAktion kann nicht rückgängig gemacht werden!" & Chr(13) & _
"" & Chr(13) & _
"Sicher? Dann OK, sonst ABBRECHEN" & Chr(13), 1 + vbExclamation, "Festwerte in neue Datei speichern")
Rem wenn Abbrechen angeklickt, makroende
If i = 2 Then Exit Sub
Rem SpeichernDialog aufrufen
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub

Wenn Du immer in dieselbe Datei sichern willst, löscht Du ab "Rem SpeichernDialog aufrufen" alles und fügst an:

ActiveWorkbook.SaveAs Filename:= _
        "C:\fixtest.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

musst natürlich Pfad und Name anpassen
MfG
schnallgonz

Danke, hab das gerade zufällig gefunden und auch verwendet. Einziger Wermutstropfen: ich musste verbundene Zellen entfernen, sonst kam eine Fehlermeldung...

Schönen Gruß!
A\F

Hallo Laura,

wenn es ganz simpel sein kann, geht es auch über Tabelle makieren dann über Bearbeiten > Inhalte einfügen. Dort Werte anklicken und ok.

Gruß

Kismo

Hallo,

Danke an euch alle vor allen gilt der Dank schnallgonz, genau so hab ich mir das vorgestellt.



Gruß

Laura

Salvete A/F und Laura,
Danke für eure Rückmeldungen.

Verbundene Zellen machen einfach immer Probleme, nicht nur bei Makros.
Habe insoweit leider keine Lösung.

Euch ein schönes Herbstwochenende
schnallgonz

• Formeln Excel
• Formeln kopieren
• Formeln für Word
• Mittels Makro Excel-Datei speichern