Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
09.10.2025 13:32:39
MahJong für Execl
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
09.10.2025 10:00:47
Von zwei Zellen mit Sverweis (B7 und H8) die Summe bilden
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblatt extrahieren und feste Werte

Forumthread: Arbeitsblatt extrahieren und feste Werte

Arbeitsblatt extrahieren und feste Werte
20.08.2020 15:08:11
Alex
Hallo zusammen,
ich habe folgenden Makro: 
Sub Tabellenblatt_speichern()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name & ".xlsx"
End Sub
Könnte mir jemand sagen wie ich diesen anpassen müsste damit dieser die Werte bzw. Formeln innerhalb des Arbeitsblattes als feste Zahlen übernimmt.
LG
Alex
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt extrahieren und feste Werte
20.08.2020 15:39:38
UweD
Hi
ungeprüft...
Sub Tabellenblatt_speichern()
ActiveSheet.Copy
With ActiveSheet  'jetzt ist es das neue Blatt
.Cells.Value= .Cells.Value
End With
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name & ".xlsx"
End Sub
LG UweD
AW: Arbeitsblatt extrahieren und feste Werte
20.08.2020 16:11:10
Alex
Hallo Uwe,
hat leider nicht geklappt.
Bekomme einen laufzeitfehler :(
Anzeige
Schön für Dich, poste mal eine Beispielmappe! (owT
20.08.2020 16:19:47
EtoPHG

AW: Schön für Dich, poste mal eine Beispielmappe! (owT
20.08.2020 16:36:26
Alex
So hat es funktioniert... aber nur mit makro aufzeichner
Sub Arbeitsblatt_extrahieren()
ActiveSheet.Copy
With ActiveSheet  'jetzt ist es das neue Blatt
Cells.Select
Range("E1").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S12").Select
End With
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name & ".xlsx"
End Sub

Anzeige
AW: Schön für Dich, aber was soll das? (owT)
20.08.2020 16:51:24
EtoPHG

;

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