mit dem folgenden Code möchte ich einen Tabellenbereich in eine neu erstellte Datei kopieren, es sollen aber nur die Werte eingefügt und die Formate übernommen werden, aber keine Formeln.
1.) bei der Zeile PasteSpecial xlPasteValues kommt der Fehler: Fehler beim Kompilieren: Syntaxfehler ---> wo liegt hier der Fehler?
2.) was muss ich ergänzen damit auch die Formate mitübernommen werden?
Sub Datei_anlegen()
Dim wkbName As String, wkbNeu As String, wksName As String
wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
Workbooks.Add
wkbNeu = ActiveWorkbook.Name
Workbooks(wkbName).Sheets(wksName).Range("H1:O46").Copy Workbooks(wkbNeu).Tabelle(1).Range("A1") _
.PasteSpecial xlPasteValues.
Dim pfad As String, dateiname As String
pfad = Workbooks(wkbName).Sheets(wksName).Range("G1")
dateiname = Workbooks(wkbName).Sheets(wksName).Range("F1")
Workbooks(wkbNeu).SaveAs Filename:=pfad & "\" & dateiname & ".xls"
ActiveWorkbook.Close
End Sub
Besten Dank für die Hilfe undServus, Walter