Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 :(
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige