VBA - Tabellen-Formeln durch Werte ersetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NurDatenSpeichern() Dim Blatt As Worksheet Dim iPos As Integer Dim sName As String sName = ThisWorkbook.Name iPos = InStrRev(sName, ".") sName = Left(sName, iPos - 1) & " " & Format(Date, "yyymmdd") & ".xlsx" Worksheets(Array("Apfel", "Banane")).Copy ' Anpassen With ActiveWorkbook For Each Blatt In .Worksheets With Blatt.Cells .Copy .PasteSpecial Paste:=xlValues End With Next Blatt Application.DisplayAlerts = False .SaveAs Filename:=ThisWorkbook.Path & "\" & sName, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True .Close End With ThisWorkbook.Close End Sub

Hallo Barbaraa, Hallo miteinander!,
ich habe deinen Beitrag leider jetzt gerade erst gesehen, wobei vllt. war das auch gut so.
Habe mich jetzt mal als Frischling daran versucht selbst den Code hinzubekommen - mit Hilfe von Hajo_Zi's Datei.
Wenn jemand Lust hätte und mir sagen könnte, was ich alles falsch gemacht habe, wäre ich zusätzlich sehr dankbar.
Immerhin ist mein Ziel irgendwann selbst solche Codes erstellen zu können.
Ich werde aber sicherlich deine getane Arbeit nicht mit Füßen treten, Babaraa.
Werde sofort den Code probieren und dann nochmals eine Rückmeldung geben.
Vielen Dank für deine Hilfe schon einmal im Voraus, ich bin sicher das wird damit klappen :-).
Nachfolgend noch mein Code - bitte nicht lachen, es werden ziemlich offenkundige Fehler enthalten sein:

Private Sub CommandButton3_Click()
Dim i As Integer, x As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ThisWorkbook
.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=52, Filename:= _
"\\..\..\..\..\" & Format(Date, "YYYYMMDD") & " " _
& Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) _
& Format(Date, "YYYYMMDD") & ".xlsm"
x = Worksheets.Count
For i = 2 To x                     ' ab Tabelle 2 bis x
With Sheets(i).Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Tabelle gespeichert!"
End With
Cells(1, 1).Select
Next i
End With
ActiveSheet.OLEObjects("CommandButton3").Delete ' Schalter löschen
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Viele Grüße,
Christian

Hallo Christian,
Application.DisplayAlerts würde ich genau vor der Zeile abschalten, wo es gebraucht wird, und gleich danach wieder einschalten. Nur, um vielleicht andere unbekannte Meldungen, an die Du derzeit nicht denkst, nicht zu übersehen.
Du machst die Zeile .PasteSpecial Paste:=xlPasteValues NACH dem Umbenennen der Datei und lässt sie dann ungespeichert stehen. Überlegenswert wäre vielleicht die umgekehrte Reihenfolge.
Falls vielleicht dieser Code aus praktischen Gründen NICHT in die Tabelle soll, da er ja unnötigerweise auch mitkopiert wird: Du kannst ihn auch in einer eigenen Excel-Datei ablegen und von dort auf diese Original-Datei anwenden.
Dazu müssen beide Dateien, also diese eigene Datei und die Original-Datei (die mit den zu kopierenden Daten) geöffnet sein, die Original-Datei vorne aktiv.
Von da startest Du das Makro vom Menü Ansicht, Makros. Allerdings muss das Private vor dem Sub weg, sonst wird es nicht gelistet.
Und ThisWorkbook durch ActiveWorkbook ersetzen. Ersteres ist die Datei (= Mappe), in der das Makro steht, letzteres die gerade zum Zeitpunkt aktuelle Mappe, auf die sich das Makro ja beziehen soll.
Ich habe so eine eigene Excel-Datei mit einer Sammlung aller möglichen Makros, die ich immer wieder zu unterschiedlichen Anlässen brauche. Als allgemeine Vorlage gespeichert habe ich sie immer parat, ohne sie extra öffnen zu müssen (wie und wo musst du gugln). Ist aber nur sinnvoll, wenn ich die Mappen, auf die ich meine Makros anwende, nicht an Dritte weitergeben muss.
Freut mich, dass ich helfen konnte.
LGB

Beliebteste Forumthreads (12 Monate)

VBA - Tabellen-Formeln durch Werte ersetzen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Tabellen-Formeln durch Werte ersetzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread