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