VBA nur Werte und Formate kopieren -- Fehlersuche
29.11.2013 14:04:21
WalterK
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
Servus, Walter
Anzeige