Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1420to1424
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
Inhaltsverzeichnis

Kopiertes Worksheet - Formeln in Text umwandeln

Kopiertes Worksheet - Formeln in Text umwandeln
22.04.2015 09:02:34
Robin
Hallo,
ich habe folgendes Problem:
Mit unten genannten Code, soll ein existierendes Tabellenblatt kopiert und unter einem bestimmten Namen abgespeichert werden. Das ganze funktioniert, allerdings möchte ich nur die Werte aus den Zellen kopiert haben und nicht die hinterlegten Formeln, da sonst anschließend kein Zellbezug mehr vorliegt. Ich weiß leider nicht, wie ich das im Makro anspreche, oder ob ich das ganze anders aufziehen muss, indem ich z.B. zuerst ein Blatt erzeuge und in dieses dann den Text kopiere und abspeichere oder aber vor dem speichern die Formeln in Text umwandle. Ich hoffe, ihr könnt mir helfen.
Grüße, Robin
Code:
Private Sub Speichern_Click()
'Button: Speichern
'MsgBox ("Dieser Button ist erst mit dem nächsten Update verfügbar." & vbCrLf & "Robin XXXX")
On Error GoTo fehlermeldung
Dim TBName$, WBName$
Dim strPfad As String
Application.ScreenUpdating = False
TBName = "LIMS_Bericht" 'Blattname
strPfad = "L:\XXXX"
WBName = "XXXX" & "_" & Format(Now(), "yyMMddhhmmss") & "_" & VBA.Environ("Username") & ".xlsx"  _
'Dateiname
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs strPfad & "\" & WBName
ActiveWorkbook.Close
Exit Sub
fehlermeldung:
MsgBox "Es ist ein Fehler aufgetreten!"
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopiertes Worksheet - Formeln in Text umwandeln
22.04.2015 09:44:08
Beverly
Hi Robin,
ergänze die beiden kursiv formatierten Zeilen

Worksheets(TBName).Copy
ActiveSheet.UsedRange.Copy
Range("A1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs strPfad & "\" & WBName
ActiveWorkbook.Close


AW: Kopiertes Worksheet - Formeln in Text umwandeln
22.04.2015 10:18:17
Robin
Hallo Beverly,
es wurde zwar zuerst mein zu kopierendes Tabellenblatt dabei überschrieben, aber durch die Ergänzung
...
Worksheets(TBName).Copy
ActiveSheet.UsedRange.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs strPfad & "\" & WBName
ActiveWorkbook.Close
...

funktioniert es nun.
Danke für die schnelle Antwort und liebe Grüße!
Anzeige

375 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige