Kopiertes Worksheet - Formeln in Text umwandeln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Kopiertes Worksheet - Formeln in Text umwandeln
von: Robin
Geschrieben am: 22.04.2015 09:02:34

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

Bild

Betrifft: AW: Kopiertes Worksheet - Formeln in Text umwandeln
von: Beverly
Geschrieben am: 22.04.2015 09:44:08
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
...



Bild

Betrifft: AW: Kopiertes Worksheet - Formeln in Text umwandeln
von: Robin
Geschrieben am: 22.04.2015 10:18:17
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!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopiertes Worksheet - Formeln in Text umwandeln"